MS Access 插入 Select 不适用于 vba

Question

I am trying to run an insert into select query like this:

Dim rs as new ADODB.recordset
rs.Open "INSERT INTO tempTable(PartNumber, Age, Height, Notes, UpdateType)" & _
        " SELECT PartNumber, Age, Height, Notes, UpdateType FROM TABLE2", CurrentProject.Connection, adOpenStatic, adLockOptimistic

which gives me an error:

Syntax Error in INSERT INTO statment

What is really weird is that when I debug.print the above statement and run the query from the query wizard in Access database it runs just fine.

My understanding of currentproject.connection has been that I can happily use the Jet-SQL or MS Access query syntax so if the query runs in the query window in Access it should run in VBA as well. Seems like that is not the case.

Here are a few other things I have tried to make the code run:

CurrentProject.Connection.Execute "INSERT INTO tempTable(PartNumber, Age, Height, Notes, UpdateType)" & _
        " SELECT PartNumber, Age, Height, Notes, UpdateType FROM TABLE2"

This gives the same error as above.

I also tried to add a new line vbclrf :

rs.Open "INSERT INTO tempTable(PartNumber, Age, Height, Notes, UpdateType)" & _
        & vbclrf & " SELECT PartNumber, Age, Height, Notes, UpdateType FROM TABLE2", CurrentProject.Connection, adOpenStatic, adLockOptimistic

but it gave me the same error

Answer 1

Only SELECT statements are used to set a recordset object. A recordset is not needed.

INSERT is an action SQL so for VBA constructed statement, use DoCmd.RunSQL or CurrentDb.Execute or CurrentProject.Connection.Execute.

My preference is: CurrentDb.Execute "your SQL statement here"