Mega Code Archive

 

Categories / VisualBasic Script / Access

 

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