vb 修改密码代码实时错误91

来源：百度知道 编辑：UC知道 时间：2024/06/14 16:24:40
关于修改密码的代码：
Private Sub Command1_Click()

If StrComp(Trim(txbNewPWD1.Text), Trim(txbNewPWD2.Text)) = 0 Then

Adodc1.Recordset.MoveFirst

Do While Adodc1.Recordset("UserID") <> Trim(txbUserID.Text) And _
Not Adodc1.Recordset.EOF

Adodc1.Recordset.MoveNext
Loop

If Adodc1.Recordset.EOF Then
MsgBox "没有找到！"
ElseIf Adodc1.Recordset("PWD") <> Trim(txbPWD.Text) Then
MsgBox "初始密码错误！"
txbPWD.Text = ""
txbNewPWD1.Text = ""
txbNewPWD2.Text = ""
txbPWD.SetFocus
Else
Adodc1.Recordset("PWD") = Trim(txbNewPWD1.Text)
Adodc1.Recordset.Update
MsgBox "密码修改成功！"
Unload Me
End If

Else
M

Private Sub Command1_Click()

If Trim(txbNewPWD1.Text)=Trim(txbNewPWD2.Text) Then
Adodc1.RecordSource = "select * from 表名 where 字段名='" & txbPWD.Text & "'"
Adodc1.Refresh

if adodc1.RecordSource.RecordCount<0 then

MsgBox "初始密码错误！"
txbPWD.Text = ""
txbNewPWD1.Text = ""
txbNewPWD2.Text = ""
txbPWD.SetFocus
else
Adodc1.Recordset("PWD") = Trim(txbNewPWD1.Text)
Adodc1.Recordset.Update
MsgBox "密码修改成功！"
Unload Me

endif
else

MsgBox "2次密码不一至！"

End Sub

VB错误91：对象变量或 With 块变量没有设置
你添加adodc控件了么？或者你的adodc控件名是adodc1么

Adodc1.Recordset.MoveFirst 放到If StrComp(Trim(txbNewPWD1.Text), Trim(txbNewPWD2.Text)) = 0 Then 前执行