Question

我这边做一个VB修改数据库里的内容的代码，老是出错，麻烦告诉我错哪里了？

Private Sub Command1_Click() Dim cn As New ADODB.Connection cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\a.mdb" cn.Execute "update caigou set 审核通过=是 where 编号='" & Combo1.Text & "'" cn.Close DataGrid1.Refresh Adodc1.RefreshEnd Sub

Answer 1

Private Sub Command1_Click()
Dim cn As New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\a.mdb"
cn.Execute "update caigou set 审核通过=true where 编号='" & Combo1.Text & "'"
cn.Close
DataGrid1.Refresh
Adodc1.Refresh
End Sub

追问

老是出现这个……怎么办……

Answer 2

至少这里有一个 审核通过=是 ，是要加引号啊

追问

加引号也不行啊，就说是格式的错误了，你能帮我看看吗，审核通过="是"