UC知道在VB中如何使用ADO动态的连接Access数据库
来源：百度知道 编辑：UC知道 时间：2024/05/29 08:46:02
这是我些的一个代码：
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Provider = "microsoft.jet.oledb.4.0"
cn.ConnectionString = "e:\11.mdb"
cn.Open
Set rs = cn.Execute("select * from user where 姓名=ltrim(" & Text1 & ")")
If rs.EOF Then
MsgBox "您输入的信息有误！"
Else
MsgBox "恭喜你！"
End If
cn.Close
End Sub
但是程序运行时会提示：
From子语句语法错误！
不知道怎么修改
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Provider = "microsoft.jet.oledb.4.0"
cn.ConnectionString = "e:\11.mdb"
cn.Open
Set rs = cn.Execute("select * from user where 姓名=ltrim(" & Text1 & ")")
If rs.EOF Then
MsgBox "您输入的信息有误！"
Else
MsgBox "恭喜你！"
End If
cn.Close
End Sub
但是程序运行时会提示：
From子语句语法错误！
不知道怎么修改
如果上述方法仍读不到数据时请注意：ACCESS数据库可能有默认数据表，记得没错的话，User名称为系统默认表，之前我也使用此名称作为自己的数据表名称，但一直读不到数据，改一个名就行了，程序代码并没变。所以认为系统有默认表。
试试看用一个变量保存这个select * from user……语句。
比如connstr
Set rs = cn.Execute("select * from user where 姓名='" & Text1 & "'")