Question

vb 查询数据库提示“from子句语法错误

Private Sub Form_Load()
Dim rq() As String
Dim nr() As String
Dim Sql As String
Dim MsgTxt As String
Sql = "select * from note"
Set Rs = ExecuteSQL(Sql, MsgTxt)

If InStr(MsgTxt, "错误") Then
MsgBox MsgTxt
Exit Sub
End If

ReDim Preserve rq(0)
ReDim Preserve nr(0)

If Rs.RecordCount > 0 Then
For i = 1 To Rs.RecordCount
ReDim Preserve rq(i)
ReDim Preserve nr(i)
rq(i) = Rs.Fields("rq") & ""
nr(i) = Rs.Fields("nr") & ""

List1.AddItem (Rs.Fields("rq") & "")
List2.AddItem (Rs.Fields("nr") & "")
List4.AddItem (Rs.Fields("ID") & "")
List3.AddItem (List3.List(i - 1) & "" & List1.List(i - 1) & " " & List2.List(i - 1))
Rs.MoveNext
Next i

End If

End Sub

若以下回答无法解决问题，邀请你更新回答

Answer 1

不能使用user作为表名，换一个吧

追问

谢谢了，收到