从 Excel 数据更新 Access 表中的数据和关系

Question

所以我从 Excel 中导入数据，并使用 DoCmd.TransferSpreadsheet 从它们那里获得的数据创建新表。我想要做的是让这些新表在我导入它们时替换我的数据库中的旧表，同时保持关系完好无损，这样我就可以用一个按钮完全自动化这个过程。由于不断添加和删除数据，我认为 UPDATE 查询方法不会起作用（尽管我可能是错的，因为我对 SQL 比较陌生）。我希望有一种方法可以删除表中的所有数据，然后使用 VBA 从新表中重新填充。这可能吗？

Answer 1

假设您的表被命名为“T1”、“T2”、“T3”，并且按关系顺序排列，请尝试以下作为一种可能的解决方案。只需在导入代码之后添加此代码（更改表名）：

Dim strSQL  As String
strSQL = "delete * from T3;"     ' Delete all existing rows
CurrentDb.Execute strSQL
strSQL = "delete * from T2;"
CurrentDb.Execute strSQL
strSQL = "delete * from T1;"
CurrentDb.Execute strSQL

' Insert new rows from imported tables.
strSQL = "INSERT INTO T1 SELECT Import1.* FROM Import1;
CurrentDb.Execute strSQL
strSQL = "INSERT INTO T2 SELECT Import2.* FROM Import2;
CurrentDb.Execute strSQL
strSQL = "INSERT INTO T3 SELECT Import3.* FROM Import3;
CurrentDb.Execute strSQL