Question

VB修改数据库密码代码

知道的请把修改密码的代码写下来

Answer 1

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

Answer 2

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

Answer 3

太复杂了,给人家一个简单点的吧