删除时遇到问题！！！！！！！！！！！帮帮忙！！！！

[denyu1]

我的代码如下：
sql1 = "select qsrq,zjzh,cjje,czfs,khlb from cjb"
Set rs1 = cn1.Execute(sql1)
If rs1!khlb = "31" Then
Set rs2 = cn1.Execute("select sum(cjje)*2.5/10000 as jfsl from cjb where zjzh=" & rs1! zjzh & "")
cn1.Execute ("insert into zzb " & " values(" & rs1!zjzh & "," & rs2!jfsl & ")")
cn1.Execute ("delete from cjb where zjzh=" & rs1!zjzh & "")
rs1.MoveNext
else if .............
......................
如果不要第六句删除语句时，一切正常。加上删除语句，要报语法错误！！！！！
我的本意时查找到一条记录，把ZJZH相同的行的CJJE全部加起来，插入表ZZB中之后，删除CJB中一些数据！！！！！！！！！

[denyu1]

大哥不行

[jiang130]

如果zjzh是數值型就

cn1.Execute ("delete from cjb where zjzh=" & rs1!zjzh)

[denyu1]

我的ZJZH是CHAR类型

[wenhongL]

cn1.Execute ("delete from cjb where zjzh='" & rs1!zjzh &"' ")

[denyu1]

还是要报错，调试的时候，显示错误地方在cn1.Execute ("insert into zzb " & " values(" & rs1!zjzh & "," & rs2!jfsl & ")")
我的ZJZH 是CHAR ，JFSL 是MONEY.
救命啊

[my584520]

cn1.Execute ("insert into zzb " & " values('" & rs1!zjzh & "'," & rs2!jfsl & ")")

[ryq0000]

cn1.Execute ("insert into zzb(zjzh,jfs1) values('" & rs1!zjzh & "','" & rs2!jfsl & "')")
這樣你試試，看行不行？？？

[LyricSean]

where 字段名称=某字符串，要用‘’括起来，其他的字符串用&连接 例如：
cn1.Execute ("delete from cjb where zjzh='" & rs1!zjzh & "'")

[denyu1]

up

[tztz520]

如果zjzh字段是字符型的就:
cn1.Execute ("delete from cjb where zjzh='" & rs1!zjzh &"' & "")

如果zjzh字段是数值型的就:
cn1.Execute ("delete from cjb where zjzh=" & rs1!zjzh &" & "")