UC知道求助:VB登陆框连接ACCESS 实时错误3709
来源：百度知道 编辑：UC知道 时间：2024/05/10 22:56:21
Dim DBCon As New ADODB.Connection
Dim DBRs As ADODB.Recordset
Set DBRs = New ADODB.Recordset
DBCon.Open "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\mdb.mdb"
DBRs.Open "select * from PW where P_user= " & Trim(Text1.Text)
If DBRs.EOF = True Then
MsgBox "没有此用户", vbOKOnly, "提示"
Else: System.Show
End If
在线等
最好回答出错原因是什么
Dim DBRs As ADODB.Recordset
Set DBRs = New ADODB.Recordset
DBCon.Open "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\mdb.mdb"
DBRs.Open "select * from PW where P_user= " & Trim(Text1.Text)
If DBRs.EOF = True Then
MsgBox "没有此用户", vbOKOnly, "提示"
Else: System.Show
End If
在线等
最好回答出错原因是什么
我怎么感觉好像是关键字的问题：
mdb.mdb，你把这个数据库文件名改下
还有就PW好像也不行吧？
最后的system.show 这句我没用过，不知道是否可以。