从Excel工作表数据更新Access数据库

Question

我使用宏将Access数据库中的数据提取到Excel工作表中。 我首先打开与数据库的连接，在字符串var中定义我的sql语句，然后将该数据转储到记录集中：

Dim db As Database
Dim rs As RecordSet
Dim sql As String
Dim dbLocation As String

dbLocation = ThisWorkbook.Path & "\database\data.accdb"
Set db = OpenDatabase(dbLocation)
sql = "Select * FROM [Master Table]"
Set rs = db.OpenRecordSet(sql, dbOpenSnapshot)

If Not rs.EOF Then
   Worksheets("Sheet1").Range("A1").CopyFromRecordset rs
End If

rs.Close
Set rs = Nothing
db.Close
Set db = Nothing

这很完美。 我将其分发给某些人，并要求他们更新字段。 然后，我需要使用传回的数据更新Access数据。 就设计而言，简单的事情是提取的excel数据在结构上镜像了访问数据库，因此更新查询应该很简单。 还有一个主键，所以我只需要映射该字段即可。

任何想法如何做到这一点？ 我可以将整个Excel数据表加载到记录集中并运行一些时髦的更新查询吗？

Answer 1

您需要循环遍历工作表1上的行，并为每一行制作sql字符串，如下所示：

"update [Master table] set
  TableField1 = " & Range(Row, Col1).Value & ","
  TableField2 = " & Range(Row, Col2).Value & ","
  ...
where IDTableField = " & Range(Row, IDColNum).Value

然后做

db.Execute thatString

PS：我的语法可能有误。 并且在创建字符串时需要将单元格值转换为字符串。

Answer 2

使用DAO的shibormot解决方案的扩展：

Set objConnection = CreateObject("DAO.DBEngine.36")
Set db = objConnection.OpenDatabase(strDBPath, blnExclusive, blnReadOnly, strPassword)

For Each row In Range("A1:C3").Cells
    strSQL = "UPDATE table SET "
    strSQL = strSQL & "Field1 = " & Chr(34) & row.Cells(1) & Chr(34) & ","
    strSQL = strSQL & "Field2 = " & Chr(34) & row.Cells(2) & Chr(34) & ","
    strSQL = strSQL & "Field3 = " & Chr(34) & row.Cells(3) & Chr(34)
    Db.Execute
Next

放入chr（34）以获取字符串数据