删除记录问题 老说出错

Question

Public cnn As New ADODB.ConnectionPrivate Sub Command5_Click()
   If deletesj = "" Then
      MsgBox "请选择删除记录!"
   Else
      If MsgBox("时间： " & deletesj & " 确认要删除？", vbYesNo, "信息提示") = vbYes Then
         cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data.mdb"
         cnn.Execute "delete form [条码记录] where [id]=" & deleteid & ""
            
      End If
   End If
End Sub

Answer 1

"delete form [条码记录] where [id]=" & deleteid & ""
这明显双引号不对称,你把这一句在DEBUG中打印出来就知道了

Answer 2

我这样还是一样cnn.Execute "delete form [条码记录] where [id]=" & deleteid哪不对称了,能请教下吗?

Answer 3

        cnn.Execute "delete form [条码记录] where [id]='" & deleteid & "'"

Answer 4

把删除语句打印出来，放到SQL查询分析器里去看看，很快就可以发现错在哪里了。

Answer 5

没有不对称吧，如果deleteid=1那么输出的SQL语句为：delete form [条码记录] where [id]=1

Answer 6

cnn.Execute "delete form [条码记录] where [id]=" & deleteid & "" from  写成 form了
你真粗心

Answer 7

cnn.Execute "delete form [条码记录] where [id]=" & deleteid & "" 我终于看到错误的地方了，哈哈