请问

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
我都改傻拉。。。都不知道哪句该注销哪句不该了。。。帮我看看吧。。。还是有错误
...全文
4 点赞 收藏 8
写回复
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是关键字,必须用[]扩起来,其他的每仔细看,得回家了
回复 点赞
发动态
发帖子

863

社区成员

5.5w+

社区内容

VB 数据库(包含打印,安装,报表)
社区公告
暂无公告