✔ Programação GLOBAL®: VBA in Sybase | Transações Usando Stored Procedure

VBA in Sybase | Transações Usando Stored Procedure

Realiza uma operação que envolve transações.

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 TransacaoComStoredProcedure()
Dim Conn As Object
Dim Cmd As Object

' 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

' Inicia a transação
Conn.BeginTrans

On Error GoTo Erro
' Executa uma SP
Set Cmd = CreateObject("ADODB.Command")
Cmd.ActiveConnection = Conn
Cmd.CommandText = "sp_InsereCliente"
Cmd.CommandType = 4
Cmd.Parameters.Append Cmd.CreateParameter("@Nome", 200, 1, 100, "Novo Cliente")
Cmd.Execute

' Confirma a transação
Conn.CommitTrans
MsgBox "Transação concluída com sucesso.", vbInformation
Conn.Close
Exit Sub

Erro:
' Em caso de erro, desfaz a transação
Conn.RollbackTrans
MsgBox "Erro na transação. Alterações desfeitas.", vbCritical
Conn.Close
End Sub