从查询表中获取列名称

Question

使用普通表，我可以使用

访问列名

SELECT column_name FROM INFORMATION_SCHEMA_COLUMNS WHERE table_name = '" & Tbl & "' "

它有效......

但在执行VBA代码期间，我还需要检索不是来自表的列名，而是从查询后得到的表中检索，如何在VBA中获取呢？

Dim Qry as QueryDef
Dim MrgTbls as QueryDef
Dim T1 as String
Dim T2 as String
Dim SQLJoin as String

...

Set MrgTbls = CurrentDb.CreateQueryDef(Qry.Name, SQLJoin)

... 后来我想创建一个查询，如

SELECT column_name FROM INFORMATION_SCHEMA_COLUMNS WHERE table_name = 'MrgT' 

由于表格MrgT不在INFORMATION_SCHEMA_COLUMNS中，因此

不返回任何内容，与其他表格不同。

Answer 1

要从QueryDef获取列名，您可以使用Fields集合：

Dim firstColumnName As String
firstColumnName = MrgTbls.Fields(0).Name

或者，您可以使用纯SQL以及MSysObjects和MSysQueries系统表。有关此表结构的详细信息，请参阅here。