Question

vb无法连接数据库，没有提示错误，但编写的登陆框没有办法实现多用户登陆，点击“登陆”后完全无反应！

vb无法连接数据库，没有提示错误，但编写的登陆框没有办法实现多用户登陆，点击“登陆”后完全无反应！如果不连接数据库，登陆框是可以实现登陆的~
具体代码如下，望高人指点！！！

Private Sub Command1_Click()
Dim unames As String
unames = UCase(Trim(Text1.Text))
If Len(Trim(unames)) = 0 Then
MsgBox "用户名不能为空，请重新输入！", vbOKOnly, "错误信息"
Exit Sub
End If
If Len(Trim(Text2.Text)) = 0 Then
MsgBox "密码不能为空，请重新输入！", vbOKOnly, "错误信息"
Exit Sub
End If

Call dbconn
Dim sqls As String
If Left(unames, 1) = "E" Then
sqls = "select password,权限 from employer where 登陆账号='" + unames + "'"
Set rs = Conn.Execute(sqls)
If rs.EOF Then
MsgBox "用户名不存在！ 登陆失败，请检查！"
Exit Sub
End If
If Trim(Text2.Text) = Trim(rs("密码")) Then
uname = unames
qx = Trim(rs("权限"))
Unload Me
main.Show
Else
MsgBox "密码错误！ 无法登陆，请检查！"
Exit Sub
End If
End If
End Sub

而在模块里有定义conn——

Public uname As String
Public qx As String
Public Conn As ADODB.Connection

Public Sub dbconn()
Set Conn = New ADODB.Connection
Conn.ConnectionString = "DSN=DH"
Conn.Open
End Sub
前段都没问题，就是到call dbconn就有问题了~所以我就猜是连接上出问题了！

Answer 1

Set conn = CreateObject("ADODB.Connection") '创建连接数据库对象
conn = "Provider=Microsoft.jet.oledb.4.0;Jet Oledb:Database Password=123456;data source=" & App.Path & "\data.mdb"
Set rs = CreateObject("ADODB.Recordset") '创建ADO对象
sql = "SELECT * FROM user where user='" & text1.text & "' and pow='"& text2.text &"' and 权限=管理员的权限"
打开后判断是否有数据就OK啦
rs.Close
Set rs = Nothing '清控RS对象
Set conn = Nothing '清控conn对象

-------------------------------
看了一下你的代码 没看到你的代码有中跟数据库连接的地方
你的conn 没标记你的数据库文件 或者SQL连接地址没标记肯定会出错的 可以看看我给你提供的
如果你稍稍修改一下 直接拿我的去用肯定也是可以的 我一直都这么用 没一点问题 ACCESS SQL都可以 只要修改CONN那条就可以了

Answer 2

Conn.ConnectionString = "DSN=DH"
在管理工具里的odbc 里有个dh 你看看这个设置是否正常。

Answer 3

这个 你尝试用连接字符串吧。这种代码的实在是我就是弄不出来。用连接字符串轻松搞定