实时错误3704 对象关闭时,不允许操作

2024-12-25 04:19:42
推荐回答(2个)
回答1:

你这个内容我也做过,也是连接数据库,用户 密码,验证后修改密码。不过我不知道你错误的是那里,所以我不想乱说。
哪么我说说自己的看法,一个就是你在连接数据库中一个表的时候没有吧指针放在表的第一项,而有可能指针在最后一项。
再有一个可能就是你代码中有那里有错误。用F8慢慢的一行一行看吧。
给你一个我的代码,不过我用的是Adodc连接的数据库,效果一样!
*command1为修改密码按钮,表中有两项,一个为“用户名称”和另一个为“用户密码”希望对你有帮助。
Private Sub Command1_Click()
On Error GoTo errorhandle

Dim finduser As Boolean
finduser = False
Adodc1.Refresh
Adodc1.Recordset.MoveFirst '将记录指针移动到首记录

If Trim(Text1.Text = "") Then
MsgBox "请输入你需要更改密码的用户名称!", vbOKOnly + vbExclamation, "警告"
Text1.SetFocus
Exit Sub
Else
Do While Not Adodc1.Recordset.EOF '判断数据表是否已经读完,即遍历整张表
If Adodc1.Recordset.Fields("用户名称") = Trim(Text1.Text) Then 'field就是某个字段
finduser = True

If Trim(Text2.Text) = Trim(Text3.Text) Then
Adodc1.Recordset.Fields("用户密码") = ZhuanHuan(Trim(Text2.Text))
Adodc1.Recordset.Update
Adodc1.Recordset.MoveFirst
MsgBox "密码已经修改!", vbOKOnly + vbExclamation, "提示"
Unload Me
Exit Sub
Else
MsgBox "你输入的两次密码不同,请重新输入!", vbOKOnly + vbExclamation, "警告"
Text2.Text = ""
Text3.Text = ""
Text2.SetFocus
End If

End If
Adodc1.Recordset.MoveNext '记录往下移动一条
Loop
If finduser = False Then
MsgBox "没有这个用户,请重新输入!", vbOKOnly + vbExclamation, "警告"
Password.Text = ""
UserName.SetFocus
UserName.Text = ""
End If
End If

errorhandle:
MsgBox "您的操作有误!", vbOKOnly + vbExclamation, "错误"

End Sub
另外,团IDC网上有许多产品团购,便宜有口碑

回答2:

不过我不知道你错误的是那里,所以我不想乱说。哪么我说说自己的看法,一个