请问高手,如何判断用户输入的password是否与数据库中的password相等?

[slider]

请问高手,如何判断用户输入的password是否与数据库中的password相等?
(或者说如何是使select语句得到的password和form中的txtpassword进行比较)
最好能举个例子

[jisheng]

什么？不明白也有分？呵～～

[cqq_chen]

DragonJiang(飞龙)
给的挺详细的了，应该得分。
不过一般情况下PASSWORD都要通过加密的，所以应该再加一些东东比较些。

[syzaol]

Private Sub cmdok_Click()
'ToDo: 创建测试密码是否正确
'检查正确密码
Dim pwdtext As String
Dim user As String
Dim userquery As String
user = txtusername.Text
pwdtext = txtpassword.Text

Set dbm = New Connection
dbm.CursorLocation = adUseClient
dbm.Open "PROVIDER=MSDASQL;dsn=kaoqin1;uid=;pwd=;"

Set adoPrimaryRS = New Recordset
userquery = "select pass from userinfo where username='" & user & "'"
adoPrimaryRS.Open userquery, dbm, adOpenStatic, adLockOptimistic
If Not (adoPrimaryRS.BOF And adoPrimaryRS.EOF) Then
'此用户存在
If adoPrimaryRS!pass = pwdtext Then
OK = True
Unload Me

Else: MsgBox "密码错误，再试一次！", , "登录"
txtpassword.SetFocus
txtpassword.SelStart = 0
txtpassword.SelLength = Len(txtpassword.Text)
End If
Uname = user
adoPrimaryRS.Close
Set adoPrimaryRS = Nothing
dbm.Close
Set dbm = Nothing
txtpassword.Text = ""
Else: MsgBox "无此用户，重试！", , "警告"
txtusername.SetFocus
txtusername.SelStart = 0
txtusername.SelLength = Len(txtpassword.Text)
End If

End Sub

很好用，你做一下修改就可以了

[DragonJiang]

假设有一个数据库,数据库名为Test表，表名为User，你输入用户名与密码的地方是TextBox 名字分别为txtUserName和txtPassword
则可以按下面的来写：

Dim cnTemp As New ADODB.Connection
Dim rsTemp as New ADODB.RecordSet

cnTemp.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Test";Persist Security Info=False"
cnTemp.Open
rsTemp.Open "Select * From [User] Where User.UserName='"+txtUserName.Text+"',cnTemp,adOpenKeyset, adLockOptimistic

if txtPassword.text=rs.Field("Password") then
msgbox "登录成功"
else
msgbox "登录失败"
endif

rsTemp.close
cnTemp.close
set rstemp=nothing
set cntemp=nothing

看的明白吗？
明白了给分，我要分
不明白也给分，
再发Mail给我 [e-mail]
QQ:10808188