实时错误3021 错误提示:BOF或EOF中有一个是真,或者当前的记录被删除,所需的操作是要求当前的一个记录
Private Sub Command2_Click()Unload Me
End Sub
Private Sub Command1_Click()
Dim txtSQL, MsgText As String
Dim mrc As ADODB.Recordset
If Trim(Text1.Text) <> Trim(Text1.Text) Then
MsgBox "密码输入不正确！", vbOKOnly + vbExclamation, "警告"
Text1.SetFocus
Text1.Text = ""
Else
txtSQL = "select * from user_Info where user_ID = '" & username & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
mrc.Fields(1) = Text1.Text
mrc.Update
mrc.Close
MsgBox "密码修改成功！", vbOKOnly + vbExclamation, "修改密码"
Me.Hide
End If
End Sub
谢谢各位了！
