Deleting a Stored Procedure : Stored Procedure « Access « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Access
3. Stored Procedure

Deleting a Stored Procedure

 
Sub Delete_StoredProc() 
    Dim conn As ADODB.Connection 

    On Error GoTo ErrorHandler 

    Set conn = CurrentProject.Connection 

    conn.Execute "DROP PROCEDURE procName; " 
ExitHere: 
    If Not conn Is Nothing Then 
        If conn.State = adStateOpen Then conn.Close 
    End If 
    Set conn = Nothing 
    Exit Sub 
ErrorHandler: 
    If InStr(1, Err.Description, "cannot find") Then 
        Debug.Print "The procedure you want to delete does not exist."
    Else 
        Debug.Print Err.Number & ":" & Err.Description 
    End If 
    Resume ExitHere 
End Sub 

 

Related examples in the same category