UC知道vb登陆错误
来源：百度知道 编辑：UC知道 时间：2024/06/23 14:17:09
'验证用户名和密码是否正确
Function verify(userID As String, txtPWD As String) As Boolean
Dim idinfo As Recordset '记录集
Dim sqlstr As String '存储sql命令字符串
sqlstr = " select 学号，密码 from 密码 where 学号='" & userID & "'"
Set idinfo = courseDB.OpenRecordset(sqlstr, dbOpenSnapshot, dbReadOnly)
'到数据库中提取用户名和密码的记录
If (idinfo.RecordCount = 0) Then '无此用户名时
MsgBox "无此学号", , "登录"
verify = False
Else
If (idinfo.Fields("密码").Value = txtPWD) Then
verify = True '登录成功
Else
MsgBox "无效的密码，请重试！", , "登录"
verify = False
End If
End If
idinfo.Close
End Function
错误在 Set idinfo = courseDB.OpenRecordset(sqlstr, dbOpenSnapshot, dbReadOnly)提示错误3061参数不足，期待是1
Function verify(userID As String, txtPWD As String) As Boolean
Dim idinfo As Recordset '记录集
Dim sqlstr As String '存储sql命令字符串
sqlstr = " select 学号，密码 from 密码 where 学号='" & userID & "'"
Set idinfo = courseDB.OpenRecordset(sqlstr, dbOpenSnapshot, dbReadOnly)
'到数据库中提取用户名和密码的记录
If (idinfo.RecordCount = 0) Then '无此用户名时
MsgBox "无此学号", , "登录"
verify = False
Else
If (idinfo.Fields("密码").Value = txtPWD) Then
verify = True '登录成功
Else
MsgBox "无效的密码，请重试！", , "登录"
verify = False
End If
End If
idinfo.Close
End Function
错误在 Set idinfo = courseDB.OpenRecordset(sqlstr, dbOpenSnapshot, dbReadOnly)提示错误3061参数不足，期待是1
sqlstr = " select 学号，密码 from 密码 where 学号='" & userID & "'"
改为
sqlstr = " select 学号，密码 from 密码 where 学号=" & userID & ""
去掉了两个''符号
应该不是两个单引号的问题，而是"select 学号，密码……"之间的逗号是全形的，应该是"select 学号,密码……"
这句有错：
sqlstr = " select 学号，密码 from 密码 where 学号='" & userID & "'"
学号，密码 之间的逗号你用的是中文符号，应该改成英文的逗号！