登录问题??请帮忙

purerain purerain 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
本人刚刚学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


...全文

相关推荐

评论 4
收藏 已收藏
分享
返回顶部