Private Sub Command49_Click()
Dim rec1 As New ADODB.Recordset
Dim cn1 As New ADODB.Connection
Set cn1 = CurrentProject.Connection
Dim cm1 As New ADODB.Command
Set cm1.ActiveConnection = cn1
Dim sql As String
cn1.CursorLocation = adUseClient
On Error GoTo err
sql = "drop proc [" + Trim(Me.Text42) + "]"
Connect:
Dim i
i = MsgBox("确定要删除存储过程 [" + CS(Me.Text42) + "],(Y/N)？", vbYesNo, "删除提示")
If i = vbNo Then
Exit Sub
Else
End If
cm1.CommandTimeout = 1200
cm1.CommandText = sql
cm1.Execute
Exit Sub
err:
MsgBox "错误代码: " & err.Number & vbCrLf & vbCrLf & _
"错误描述: " & err.Description, vbCritical + vbOKOnly, theTitle
End Sub
|
