访问：使用VBA将查询结果复制到表中

Question

我想将查询结果复制到表中。

我尝试了这个：

Function queryintotable()

Dim rs As New ADODB.Recordset

DoCmd.SetWarnings False

rs.CursorLocation = adUseClient    
rs.Open "target_table", CurrentProject.Connection
rs.Sort = "Retail_ID ASC"

Do Until rs.EOF = True
    DoCmd.CopyObject , "myquery", acQuery, "target_table"    
    rs.MoveNext
Loop

rs.Close

DoCmd.SetWarnings True
MsgBox ("Finish! " & Time)

End Function

但是我想我忘了一些东西。你能帮我吗，谢谢！

Answer 1

一行代码：

CurrentDB.Execute "Select myquery.* Into target_table From myquery"

将创建一个名为的表，target_table其中包含的结果集myquery。

CurrentDB.Execute "Insert Into target_table Select myquery.* From myquery"

将结果集插入myquery到名为的target_table具有相同结构的现有表中。