Using CreateParameter to delete a company record : Query « Access « VBA / Excel / Access / Word






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

Using CreateParameter to delete a company record

 
Public Sub DeleteCustParam()
  Dim cmd As ADODB.Command
  Dim prm As ADODB.Parameter
  Set cmd = New ADODB.Command
  With cmd
    .ActiveConnection = CurrentProject.Connection
    .CommandText = "qryDeleteCompany"
    .CommandType = adCmdStoredProc
    Set prm = cmd.CreateParameter(Name:="MyParam", Type:=adInteger,Direction:=adParamInput).Parameters.Append prm
    prm.Value = 13
    .Execute
  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.Pass parameter to a query
11.Execuate query
12.Update a table with QueryDef