UC知道这段函数错在那里
来源：百度知道 编辑：UC知道 时间：2024/05/16 10:07:44
Function verify(userID As String, txtPWD As String) As Boolean
Dim idinfo As Recordset
Dim sqlstr As String
sqlstr = "select 号码，密码 from 密码 where 号码=" & userID
Set idinfo = 用户信息DB.OpenRecordset(sqlstr, dbOpenSnapshot, dbReadOnly)
If (idinfo.RecordCount = 0) Then
MsdBox "无该用户"
verify = False
Else
If (idinfo.Fields("密码").Value = txtPWD) Then
verify = False
End If
End If
idinfo.Close
End Function
提示用户信息.DB没定义
谁能知道应该怎么改 要加什么控件加什么语句 谢谢啊
Dim idinfo As Recordset
Dim sqlstr As String
sqlstr = "select 号码，密码 from 密码 where 号码=" & userID
Set idinfo = 用户信息DB.OpenRecordset(sqlstr, dbOpenSnapshot, dbReadOnly)
If (idinfo.RecordCount = 0) Then
MsdBox "无该用户"
verify = False
Else
If (idinfo.Fields("密码").Value = txtPWD) Then
verify = False
End If
End If
idinfo.Close
End Function
提示用户信息.DB没定义
谁能知道应该怎么改 要加什么控件加什么语句 谢谢啊
用户信息DB是你的数据库的连接，你应该改为：
dim 用户信息DB as oledbconnection（是oledb，呵呵，你自己决定）
Dim idinfo As Recordset
dim constring as string
constring="provider=供应商 datasorce=数据库的路径"
用户信息DB.open (constring) //你可以为用户信息DB.execute constring;(一般为执行查询是使用！)
;
;
;
用户信息DB.close
idinfo.close