Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Executing a Parameterized Stored Procedure

Sub Execute_StoredProcWithParam()      Dim conn As ADODB.Connection      Dim strCompany As String      Dim strPhone As String      On Error GoTo ErrorHandler      Set conn = CurrentProject.Connection      strCompany = "nnn"     strPhone = "123123"     If strCompany <> "" And strPhone <> "" Then          conn.Execute "procName " & strCompany & ", " & strPhone      End If  ExitHere:      If Not conn Is Nothing Then          If conn.State = adStateOpen Then conn.Close      End If      Set conn = Nothing      Exit Sub  ErrorHandler:      Debug.Print Err.Number & ":" & Err.Description      Resume ExitHere  End Sub