VBA Excel 2003 断开连接到数据库对象

Question

我看过这段代码的执行。它执行"关闭"，然后执行"设置为无"。然后它返回到"关闭"并抛出错误 91"未设置块的对象变量"。

Public Sub closeItDown()
   ' CLEAN UP and SHUT DOWN
   cnxRPTRS.Close
   Set cnxRPTRS = Nothing
End Sub

我已经在许多"应用程序"中使用了这段代码。但是这次我多次使用它和启动例程连接和断开与数据库的连接。这是为了清除所有临时表并从一组不同的情况开始。这是为了解决另一个问题，我只想结束。

Set cnxRPTRS = New ADODB.Connection
cnxRPTRS.Open strForCNX 'Open the connection.
...

第一次通过没有问题第二次

是问题发生的时候。

Answer 1

如果调用 close 与该对象相关的所有内容(Conn、Command 和 RS 对象设置为无(。具体规则在帮助中。

别这样

Set cnxRPTRS = Nothing

不要这样

Set cnxRPTRS = New ADODB.Connection

你想干什么，做个好孩子，你知道它在哪里吗？

只需关闭并(重新(打开。对于命令对象，请检查是否设置了 Conn 属性。