查人人中国名人网泰坦之旅占卜师武器:怎么在VB中进行用户登录验证（与数据库结合）？
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/06 17:51:11
举例说明
cnn 是数据库连接 rst 是记录集 sql 是sql语句
sql="select username,password from 表名"
rst.open sql,cnn,adOpenKeyset, adLockReadOnly, adCmdText
if not rst.eof then ''如果有多条就循环
用户名=rst.fields("username")
密码=rst.fields("password")
end if
rst.close
set rst=nothing
登录系统? 系统这个词不是可以随便用的!
public function validateUser(byval userName as string, byval inputPwd as string) as boolean
..dim cnn as adodb.connection:set cnn = new connection
..cnn.open connectString
..if (cnn.state = is_opened)then
....dim cmd as adodb.command:set rst = new command
....set cmd.activeconnection = cnn
....cmd.commandtext = "select pwd from myuser where name=?"
....with cmd.execute( , userName)
......validateUser = (.field(0).value = inputpwd)
....end with
..else
....err.raise ......
..endif
end function
用数据库不安全,建议加密数据库!!!