欧莱雅男士油:vb求助:有谁知道"修改密码"的代码怎么改????

来源：百度文库编辑：杭州交通信息网时间：2024/04/30 11:22:29

Private Sub Command1_Click()
Dim rs_chang As New ADODB.Recordset
Dim sql As String
If Trim(Text1.Text) <> Trim(Text2.Text) Then
MsgBox "密码不一致！", vbOKOnly + vbExclamation, ""
Text1.SetFocus
Text1.Text = ""
Text2.Text = ""
Else
sql = "select * from 系统管理 where 用户名='" & userID & "'"
rs_chang.Open sql, conn, adOpenKeyset, adLockPessimistic
rs_chang.Fields(1) = Text1.Text
rs_chang.Update
rs_chang.Close
MsgBox "密码修改成功", vbOKOnly + vbExclamation, ""
Unload Me
End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

要改成什么样啊？

vb求助:有谁知道"修改密码"的代码怎么改???? VB:怎么修改数据库密码？有谁知道密码箱的密码怎么修改? 我的ACCESS中有三个表，如何用VB.NET进行密码修改有谁知道如何在Outlook Express里修改密码? 有谁知道MSN里的密码在哪里修改啊？？？有谁知道7host 的密码怎么修改吗？有谁知道，怎么、修改百度知道用户名的密码怎么修改"猫"的密码?? 怎样修改"知道"的密码?