Executing a Pass-Through Query Saved in Access : Query « Access « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Access
  3. Query

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








Related examples in the same category

1.Creating a Pass-Through Query with ADOX
2.Making Bulk Changes
3.Using a Stored Procedure to Make Bulk Changes to Data in a SQL Server Database
4.Creating a Query Using Code
5.Create Query by using the Database.CreateQueryDef
6.User Defined Property
7.Get the created query name
8.Delete a query
9.Pass parameter to a query
10.Using CreateParameter to delete a company record
11.Execuate query
12.Update a table with QueryDef