请问

quanquan626 2003-12-04 06:26:28
用VB的ADODC怎么做给一个表加数据数据的名字(name)一样只是数量(number)不一样。。。要把两次添加的结果放在一列上因为名字一样而且还要把两次输入的值相加不能用新添加的覆盖原来的必须要加到一起。。。谢谢。。。。我的数据库是ACCESS
Private Sub Command5_Click()
Do While Not Adodc1.Recordset.EOF
Adodc1.RecordSource = "select * from wuziku where name= '" & Trim(Text1.Text) & "'"
If Adodc1.Recordset!Number <> 0 Then
Adodc1.Recordset!Number = Adodc1.Recordset!Number + Val(Trim(Text2))
Adodc1.Recordset.Update ("Number")
Else
'Adodc1.Refresh
End If
loop
End Sub
我都改傻拉。。。都不知道哪句该注销哪句不该了。。。帮我看看吧。。。还是有错误
...全文
33 8 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
quanquan626 2003-12-05
  • 打赏
  • 举报
回复
当然加上了。。。这个update tblbooklog set series_id=(select sum(series_id) from tblbooklog) where form_type= 'C'
在ACCESS中不能执行吗。。。天啊。。。。
JoAiron 2003-12-05
  • 打赏
  • 举报
回复
好像不能
那么就写两条语句来执行啊
JoAiron 2003-12-04
  • 打赏
  • 举报
回复
那个只是查询,哪有更新的功能啊
下面这个:
update tblbooklog set series_id=(select sum(series_id) from tblbooklog) where form_type= 'C'
在oracle中可以执行 在access中就不行了
还有上面我写的东西中少了个from table,你自己加上了吧?
quanquan626 2003-12-04
  • 打赏
  • 举报
回复
"select sum(number) where name = " & "'" & trim(text1.text) & "'"
不好用啊。。。还是更新不了。。。
quanquan626 2003-12-04
  • 打赏
  • 举报
回复
"select sum(number) where name = " & "'" & trim(text1.text) & "'"
这样得出的结果集就是你要的相加的数字
接下来你是想新添加一条记录么?

不用。。就是更新。。。因为加的两条记录name一样嘛。。所以只要把数量更新一下就可以了
jpinglee 2003-12-04
  • 打赏
  • 举报
回复
"select sum(number) where name = " & "'" & trim(text1.text) & "'"
JoAiron 2003-12-04
  • 打赏
  • 举报
回复
"select sum(number) where name = " & "'" & trim(text1.text) & "'"
这样得出的结果集就是你要的相加的数字
接下来你是想新添加一条记录么?
yoki 2003-12-04
  • 打赏
  • 举报
回复
name是关键字,必须用[]扩起来,其他的每仔细看,得回家了

1,217

社区成员

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

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