Question

VB改密码要原密码 原密码要跟access数据库的一样

vb里面的text3是写原密码的
如果原密码要跟access数据库里面的密码是一样的，不是一样的不能修改这段代码应该怎么写？
在线等，来个人呗T_T 再问一个,如果密码错误清空密码怎么写？

Answer 1

假定Text1放的是用户名，Text2放的是新密码，Text3放的是原密码：

rs.open "select * from admin where [用户名]='" & Text1.Text & "' and [密码]='" & Text3.Text & "'", conn, 1, 3
If rs.EOF Then
   MsgBox "原密码输入错误，不能修改！"
   Text3.Text = ""    '密码错误清空密码
   Text3.SetFocus
Else
   rs("密码") = Text2.Text
   rs.Update
End If
rs.Close

Answer 2

If chkmm.Value = 1 Then '点击“修改密码”复选框
If Comboname.Text = "" Then '用户名为空的话，不能修改密码
r = MsgBox("没有选择用户！")
Exit Sub
End If

rec.MoveFirst
'以下判断用户名和密码是否一致
Do While Not rec.EOF '该循环取出数据库中和列表框中用户一致的密码
If rec.Fields("用户名") = Comboname.Text Then
Let mm = Trim(rec.Fields("登录密码"))
End If
rec.MoveNext
Loop
If Trim(Textpassword.Text) = mm Then '判断输入密码是否正确
If txtNewPassword.Text <> txtConPW.Text Then
r = MsgBox("新密码不一致！")
txtNewPassword.Text = "" '不一致的话，清空文本框，重新输入
txtConPW.Text = ""
txtNewPassword.Text = ""
Else
rec.Index = "PrimaryKey" '寻找数据库中的用户记录，修改相应密码
rec.Seek "=", Comboname.Text
rec.Edit
rec.Fields(1) = txtNewPassword.Text
rec.Update
r = MsgBox("密码修改成功！" )
Unload Me
Form首页.Show '用户名和密码正确的话显示Form登录界面窗体
End If
Else '就密码错误，则不能修改密码
r = MsgBox("旧密码错误！", )
Textpassword.Text = ""
Textpassword.SetFocus
Exit Sub
End If