Question

vb 修改密码 代码问题

其他的什么都没问题，就是改的密码一直是数据库里第一个用户的密码，怎么实现对应性的修改。比如说输入用户名后，修改的密码就是对应用户名的密码？下面是我的代码——
Private Sub Command1_Click()
If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Then 'text1是用户名拦 text2是旧密码栏 text3是新密码栏和text4是确认新密码栏
MsgBox "请重新输入!"
Else
If Text3.Text = Text4.Text Then ‘两次密码输入相同，就……

Adodc1.Recordset("passwd") = Text3.Text ‘text3是新修改的密码
Adodc1.Recordset.Update
MsgBox "密码修改成功！"
Unload Me
Else
MsgBox "密码不一致！"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text1.SetFocus
End If
End If
End Sub

这样做了，密码是能改，但是不能改相应用户的密码。一直改的是数据库里第一个用户的密码。肯定代码少写了
lzh741206 你的代码是放在什么位置呢能说清楚吗？我觉得你好象没明白我的意思。我是做了一个用户密码修改的窗体，当输入用户名和旧密码 还有新密码就实现了修改密码了。我的代码能改密码，但是问题是任何用户名的密码修改后，我查看数据库发现改动的是第一个用户名的密码。而不能实现对应的用户名的密码修改！能不能加你QQ

Answer 1

If Text3.Text = Text4.Text Then
Adodc1.Recordset.movefirst
Do While Adodc1.Recordset("name") <> text1.Text And Not Adodc1.Recordset.EOF
Adodc1.Recordset.movenext
Loop
If Adodc1.Recordset.EOF Then
MsgBox "没有找到"
Else
Adodc1.Recordset("passwd") = Text3.Text
Adodc1.Recordset.Update
MsgBox "密码修改成功！"
Unload Me
End If
Else
MsgBox "密码不一致！"
text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
text1.SetFocus
End If

Answer 2

Private Sub Command1_Click()
If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Then 'text1是用户名拦 text2是旧密码栏 text3是新密码栏和text4是确认新密码栏
MsgBox "请重新输入!"
Else

“lzh741206代码”

End If
End Sub

Answer 3

你可以先选择下用户
然后判断下text1.text是不是这个用户，如果是的话就修改，不是的就退出，这个样子就行了啊