sql = "select * from 验证表 WHERE 用户名='&trim(text1.text)&'and 密码='&trim(text2.text)&'"
将text1.text,text2.text分别换成数据库表(验证表)中的用户名字段的值和密码字段的值均能通过,实现form1.show,但上述代码不行sql="sele...
将text1.text,text2.text分别换成数据库表 (验证表)中的用户名字段的值和密码字段的值均能通过,实现form1.show,但上述代码不行
sql = "select * from 验证表 WHERE 用户名='&trim(text1.text)&'and 密码='&trim(text2.text)&'"
Set rs = New ADODB.Recordset
rs.Open sql, conn, 1, 1
If rs.EOF = True Then
MsgBox "用户名或密码错!为保证系统安全!程序将终止!", vbInformation + vbOKOnly, "系统提示"
Else
Form5.Show
注:1.上述单引号双引号都是小写书写没问题
2.去掉&或trim或同时去掉无效果(已验证) 展开
sql = "select * from 验证表 WHERE 用户名='&trim(text1.text)&'and 密码='&trim(text2.text)&'"
Set rs = New ADODB.Recordset
rs.Open sql, conn, 1, 1
If rs.EOF = True Then
MsgBox "用户名或密码错!为保证系统安全!程序将终止!", vbInformation + vbOKOnly, "系统提示"
Else
Form5.Show
注:1.上述单引号双引号都是小写书写没问题
2.去掉&或trim或同时去掉无效果(已验证) 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询