✔ Programação GLOBAL®: VBA in Sybase | Deletar Registros com uma Stored Procedure

VBA in Sybase | Deletar Registros com uma Stored Procedure

Este exemplo usa uma SP - Stored Procedure - para deletar registros de uma tabela.

Sybase's PROCs

VBA Access - Execute Stored Procedure with VBA in Sybase
VBA Excel - Execute Stored Procedure with VBA in Sybase
VBA in Sybase | Criar uma Stored Procedure
VBA in Sybase | Execute uma Stored Procedure com Parâmetro
VBA in Sybase | Atualizar Dados Usando uma Stored Procedure
VBA in Sybase | Deletar Registros com uma Stored Procedure
VBA in Sybase | Transações Usando Stored Procedure
VBA in Sybase | Recuperar Múltiplos Resultados

Código VBA:

Sub DeletarRegistrosComStoredProcedure()
Dim Conn As Object
Dim Cmd As Object
Dim ClienteID As Integer

' Define o ClienteID para exclusão
ClienteID = 101 ' Altere conforme necessário

' Inicializa a conexão
Set Conn = CreateObject("ADODB.Connection")
Conn.ConnectionString = "Driver=Sybase ASE ODBC Driver;Server=myServer;Database=myDatabase;UID=myUser;PWD=myPassword;"
Conn.Open

' Configura o comando para executar a SP
Set Cmd = CreateObject("ADODB.Command")
Cmd.ActiveConnection = Conn
Cmd.CommandType = 4
Cmd.CommandText = "sp_DeletaCliente"
Cmd.Parameters.Append Cmd.CreateParameter("@ClienteID", 3, 1, , ClienteID) ' 3 = adInteger

' Executa a SP
Cmd.Execute
MsgBox "Registro deletado com sucesso.", vbInformation

' Fecha conexão
Conn.Close
Set Cmd = Nothing
Set Conn = Nothing
End Sub