Question

我花了几个小时寻找类似的问题。虽然有一些回复，我找不到任何点。

基本上，我有两张桌子。一个是标准访问表（ table1 ），另一个是从Excel导入的表（ table2 ）。现在table2有表1的字段名称，还有一些我不需要的额外字段。现在我希望访问比较这两个表并将表2中可以匹配的任何字段的内容复制到表1中。

我尝试了INFORMATION_SCHEMA.COLUMNS，但代码似乎没有识别出这个表达式。

请有人建议一些想法！如果需要，可以提供更多详细信息。

非常感谢..

萨兰

Answer 1

这样的东西会给你字段名称。如果是静态字段名称，id建议导入到表中，从当前导入中删除，并且每次删除并追加导入，并按照建议使用连接。

Dim a As ADODB.Connection

Set a = New ADODB.Connection

Dim r As ADODB.Recordset

Set a = CurrentProject.Connection

Set r = a.OpenSchema(adSchemaColumns)
r.Filter = "[TABLE_NAME]='Your table name'"

或其他方式

r.open "Select * from table",a,1
loop r.fields

比较两个表的字段名称

1 个答案: