使用 VBA 從 Excel 更新 Access 表中的數據

Question

我使用此處的代碼將數據從 Excel 中的一行插入到 Access 表中（將數據從 Excel 插入 Access中）。

由於相同的主鍵值，插入表中已經存在的記錄時出現問題。

我想更新記錄或刪除記錄並使用相同的密鑰輸入新記錄。

Dim Connect As ADODB.Connection
Set Connect = New ADODB.Connection

Connect.Open "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=C:\Users\ExcelFileName.xlsm;Extended Properties=Excel 8.0;" & "Persist Security Info=False"
Connect.Execute "INSERT INTO tbl_TCM_MAA_Data IN 'C:\DataBaseFileName.accdb' SELECT * FROM [SheetName$A2:O2]"

Connect.Close
Set Connect = Nothing

Answer 1

xlFilepath = Application.ThisWorkbook.FullName

Set Var = Sheets1.Range("A1")

Connect.Execute "Delete * FROM [TableName] WHERE [Column Name] = " & Var & ""

SQL = "INSERT INTO tbl_TCM_MAA_Data " & _

"SELECT * FROM [Excel 12.0 Macro;HDR=YES;DATABASE=" & xlFilepath & "].[SheetName$A2:O2] where [Column Name] > 1"

Connect.Execute SQL

數據表表中的警告前 8 行。 假設有一個標題 (HDR=YES)，接下來的 6 行應該包含一個虛擬數據來定義與訪問表列定義等效的列。