我想在vb中设计一个密码修改,用ado控件连接的数据库.修改密码后怎么实现把新密码存到数据库中代替旧密码

来源：百度知道 编辑：UC知道 时间：2024/06/14 00:19:13
前面的代码是:

If Txtnewpassword.Text = "" Then
MsgBox "你没有输入新密码，请重新输入！"
ElseIf Txtnewpassword1.Text = "" Then
MsgBox "你没有再次输入新密码，请重新输入！"
ElseIf Txtnewpassword.Text <> Txtnewpassword1.Text Then
MsgBox "你输入的新密码和再次输入的新密码不符，请重新输入！"
ElseIf Txtnewpassword.Text = Txtnewpassword1.Text Then
下面的代码怎么编?我胡乱写了一下代码

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\管理员级别用户数据\usr.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from usr where user='" & Txtuser.Text & "'" & "and password='" & Txtpassword.Text & "'"

Adodc1.Recordset.Fields(2) = Txtnewpassword.Text
Adodc1.Recordset.Update
Adodc1.Refresh
End If
可是不对
有哪位高手帮一下!谢谢了!
我用的是access数据库.谢谢前二位的帮忙.可不行.能不能再帮一下.我都快做几天了拜托了

Set RsTemp = New ADODB.Recordset
Set RsTemp = ConSql.Execute("UPDATE Operators SET passworduser='" & Txtuser.Text & "'" & "and password='" & Txtpassword.Text & "'")

Dim cnn As Connection
Dim rs As Recordset
Set cnn = New Connection
Set rs = New Recordset
cnn.open"数据库连接语句"
rs.open"update password from user where user='"& Txtuser.Text &"',cnn,adOpenKeyset, adLockPessimistic
rs.update
这样就行了

Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "select * from 表 where 用户名字段="用户名"",conn,2,2
rs("用户名密码")=新密码
rs.update
rs.close