Pass parameter to a query : Query « Access « VBA / Excel / Access / Word






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

Pass parameter to a query

 

Public Sub DeleteCust(lngID As Long)
  Dim cmd As ADODB.Command
  Set cmd = New ADODB.Command
  With cmd
  .ActiveConnection = CurrentProject.Connection
  .CommandText = "qryDeleteCompany"
  .CommandType = adCmdStoredProc
  .Execute , Parameters:=lngID
  End With
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.Using CreateParameter to delete a company record
11.Execuate query
12.Update a table with QueryDef