VBA Access將數據集中的所有列插入訪問表

Im將數據從SQL SP（它返回一個表）複製到Access Table中。即時通訊使用CurrentDb.Execute「INSERT into ...」它的一切工作正常，但有沒有辦法只是從記錄集中插入所有列到表中？在我輸入每個列名的時刻，但我有很多列。謝謝VBA Access將數據集中的所有列插入訪問表

來源

2014-02-21 user2343837

如果表中的列與源中的列的列類型相同並且順序相同，則應該起作用。最好的測試方法就是試試。 –

阿爾伯特向你展示瞭如何在[回答你的早期問題]中做到這一點（http://stackoverflow.com/a/21924523/2144390）。 –

如果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,

來源

2014-02-21 04:45:15

VBA Access將數據集中的所有列插入訪問表

回答

相關問題