代码

cmt · 2023-5-31 14:48:38

chatGPT_小控发表于 2023-5-31 14:46
这个错误通常是由于在Recordset已经关闭的情况下，仍然对其进行了操作所导致。可以尝试将以下代码：

将其移动到关闭连接的代码之前。
关闭链接的代码是哪一句

chatGPT_小控 · 2023-5-31 14:48:49

cmt 发表于 2023-05-31 14:48
将其移动到关闭连接的代码之前。
关闭链接的代码是哪 ...

在你的代码中，关闭连接的代码是在Sub过程结尾处的一段注释掉的代码：

'objRe.Close
'objCon.Close
'Set objRe = Nothing
'Set objCom = Nothing
'Set objCon = Nothing

复制代码

你需要将以下代码：

If Not (objRe Is Nothing) Then
objRe.Close
Set objRe = Nothing
End If

复制代码

移动到这段注释代码之前即可。

cmt · 2023-5-31 14:52:43

chatGPT_小控发表于 2023-5-31 14:48
在你的代码中，关闭连接的代码是在Sub过程结尾处的一段注释掉的代码：

If Not (objRe Is Nothing) Then
objRe.Close
Set objRe = Nothing
End If
If Not (objCom Is Nothing) Then
Set objCom = Nothing
End If
If Not (objCon Is Nothing) Then
objCon.Close
Set objCon = Nothing
End If

objRe.Close
objCon.Close
Set objRe = Nothing
Set objCom = Nothing
Set objCon = Nothing
是这样吗

chatGPT_小控 · 2023-5-31 14:53:07

cmt 发表于 2023-05-31 14:52
If Not (objRe Is Nothing) Then
objRe.Close
...

是的，这样修改后可以先关闭查询结果对象objRe，再关闭数据库连接对象objCon，最后将三个对象都设为Nothing释放内存。修改后的完整代码如下：

Dim objCon, objCom, objRe
Dim strCon, sbb, ebb, zf, sq1
'创建数据库连接
Set objCon = CreateObject("ADODB.Connection")
strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MyDatabase.mdb;"
objCon.Open strCon
'创建命令对象
Set objCom = CreateObject("ADODB.Command")
'设置查询条件
sbb = "value1"
ebb = "value2"
zf = "value3"
'构造SQL语句并执行查询
sq1 = "select * from beng_1 where ='" & sbb & "' and ='" & ebb & "' and ='" & zf & "'"
objCom.Activeconnection = strCon
objCom.CommandType = 1
objCom.CommandText = sq1
Set objRe = objCom.Execute
'处理查询结果，如输出到屏幕或写入文件
'关闭对象及释放内存
If Not (objRe Is Nothing) Then
objRe.Close
Set objRe = Nothing
End If
If Not (objCom Is Nothing) Then
Set objCom = Nothing
End If
If Not (objCon Is Nothing) Then
objCon.Close
Set objCon = Nothing
End If

复制代码

cmt · 2023-5-31 15:03:40

chatGPT_小控发表于 2023-5-31 14:53
是的，这样修改后可以先关闭查询结果对象objRe，再关闭数据库连接对象objCon，最后将三个对象都设为Nothi ...

不行，同样的错误

chatGPT_小控 · 2023-5-31 15:03:54

cmt 发表于 2023-05-31 15:03
不行，同样的错误

如果修改后依然存在错误，可能有以下几个方面需要检查：

1. SQL语句中的表名以及字段名是否正确，包括大小写、空格等问题。

2. 确认数据库连接字符串strCon中指定的是正确的数据库文件路径和数据源。

3. 检查变量sbb、ebb、zf的取值是否正确。

4. 确认数据库表beng_1中是否存在数据，并且这些数据是否符合查询条件。

5. 检查代码中是否有其他错误，比如缺少变量声明或者对象操作不当等问题。

如果以上方面都检查过了，还是无法解决问题，可以考虑提供更多的信息，比如完整的错误提示、系统环境等，以便更好地分析和解决问题。