使用SQL將列添加到MS Access中的多個表

Question

我有一個將近200個表的Access數據庫。 我想重命名其中許多字段（以便在分析R中的數據時更加輕松）。 我發現您不能簡單地在Access中重命名字段，而必須通過添加新列，傳輸數據然后刪除舊列的困難方式來做到這一點。

有沒有一種方法可以使用SQL一次對多個表（或多個表和列）執行此操作？

我嘗試了這個：

ALTER TABLE * FROM MSysObjects ADD COLUMN colname NUMBER

以及這個：

ALTER TABLE table1, table2, table3... ADD COLUMN colname NUMBER

但似乎都不起作用。

這有可能嗎？ 有誰知道該怎么編碼？

Answer 1

“有沒有一種方法可以使用SQL一次對多個表（或多個表和列）執行此操作？”

否。這超出了Access SQL的能力。 您將需要執行一系列語句，每個語句只能更改一個表。

您可以創建一個VBA過程來構建和執行這些語句。 但是，如果您願意使用VBA，請考慮簡單地通過DAO對象模型重命名列。

這是立即窗口中的一個簡單示例：

? CurrentDb.TableDefs("tblFoo").Fields("some_text").Name
some_text
CurrentDb.TableDefs("tblFoo").Fields("some_text").Name = "some_text2"
? CurrentDb.TableDefs("tblFoo").Fields("some_text2").Name
some_text2