Question

VB连接Access from子句语法错误

Private Sub mnuDelInfo_Click()
Dim i As Long
Dim strSQL As String
'删除数据库里的记录
Set RsAdo = New ADODB.Recordset
RsAdo.CursorType = adOpenStatic
For i = lsvInfo.ListItems.Count To 1 Step -1
If lsvInfo.ListItems(i).Checked = True Then
strSQL = "DELETE FROM MsgInfo WHRER InfoID=Cint('" & lsvInfo.ListItems(i).Text & "')"
RsAdo.Open strSQL, AdoCon, adOpenStatic, adLockReadOnly
'更新信息列表里的信息
lsvInfo.ListItems.Remove i
End If
Next i
CloseRsAdo

Answer 1

strSQL = "简冲嫌DELETE * FROM MsgInfo WHRER InfoID=Cint('" & lsvInfo.ListItems(i).Text & "'判蚂)"拦手

追问

不好意思，加上这个*号没用的，不加上就是代表删除整条记录的意思，每次调试中，错误都定在RsAdo.Open 这一行，但提示的错误是from子句

追答

strSQL = "DELETE * FROM MsgInfo WHRER InfoID=Cint(" & lsvInfo.ListItems(i).Text & ")"

追问

还是不行，不过还是谢谢你了，这个问题我研究很久了，始终找不出端倪，可能是和整个程序环境有关吧。

追答

DELETE 是不返回记录集的
RsAdo.Open strSQL, AdoCon, adOpenStatic, adLockReadOnly
改为
AdoCon.Excute strSQL
下面这些也去掉
Dim strSQL As String
'删除数据库里的记录
Set RsAdo = New ADODB.Recordset
RsAdo.CursorType = adOpenStatic

Answer 2

你应该要把错误提示也写出来