VBA Access将数据集中的所有列插入到访问表中

Question

我将数据从SQL SP（返回表）复制到Access Table中。 我正在使用CurrentDb.Execute“INSERT Into ...” 它的工作正常，但有没有办法将Recordset中的所有列插入表中？目前我输入了每个列名，但我有很多列。 感谢

Answer 1

如果SQL Server表中的列名与Access中的列名匹配，是的，这很容易。 如果列名不同，但您愿意设计查询并命名字段，那么也很容易。

StrSQL = "Select * from MyTable;"
rsIN.Open ..... strSQL
rsOUT.Open .... Table Name
Do While not rsIN.EOF
    rsOUT.AddNew
    for each fld in rsIN.Fields
        rsOUT.field(fld.name) = rsIN.Field(fld.name)
    Next fld
    rsOUT.Update
    rsIN.MoveNext
Loop
rsIN.Close...... etc, etc,