Mega Code Archive

 

Categories / VisualBasic Script / Access

 

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