ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Can you use ADO from Excel to run an Append Query in Access (https://www.excelbanter.com/excel-programming/443318-can-you-use-ado-excel-run-append-query-access.html)

Kelii

Can you use ADO from Excel to run an Append Query in Access
 
.... if so, do you mind providing sample code?

I looked everywhere for this and can only find sample code for DAO.
I'm a big fan of DAO (who says ADO is simpler?) but I'm trying to get
into the 21st century.

This is what I have so far:
'Setup ADO for executing action query
Dim cmd As New ADODB.Command
cmd.ActiveConnection = gsCONNECTION
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "qryRecipCompRevenuesAndDisputes_Step3"

'Execute
cmd.Execute

Needless to say it fails miserably and I'm embarassed to post it.

All help appreciated.

Thanks,

Kelii

ManicMiner17

Can you use ADO from Excel to run an Append Query in Access
 
On 11/07/2010 03:16, Kelii wrote:

Kelii,

Have you looked at http://support.microsoft.com/kb/278973


There is a downloadable file ExcelADO.exe

The text contains the following:

"7. Click Sample 4. This sample produces the same results as Sample 1,
but the technique that is used to transfer the data is slightly
different. In Sample 1, records (or rows) are added to the worksheet one
at a time. Sample 4 adds the records in bulk by attaching the Excel
table to an Access database and running an append query (or INSERT
INTO..SELECT FROM) to append records from a table in the Access table to
the Excel table. Once the transfer is complete, the Excel table is
detached from the Access database and the workbook that results is
displayed in Excel. Quit Excel, and return to the Visual Basic application."


Kelii

Can you use ADO from Excel to run an Append Query in Access
 
Thanks for the link, that's what I needed :D


All times are GMT +1. The time now is 09:56 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com