|
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
|