最近更新|最新推薦|軟件排行|創e測評|軟件分類|手機版|軟件專題|軟件發布多步 OLE DB 操作產生錯誤。如果可能,請檢查每個 OLE DB 狀態值。沒有工作被完成

創e測評

教程測評
創e > 創e測評 > 資訊共享 > 創e日志 > > 多步 OLE DB 操作產生錯誤。如果可能,請檢查每個 OLE DB 狀態值。沒有工作被完成

多步 OLE DB 操作產生錯誤。如果可能,請檢查每個 OLE DB 狀態值。沒有工作被完成

  發布時間:2012/6/20 19:33:55 查看評論
分享收藏吧:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)多步 OLE DB 操作產生錯誤。如果可能,請檢查每個 OLE DB 狀態值。沒有工作被完成。

<!--#include file="_Mode/Conn.asp"-->
<!--#include file="_Mode/function.asp"-->
<%
if request("Sub")<>"" then
   call Writ
end if

function Writ
  Set rs=Server.CreateObject("ADODB.Recordset")
  Sql_ID="Select * from T_User where User_Name='"&request("User_Name")&"'"
  rs.open Sql_ID,Conn,1,3
 
if request("User_Name")<>"" Then
  if rs.recordcount > 0 then
     response.write"<script>alert('該人員已經存在!');history.go(-1)</script>"
     response.end
  elseif rs.recordcount =0 then
     rs.close
     set rs=nothing
     Set rs=Server.CreateObject("ADODB.Recordset")
     Sql_ID="Select * from T_User"
     rs.open Sql_ID,Conn,1,3
     rs.addnew
 
   

      rs("User_ID")=CInt(request("User_ID"))  '數據庫為整型數據
      rs("Depar_ID")=CInt(request("Depar_Name")) '數據類型整型數據
      rs("User_Name")=Trim(request("User_Name")) '數據類型為字符型
      rs("User_Jane")=Trim(request("User_Jane")) '數據類型為字符型
      rs("User_Tell")=Trim(request("User_Tell")) '數據類型為字符型
      rs.update
      rs.close
     set rs=nothing
     response.Write("<script language=javascript>alert('人員添加成功!');location='Depar.asp'</script>")
     Response.End()
  end if
else
  response.write"<script>alert('請輸入人員姓名!');history.go(-1)</script>"
  response.end
End If
end function

Set rs=Server.CreateObject("ADODB.Recordset")
Sql_ID="Select * from T_User Order by User_ID desc"
rs.open Sql_ID,Conn,1,3
if rs.bof then
   MaxID=allID_add(0)
else
   MaxID=allID_add(rs("User_ID"))
end If
rs.close
set rs=nothing
%>

<html>
<head><title>增加人員</title></head>
<body>
<form method="POST" action="Depar.asp" name="User_form">
<table border=1>

<tr>
    <td>人員ID</td>
    <td><input type=text name="User_ID" readOnly size=15 value=<%=MaxID%>></td>
</tr>
<%
Set rs=Server.CreateObject("ADODB.Recordset")
Sql_ID="Select * from T_Depar"
rs.open Sql_ID,Conn,1,3
%>
<tr>
    <td>所在科室</td>
    <td><select name="Depar_Name">
        <% do while not rs.eof %>
           <option value="<%=rs("Depar_ID")%>"><%=rs("Depar_ID")%>-<%=rs("Depar_Name")%></option>
        <% rs.movenext()
           loop
           rs.close
           set rs=nothing
        %>      
    </td>
</tr>
<tr>
    <td>姓名</td>
    <td><input type=text name="User_Name" size=15  id="User_Name"></td>
</tr>
<tr>
    <td>姓名簡碼</td>
    <td><input type=text name="User_Jane" readOnly size=15 id="User_Jane" ></td>
</tr>
<tr>
    <td>聯系電話</td>
    <td><input type=text name="User_Tell" length=6 size=15></td>
</tr>
<tr>
<td colspan="2" align=center>
    <input type=submit name="Sub" value="提交">
    <input type="reset" name="Res" value="重置">
</tr>
</table>
</form>
</body>
</html>
提問者: fnwwx - 四級
最佳答案
 rs("User_ID")=CInt(TRIM(request("User_ID")))  '數據庫為整型數據
rs("Depar_ID")=CInt(TRIM(request("Depar_Name"))) '數據類型整型數據
還有一種可能,你的字段內容太長了,超過了限制

關鍵詞:OLE  操作  產生  錯誤  如果  可能  檢查  每個  狀態  沒有  工作  完成  

瀏覽量:
街机电玩捕鱼版 白小姐中特网免费资枓开奖结果一 秒速时时走势图软件 澳洲幸运10精准计划 14场胜负彩最新开奖金走势图 皇冠篮球比分网 广西今日快三 群英会怎么买中奖率高 票下载app送28元金 四川时时官方网 幸运快三大小单双走势