使用VBA ADODB连接更新SQL数据库

Question

我一直在使用ADODB进行SQL查询，以返回数据并将其从记录集复制到工作簿已有一段时间，并且新任务是更新记录，但是我不知道如何更新记录。

这是我的代码的示例：

Dim con As ADODB.Connection
Dim rec As ADODB.Recordset

Set con = New ADODB.Connection
Set rec = New ADODB.Recordset

Dim sql As String

With con
    .Provider = "MSDASQL"
    .ConnectionString = "DSN=ukfast"
    .Open
End With

sql = "UPDATE crm_clients " & _
      "SET cheque_number = '" & chqNo & "' " & _
      "WHERE id = '' "

对于选择数据，它与recordset.copyFromRecordset一样容易，但是我不知道将更新推回数据库的任何线索。 我尝试了.update方法，但它仅适用于记录集本身而不适用于数据库。 我也一直在寻找某种执行方法，但是简短。

使用VBA更新记录的正确方法是什么？

Answer 1

您可以为此使用连接对象的Execute方法：

con.Execute(sql)