Question

VB小程序，运行时报“3704”错误，提示“对象关闭时，不允许操作”怎么解决？

Private Sub checkpasswd() '验密
Dim Mycon As ADODB.Connection '定义一个连接对象
Dim Myrt As ADODB.Recordset '定义一个记录集对象
Dim Mystr As String
Dim ssql As String

Set Mycon = New ADODB.Connection '建立一个新的连接对象。
Set Myrt = New ADODB.Recordset '建立一个新的记录集对象。
Myrt.CursorLocation = adUseClient '定义记录集的游标类型

Mystr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=.\dcode.dll"
Mycon.Open Mystr '打开数据库
ssql = "select code,isuse from fundcode where pwd='" & passwd.Text & "'"
Myrt.Open ssql, Mycon, 3, 1
If Myrt.BOF And Myrt.EOF Then
MsgBox "密码错误！", 16, "文件解密失败！"
passwd.Text = ""
passwd.SetFocus
Else

If Myrt("isuse") = "1" Then
Myrt.Close
Mycon.Close
MsgBox "该密码已使用,不能重复使用！", 16, "文件解密失败！"
End
End If

Call writefile(filepath.Text, Myrt("code"))
Myrt.Close
Mycon.Close

Mycon.Open Mystr
ssql = "update fundcode set isuse='1' where pwd= '" & passwd.Text & "'"
Myrt.Open ssql, Mycon, 1, 1
Myrt.Close
Mycon.Close
MsgBox "解密成功！"
End If

End Sub

Answer 1

如果你重装系统或杀毒没把数据库安装和数据所在的文件破坏的话，应该是可以的。不过对于这样恢复我没试过，你可重新安装数据库，但数据库起名、存放路径（把原来的移到其他地方）、字符集都和原来一样。最后用原来的文件把新的替换试试。不过我不保证这方法可行。

Answer 2

Mystr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=.\dcode.dll"
Mycon.Open Mystr '打开数据库
ssql = "select code,isuse from fundcode where pwd='" & passwd.Text & "'"
Myrt.Open ssql, Mycon, 3, 1
不明白，Source=.\dcode.dll？？？
1、Source=的是一个字符串，你可以用一个变量，使用Source=" & 变量。
2、*.dll是应用程序扩展，不是数据库！access数据库的扩展名是mdb
例如：
Dim strSTR As String
strSTR = App.Path & "\数据库名.mdb"
Mycon.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & strSQL

Answer 3

If Myrt("isuse") = "1" Then
Myrt.Close
Mycon.Close
MsgBox "该密码已使用,不能重复使用！", 16, "文件解密失败！"
End
End If
。。。。
Myrt.Close
Mycon.Close
上面已经关闭了，下面再次关闭就抱错了，逻辑问题！

Answer 4

数据库连接有问题。

Answer 5

数据库没打开，逐步调试，找出报错语句