Execuate query : Query « Access « VBA / Excel / Access / Word






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

Execuate query

 

Sub UsingQuery()
  Dim conn As ADODB.Connection
  Dim recs As Long
  Set conn = CurrentProject.Connection
  With conn
    .Execute "qryUpdateCountry", recs, adExecuteNoRecords
    .Close
  End With
  Set conn = Nothing
  MsgBox recs 
End Sub








Related examples in the same category

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