VB密码更改

Private Sub Command1_Click()
On Error Resume Next
Dim conn As New ADODB.Connection
Dim Rs As ADODB.Recordset
Dim str
str = App.Path
If Right(str, 1) <> "\" Then
str = str + "\"
End If
str = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & str & "\sparta.mdb"
SQL = "select 密码 from 助教信息 where 用户名='sparta'"
Set Rs = New ADODB.Recordset
Rs.Open SQL, str, 1, 3
If Trim(Text1.Text) = Trim(Rs.Fields(0).Value) Then
SQL = "update 助教信息 set 密码='" & Text2.Text & "'"
conn.Execute (SQL)
Text1.Text = ""
Text2.Text = ""
MsgBox "修改成功！", , "提示信息"

Else
MsgBox "原密码错误！", , "提示信息"
End If
End Sub

代码如上

但登陆时 还是用原密码登陆，意思就是 改完了 没生效

缺少where语句吧SQL = "update 助教信息 set 密码='" & Text2.Text & "' where 用户名='sparta'"

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息