VB修改数据库密码代码

Dim str As StringIf Text23.Text = "" Then

MsgBox "密码不能为空！", vbInformation + vbOKOnly, "提示您"

Exit Sub

End IfIf Text23.Text <>Text24.Text Then

MsgBox "两次输入的密码不一致！", vbInformation + vbOKOnly, "提示您"

Exit Sub

End Ifstr = "update 登录表 set 密码='" &Text23.Text &"' where 用户='" &Text21.Text &"'" If executesql(str) = True Then

MsgBox "密码已经修改！", vbInformation + vbOKOnly, "提示您"

Text23.Text = ""

Text24.Text = ""

Else

MsgBox "修改密码失败，有问题请联系管理员！", vbInformation + vbOKOnly, "提示您"

End If

Private Sub Command1_Click()

If Text1.Text <>GetSetting(App.Title, "Settings", "密码", "") Then MsgBox "密码错误。请重新输入": Exit Sub

If Text2.Text <>Text3.Text Then MsgBox "两次输入不一样，请重新输入": Exit Sub

SaveSetting App.Title, "Settings", "密码", Text2.Text

MsgBox "修改成功！"

Unload Me

End Sub

---