这个函数错在哪里?

来源:百度知道 编辑:UC知道 时间:2024/03/29 21:08:29
如下:老实提示"参数不足,期待是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

sqlstr = " select 学号,密码 from 密码 where 学号='" & userID & "'"

请确认有“密码”这个表,并且表里有“密码”和“学号”两个字段
并且“学号”字段不是数值等不能用单引号的类型

sqlstr = " select 学号,密码 from 密码 where 学号=" & userID

sqlstr = \" select 学号,密码 from 密码 where 学号=\'\" & userID & \"\'\"
这里好象有问题啊!

我同意楼上的意见