高手帮看一下

最新推荐文章于 2023-06-15 21:36:42 发布

dufuguang

最新推荐文章于 2023-06-15 21:36:42 发布

阅读量273

点赞数

文章标签： security 数据库 user

本文链接：https://blog.csdn.net/dufuguang/article/details/3195089

版权

高手帮看一下，编译时为何说from语法错误。下面代码到底哪个地方有问题？感激

'查询数据库中是否存在满足条件的用户名
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
strSql = "select * from user where username ='" & strUserName & "'" & " AND password='" & strPassword & "'; " //????
connString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/Data/user.mdb;Persist Security Info=False"//????
conn.Open connString
rs.Open strSql, conn
If rs.EOF Then
count = count + 1
MsgBox "用户名不存在！", vbCritical, "=登录失败="
txtUser.Text = ""
txtPassword = ""
txtUser.SetFocus
Else
LoginSucceeded = True
userid = strUserId
UserName = rs("username").Value
frmMain.Show
End If
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing