Question

Provider (0x80020005)Provider (0x80020005)类型不匹配

Provider (0x80020005)
类型不匹配。
/Save.asp, 第 116 行
代码如下

<!--#include file="conn.asp"-->
<%
dim rs
dim sql
dim dw
dim mc
dim th
dim gg
dim jg
dim rq
dim lb
dim rkz
dim rk
dim ckz
dim ck
dim jc
dim id
dim x

dw=request.form("dw")
mc=request.form("mc")
gg=request.form("gg")
rq=request.form("rq")
rk=request.form("rkz")
rk=request.form("rk")
rk=request.form("ckz")
ck=request.form("ck")
x=request.form("x")

if trim(request.form("dw"))="" then
dw="空"
else
dw=request.form("dw")
end if

if trim(request.form("mc"))="" then
mc="空"
else
mc=request.form("mc")
end if

if trim(request.form("th"))="" then
th="空"
else
th=request.form("th")
end if

if trim(request.form("gg"))="" then
gg="空"
else
gg=request.form("gg")
end if

if trim(request.form("jg"))="" then
jg="空"
else
jg=request.form("jg")
end if

if trim(request.form("rq"))="" then
rq="空"
else
rq=request.form("rq")
end if

if trim(request.form("lb"))="" then
lb="空"
else
lb=request.form("lb")
end if

if trim(request.form("rkz"))="" then
rkz="空"
else
rkz=request.form("rkz")
end if

if trim(request.form("rk"))="" then
rk="空"
else
rk=request.form("rk")
end if

if trim(request.form("ckz"))="" then
ckz="空"
else
ckz=request.form("ckz")
end if

if trim(request.form("ck"))="" then
ck="空"
else
ck=request.form("ck")
end if

if trim(request.form("jc"))="" then
jc="空"
else
jc=request.form("jc")
end if
id=request("id")
%>
<%
set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath("data.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "select * from c1 where id="&id,conn,1,3
rs("dw")=dw
rs("mc")=mc
rs("th")=th
rs("gg")=gg
rs("jg")=jg
rs("rq")=rq
rs("lb")=lb
第 116 行 rs("rkz")=rkz+x
rs("rk")=rk
第 118 行rs("ckz")=ckz
rs("ck")=ck
第 120 行rs("jc")=rkz-ckz
第 121 行rs("x")=rkz
rs.update
rs.close

conn.close
set conn=nothing

%>
<table border="0" cellspacing="0" width="100%" cellpadding="0">
<tr>

<td width="100%" height="250" valign="middle" align="center"><font color="#000000"><b>恭喜您，资料已修改成功！</b></font>
<a href="searchlook.asp">返回</a></td>
</tr>
</table>

第 116,118,120,121 行都出现此问题,另外此代码还有什么不妥的吗,谢谢

Answer 1

建议没必要直接写rs的内容，先把rkz+x，rkz-ckz 值作到变量里去，然后找个地方连ckz，rkz一起把值输出看下到底怎么回事，这个代码满长的，而且只是一段，一下子也看不出来。

Answer 2

你得设置provider，还有
rs=server.createobject("adodb.recordset")
对不对我感觉是
rs=server.createobject(adodb.recordset
)