VB编程中，显示在Adodc1.Recordset.ActiveConnection.Execute sql这句话有错误

答案:1 悬赏:60 手机版

解决时间 2021-03-13 18:03

提问者网友：書生途
2021-03-13 11:39

Dim sql As String
Private Sub Command1_Click()
Adodc1.RecordSource = "select * from js where 书目代码='" & Text1 & "' "
Adodc1.Refresh
sql = "update js set 库存=库存-1 where 数目代码='" & Text1.Text & "'"
Adodc1.Recordset.ActiveConnection.Execute sql
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1.Recordset
DataGrid1.Refresh

End Sub
Private Sub Command2_Click()
Adodc1.RecordSource = "select * from js "
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1.Recordset
DataGrid1.Refresh
End Sub

最佳答案

五星知识达人网友：举杯邀酒敬孤独
2021-03-13 12:53

Adodc1.RecordSource = "select * from js where 书目代码='" & Text1 & "' "

sql = "update js set 库存=库存-1 where 数目代码='" & Text1.Text & "'"

根据这两句看，应为 ”书目代码" 而非 “数目代码"
因数据库表js中不存在数目代码这个字段，而产生错误

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息