如何在一个宏中合并多个 SQL 更新语句？

Question

我有以下通过 VBA 执行的更新语句。拥有多个更新语句似乎不是最佳选择。我如何将这些合并到一个语句中？这些语句更新 Access 数据库。

strSqlLoc = "UPDATE table1 AS type SET type.Value='" & Range("C" & i).Value & "' WHERE PropertyID=" & Range("B" & i).Value & ";"
strSqlEnv = "UPDATE table1 AS type SET type.Value='" & Range("E" & i).Value & "' WHERE PropertyID=" & Range("D" & i).Value & ";"
strSqlClass = "UPDATE table1 AS type SET type.Value='" & Range("G" & i).Value & "' WHERE PropertyID=" & Range("F" & i).Value & ";"

Set rs = cn.Execute(strSqlLoc)
Set rs = cn.Execute(strSqlEnv)
Set rs = cn.Execute(strSqlClass)

Answer 1

另一个更新

对于多行更新，Batch Update 似乎可以解决问题。

Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset

Dim strSQL As String
Dim lngUpdated As Long

rst.ActiveConnection = CurrentProject.Connection
rst.CursorType = adOpenKeyset
rst.CursorLocation = adUseClient
rst.LockType = adLockBatchOptimistic
rst.Open ("Select * from table1 ")

lngUpdated = 1

rst.Find "PropertyID=" & Range("B1")

Do Until rst.EOF
    rst("Value") = Range("C" & lngUpdated)
    lngUpdated = lngUpdated + 1
    rst.Find "PropertyID=" & Range("B" & lngUpdated), 1, adSearchForward
Loop

// Try repeating above for the other two columns?

rst.UpdateBatch

rst.Close
Set rst = Nothing

真的没有比这更好的了，除非您要更新的数据已经在数据库中的某个位置。您可以尝试here 中描述的 case 语句技术

更新：

我认为批量上传想法背后的直觉是，如果您能够以某种方式一次性获取服务器端的数据，那么您可以加入它并在一个更新语句中更新另一个表。如果您只更新三个值 - 考虑在访问端创建一个查询并在一次调用中传递您的六个参数，然后在查询中使用here 描述的技术