密码的修改

Question

我有一个操作员管理表，其中有一个操作员秘码字段，我想在客户端编一个修改密码的窗口如何编，请高手们指点。谢谢了......

Answer 1

cn.Execute "update users set password='" & txtnew.Text & "'"

Answer 2

增加一个form.
放上三个文本框控件.依次要求用户输入的是:
旧密码
新密码
确认新密码再放一个确定按纽
写上如下代码:if 新密码=确认新密码 then
db.execute "update 操作员管理表 set 密码='" & 新密码 & "' where 用户=用户名 and 密码='"  & 旧密码 & "'"
end if

Answer 3

模块
Public Function ExecuteSQL(sql As String) As ADODB.Recordset
Dim cn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim msg As String
On Error GoTo executesql_error
Set cn = New ADODB.Connection
'cn.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source="
'cn.Open "Provider=SQLOLEDB;Driver={SQL Server};Server=;Uid=sa;Pwd=;database="'通用行连接也可以适应WIN98
cn.Open "Driver={SQL Server};Server=ING-KHQ0TJT0A53;Uid=;Pwd=;database=发票管理"
Set rst = New ADODB.Recordset
rst.Open Trim$(sql), cn, adOpenStatic, adLockOptimistic
Set ExecuteSQL = rst
executesql_exit:
Set rst = Nothing
Set cn = Nothing
Exit Function
executesql_error:
msg = "错误原因：" & Err.Description
Resume executesql_exit
End Function
操作
Private Sub Command4_Click() '修改密码的确定键
Dim rs As New ADODB.Recordset
Dim sql As String
Dim s$, done As String, pass As String
s = Combo1.Text
sql = "select * from useing where username='" & s & "'"
Set rs = ExecuteSQL(sql)
If rs.EOF Then
Exit Sub
Else
done = rs!doing
pass = rs!password
End If
If Trim(pass) = Trim(Text4.Text) And Trim(Text5.Text) = Trim(Text6.Text) Then
rs!password = Trim(Text5.Text)
rs.Update
Set rs = Nothing
MsgBox ",密码修改成功，下次进入系统新密码生效", vbOKOnly, "错误"
ElseIf Trim(Text5.Text) <> Trim(Text6.Text) Then
MsgBox "两次密码输入不对，请重新输入", vbOKOnly, "错误"
Text5.Text = ""
Text6.Text = ""
ElseIf pass <> Trim(Text4.Text) Then
MsgBox "旧密码输入不对，请重新输入", vbOKOnly, "错误"
Text4.Text = ""
End IfEnd Sub