使用VBA从Excel更新Access表中的数据

kyks70gy 于 2023-03-04 发布在其他

关注(0)|答案(1)|浏览(379)

我使用下面的代码（Insert Data from Excel into 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

excel

来源：https://stackoverflow.com/questions/40009260/update-data-in-an-access-table-from-excel-with-vba

1条答案

按热度按时间

enxuqcxy1#

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

Datasheet表中的警告前8行。假设有标题（HDR=YES），则接下来的6行应包含虚拟数据，以定义与访问表列定义等效的列。

赞(0）回复(0）举报 2023-03-04

我来回答

使用VBA从Excel更新Access表中的数据

1条答案

相关问题

热门标签

最新问答