VBA Excel 2003断开连接到DB对象

我看过这个代码执行。 它执行“closures”，然后“设置为无”。 然后它返回到'closures'，并抛出一个错误91“对象variables未设置块”。

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

如果你打电话closures与该对象有关的所有东西（Conn，Command和RS对象都设置为空）。 具体的规则在帮助。

不要这样做

 Set cnxRPTRS = Nothing 

不要那样

 Set cnxRPTRS = New ADODB.Connection 

你想做什么，做一个好孩子，你知道它在哪里。

closures和（重新）rs.open。 对于Command对象，检查Conn propery是否已设置。