Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Executing a Pass-Through Query Saved in Access

Sub Execute_PassThroughQuery()    Dim cat As ADOX.Catalog    Dim cmd As ADODB.Command    Dim myRecordset As ADODB.Recordset    Dim strConnect As String    strConnect = "Provider=SQLOLEDB;Data Source=yourServer\yourName;" & _       "Initial Catalog=Northwind;User Id=sa;Password="    Set cat = New ADOX.Catalog    cat.ActiveConnection = CurrentProject.Connection    Set cmd = New ADODB.Command    Set cmd = cat.Procedures("French Customers").Command    Set myRecordset = cmd.Execute    Debug.Print myRecordset.GetString    Set myRecordset = Nothing    Set cmd = Nothing    Set cat = Nothing End Sub