vb 修改密码 代码问题
其他的什么都没问题,就是改的密码一直是数据库里第一个用户的密码,怎么实现对应性的修改。比如说输入用户名后,修改的密码就是对应用户名的密码?下面是我的代码——Private...
其他的什么都没问题,就是改的密码一直是数据库里第一个用户的密码,怎么实现对应性的修改。比如说输入用户名后,修改的密码就是对应用户名的密码?下面是我的代码——
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 展开
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 展开
3个回答
展开全部
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
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
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是不是这个用户,如果是的话就修改,不是的就退出,这个样子就行了啊
然后判断下text1.text是不是这个用户,如果是的话就修改,不是的就退出,这个样子就行了啊
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询