高校问答天猫魔盒蓝牙怎么用:哪里有错？ACCESS连接！
来源：百度文库 编辑：高校问答 时间：2024/05/04 05:40:27
If TxtUser.Text = "" Or TxtPwd.Text = "" Then '判断用户框和密码框是否为空！
MsgBox "用户名或密码不能为空，请返回输入！", vbExclamation + vbOKOnly, "提示！"
Else
Dim User As String
Dim Pwd As String
User = Trim(TxtUser.Text)
Pwd = Trim(TxtPwd.Text)
Dim Conn As New ADODB.Connection
Dim StrSql As String
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data\Hydata.mdb;Persist Security Info=False"
Conn.Open
StrSql = "Select * From Admin Where Admin_User='" & User & "' AND Admin_Pwd='" & Pwd & "'"
Conn.Close
Unload Me
frmMain.Show
End If
End Sub
MsgBox "用户名或密码不能为空，请返回输入！", vbExclamation + vbOKOnly, "提示！"
Else
Dim User As String
Dim Pwd As String
User = Trim(TxtUser.Text)
Pwd = Trim(TxtPwd.Text)
Dim Conn As New ADODB.Connection
Dim StrSql As String
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data\Hydata.mdb;Persist Security Info=False"
Conn.Open
StrSql = "Select * From Admin Where Admin_User='" & User & "' AND Admin_Pwd='" & Pwd & "'"
Conn.Close
Unload Me
frmMain.Show
End If
End Sub
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data\Hydata.mdb;Persist Security Info=False"
Conn.Open
StrSql = "Select * From Admin Where Admin_User='" & User & "' AND Admin_Pwd='" & Pwd & "'"
Conn.Close
以上几句有问题
应改成
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data\Hydata.mdb;Persist Security Info=False"
StrSql = "Select * From Admin Where Admin_User='" & User & "' AND Admin_Pwd='" & Pwd & "'"
Conn.Execute StrSql
Conn.Close
还有什么问题的话可以给我留言
深奥！！
我不懂，我也正想学ACCESS，但不知道如何着手，请联系我，教教我好吗？
zhaotingda@126.com