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

denyu1 2004-11-22 11:22:04
我的代码如下:
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中一些数据!!!!!!!!!
...全文
158 10 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
tztz520 2004-11-22
  • 打赏
  • 举报
回复
如果zjzh字段是字符型的就:
cn1.Execute ("delete from cjb where zjzh='" & rs1!zjzh &"' & "")

如果zjzh字段是数值型的就:
cn1.Execute ("delete from cjb where zjzh=" & rs1!zjzh &" & "")
denyu1 2004-11-22
  • 打赏
  • 举报
回复
up
LyricSean 2004-11-22
  • 打赏
  • 举报
回复
where 字段名称=某字符串,要用‘’括起来,其他的字符串用&连接 例如:
cn1.Execute ("delete from cjb where zjzh='" & rs1!zjzh & "'")
ryq0000 2004-11-22
  • 打赏
  • 举报
回复
cn1.Execute ("insert into zzb(zjzh,jfs1) values('" & rs1!zjzh & "','" & rs2!jfsl & "')")
這樣你試試,看行不行???
my584520 2004-11-22
  • 打赏
  • 举报
回复
cn1.Execute ("insert into zzb " & " values('" & rs1!zjzh & "'," & rs2!jfsl & ")")
denyu1 2004-11-22
  • 打赏
  • 举报
回复
还是要报错,调试的时候,显示错误地方在cn1.Execute ("insert into zzb " & " values(" & rs1!zjzh & "," & rs2!jfsl & ")")
我的ZJZH 是CHAR ,JFSL 是MONEY.
救命啊
wenhongL 2004-11-22
  • 打赏
  • 举报
回复
cn1.Execute ("delete from cjb where zjzh='" & rs1!zjzh &"' ")
denyu1 2004-11-22
  • 打赏
  • 举报
回复
我的ZJZH是CHAR类型
jiang130 2004-11-22
  • 打赏
  • 举报
回复
如果zjzh是數值型就

cn1.Execute ("delete from cjb where zjzh=" & rs1!zjzh)
denyu1 2004-11-22
  • 打赏
  • 举报
回复
大哥不行
一个用全局勾子写简单的计算器,附源码。 神的寄语: 很明显,你应该是遇到了麻烦,或者是无意中按下了某个该死的组合键(Ctrl+F7),于是,你看到了这段话,不过这不重要,重要的是你要继续阅读下去,因为将会有一个编程天才--->不才在下小哥我--->申伟,给你带来无私的帮助。 很好,就这样,继续读,下面是快捷键的列表: 小键盘的所有键的功能,我就不想多说了。只说说这之外的特殊的几个。 退格键 <- 是的,它大多候就长这个样子,或者你也可以叫它BackSpace,主要功能。。呃。。。嗯嗯。。。体会。。。悟性。。。。真谛。。。。好的,你删掉了一位数字。。。 清屏键 Ctrl+退格 是的,有候垃圾数字就如同你现在看到的这些废话一样的多,一个一个的删掉会很累,所以,好吧,就这么一并删了吧。 开方 Ctrl+s 小学的候觉得这个很是难算,不过还好,在这里不用感谢CCTV和MTV,因为他们并没有帮上什么忙,这一切的一切都归功于万能的Math。。。。 平方 Ctrl+p 呃。。。。嗯嗯。。。平方。。。是的平方。。你可以用它计算你家里床的面积,然后在上面尽情的打滚,不至于从上面摔下。。。 立方 Ctrl+c 比如你可以用它来计算你家里厕所的体积,以方便你下次好准备带多少大便进去解决。 取模 Ctrl+m 我并不是想把这个写得跟MSDN一样的详细,但是我可以把它写得像MSDN一样的烂。。。 正负转换 Ctrl+x 当然,也许MSDN写得并不烂。但是当你读过这些文字之后,你会发现其实,我比较看重实用性,就像刚才那个上厕所的例子。。。 OK,天才名字:申伟,QQ43725443,邮箱:jhkemail@163.com 如果你觉得你还没看够,或者喜欢有人唠叨,千万不要点击下面的按键。偶打字很累滴=。=!!
神的寄语:

很明显,你应该是遇到了麻烦,或者是无意中按下了某个该死的组合键(Ctrl+F7),于是,你看到了这段话,不过这不重要,重要的是你要继续阅读下去,因为将会有一个编程天才--->不才在下小哥我--->申伟,给你带来无私的帮助。
很好,就这样,继续读,下面是快捷键的列表:
小键盘的所有键的功能,我就不想多说了。只说说这之外的特殊的几个。
退格键 <- 是的,它大多候就长这个样子,或者你也可以叫它BackSpace,主要功能。。呃。。。嗯嗯。。。体会。。。悟性。。。。真谛。。。。好的,你删掉了一位数字。。。
清屏键 Ctrl+退格 是的,有候垃圾数字就如同你现在看到的这些废话一样的多,一个一个的删掉会很累,所以,好吧,就这么一并删了吧。
开方 Ctrl+s 小学的候觉得这个很是难算,不过还好,在这里不用感谢CCTV和MTV,因为他们并没有帮上什么忙,这一切的一切都归功于万能的Math。。。。
平方 Ctrl+p 呃。。。。嗯嗯。。。平方。。。是的平方。。你可以用它计算你家里床的面积,然后在上面尽情的打滚,不至于从上面摔下。。。
立方 Ctrl+c 比如你可以用它来计算你家里厕所的体积,以方便你下次好准备带多少大便进去解决。
取模 Ctrl+m 我并不是想把这个写得跟MSDN一样的详细,但是我可以把它写得像MSDN一样的烂。。。
正负转换 Ctrl+x 当然,也许MSDN写得并不烂。但是当你读过这些文字之后,你会发现其实,我比较看重实用性,就像刚才那个上厕所的例子。。。

OK,天才名字:申伟,QQ43725443,邮箱:jhkemail@163.com
如果你觉得你还没看够,或者喜欢有人唠叨,千万不要点击下面的按键。偶打字很累滴=。=!!

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧