Excel running Access query

[Guest]

I have an Excel application that gets data from an Access database.

What I wish to do is run some code from Excel to automate the updating of
the Access database. Within thew Access database I have an append query set
up. How can I run this query from Excel?

Many thanks in advance.

 

[Trevor via OfficeKB.com]

Using ADO:

Dim cn As ADODB.Connection
Set cn = New ADODB.Connection

With cn
.Provider = "Microsoft.Jet.OLEDB.4.0;"
.ConnectionString = "Data Source=DBFileName"
.Open
With .Command
.CommandText = "qryName"
.CommandType = adCmdUnknown
.Execute
End With
.Close
End With

 

[Guest]

Many thanks

Using ADO:

Dim cn As ADODB.Connection
Set cn = New ADODB.Connection

With cn
.Provider = "Microsoft.Jet.OLEDB.4.0;"
.ConnectionString = "Data Source=DBFileName"
.Open
With .Command
.CommandText = "qryName"
.CommandType = adCmdUnknown
.Execute
End With
.Close
End With