vb 修改密码 代码问题

来源:百度知道 编辑:UC知道 时间:2024/06/25 15:44:27
其他的什么都没问题,就是改的密码一直是数据库里第一个用户的密码,怎么实现对应性的修改。比如说输入用户名后,修改的密码就是对应用户名的密码?下面是我的代码——
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 你的代码是放在什么位置呢能说清楚吗?我觉得你好象没明白我的意思。我是做了一个用户密码修改的窗体,当输入用户名和旧密码 还有新密码就实现了修改密码了。我的代码能改密码,但是问题是任何用户名的密码修改后,我查看数据

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

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

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