登录问题??请帮忙
本人刚刚学VB,我想做一个登录框,在text1中输入ID,text2中输入密码。
然后把他们和access中数据库中的assistant表中的ID和密码比较,为什么运行时会有错误?
Private Sub Command1_Click()
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim StrSql As String
cnn.Open "provider=Microsoft.Jet.OLEDB.4.0;data source=" & App.Path & "\libary1.mdb"
rs.Open "select 1 from [assistant] where ID='" & Text1.Text & "' and 密码='" & Text2.Text & "'", cnn, adOpenKeyset, adLockBatchOptimistic
If rs.EOF Then
MsgBox "不存在此用户名与密码"
Else
'登录
End If
rs.Close
End Sub
然后把他们和access中数据库中的assistant表中的ID和密码比较,为什么运行时会有错误?
Private Sub Command1_Click()
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim StrSql As String
cnn.Open "provider=Microsoft.Jet.OLEDB.4.0;data source=" & App.Path & "\libary1.mdb"
rs.Open "select 1 from [assistant] where ID='" & Text1.Text & "' and 密码='" & Text2.Text & "'", cnn, adOpenKeyset, adLockBatchOptimistic
If rs.EOF Then
MsgBox "不存在此用户名与密码"
Else
'登录
End If
rs.Close
End Sub
...全文
相关推荐
金蝶KIS专业版登录时出现问题请重新输入终极解决全过程
KIS专业版登录时出现问题请重新输入终极解决全过程
Facebook登录报错:将你登入到此应用程序时出错,请稍后再试。
这里帖几个有解决问题指导方向的连接: stackoverflow “Login Error: There is an error in logging you into this application. Please try again later” facebook login troubleshoot facebook 关于Login Error: There is an error in logging you into this application. Please try again later. 的讨论帖子 总结一下就是facebook sdk的bug,需要你更新一下hash
通达 2017版微信token信息变更后提示“您的登录账户有问题,请验证后再登录”兼容包
通达 2017版微信token信息变更后提示“您的登录账户有问题,请验证后再登录”兼容包
Oracle用sysdba登录问题
Oracle数据库用sysdba登录的时候,不需要提供用户名/密码,或者输入不存在的用户名/密码,也能成功,原因是采用了OS验证方式。
退出登录后点击后退问题解决方案
能够很好的解决登录后 点击退出按钮后 仍能用浏览器后退返回的问题


数据库(包含打印,安装,报表)
