vb无法连接数据库，没有提示错误，但编写的登陆框没有办法实现多用户登陆，点击“登陆”后完全无反应！如果不连接数据库，登陆框是可以实现登陆的~
具体代码如下，望高人指点！！！
PrivateSubCommand1_Click()
DimunamesAsString
unames=UCase(Trim(Text1.Text))
IfLen(Trim(unames))=0Then
MsgBox\"用户名不能为空，请重新输入！\",vbOKOnly,\"错误信息\"
ExitSub
EndIf
IfLen(Trim(Text2.Text))=0Then
MsgBox\"密码不能为空，请重新输入！\",vbOKOnly,\"错误信息\"
ExitSub
EndIf
Calldbconn
DimsqlsAsString
IfLeft(unames,1)=\"E\"Then
sqls=\"selectpassword,权限fromemployerwhere登陆账号=\'\"unames\"\'\"
Setrs=Conn.Execute(sqls)
Ifrs.EOFThen
MsgBox\"用户名不存在！登陆失败，请检查！\"
ExitSub
EndIf
IfTrim(Text2.Text)=Trim(rs(\"密码\"))Then
uname=unames
qx=Trim(rs(\"权限\"))
UnloadMe
main.Show
Else
MsgBox\"密码错误！无法登陆，请检查！\"
ExitSub
EndIf
EndIf
EndSub
而在模块里有定义conn——
PublicunameAsString
PublicqxAsString
PublicConnAsADODB.Connection
PublicSubdbconn()
SetConn=NewADODB.Connection
Conn.ConnectionString=\"DSN=DH\"
Conn.Open
EndSub
|
