VBA ODBC 更新

Question

这是我用来更新 SQL 数据库的代码：

Public Sub main()

    Dim cnn As ADODB.Connection
    Dim rst As ADODB.Recordset

    Set cnn = New ADODB.Connection
    Set rst = New ADODB.Recordset

    cnn.Open "ConnectionName"
    rst.ActiveConnection = cnn
    rst.CursorLocation = adUseServer

    rst.Source = "Update Table ..."
    rst.Open

    Set rst = Nothing
    Set cnn = Nothing
End Sub

我想知道的是打开第一个对象后是否以及如何处理它。我要关闭它吗？当我尝试执行 rst.Close 时，出现错误：“对象关闭时不允许操作”。该代码在没有 rst.Close 的情况下工作正常，我想知道不关闭该对象是否有任何危险。

Answer 1

更新不返回任何行，因此无需打开记录集。

您可以直接使用以下命令执行语句：

Connection.Execute "Update Table ...", [flags]

要回答您的问题，在 .Open 之后，记录集被关闭（其.state 将是 adStateClosed），因为没有返回任何数据，因此将其设置为空就足够了。

Answer 2

UPDATE 操作不返回结果集。因此，如果使用 Recordset 对象执行，则会产生一个空且关闭的记录集。无论如何它都无法关闭，因为它从未被打开过。

经验法则是：

if rst.State <> adStateClosed then rst.Close

但是，因为您执行的命令无论如何都不会返回数据，所以首选方法是：

dim cm as ADODB.Command
set cm = new adodb.command
set cm.activeconnection = cnn
cm.commandtype = adCmdText
cm.commandtext = "UPDATE ..."

cm.execute ,, adExecuteNoRecords

或者，如果您的 SQL 是没有参数的固定字符串，

cnn.execute "UPDATE ...",, adExecuteNoRecords

另外，请更改 rst.ActiveConnection = cnn 到 设置 rst.ActiveConnection = cnn。