如何使用Access VBA在QueryDef中添加字段（列）

Question

我正在尝试使用Fields.Append方法在querydef中添加新字段。首先，我尝试了以下代码：

Dim myField as Field    
myQueryDef.Fields.Append myField

然后，我尝试如下：

myQueryDef.Fields.Append "my_field_name"

然后没有工作。也许，缺少一些东西。也许不吧。如果你们中的任何一个人知道怎么做，请帮助我。我很感激你的帮助。

我还需要在querydef（第二个位置）的特定位置添加这个新字段。

提前感谢。

Answer 1

将字段添加到QueryDef对象的唯一方法是更改​​.SQL属性中的SQL语句以输出其他列。是的，QueryDef对象具有.Fields属性，但它是只读的（ref：here）。

Answer 2

最简单的方法（见Gords答案）是：

dim SQLstring as string
SQLString=myQueryDef.SQL
myQueryDef.SQL=Replace(SQLString,"FROM",", myField FROM")