✔ Programação GLOBAL®: VBA in Sybase | Atualizar Dados Usando uma Stored Procedure

VBA in Sybase | Atualizar Dados Usando uma Stored Procedure

Cria uma SP - Stored Procedure - para atualizar registros na tabela `Clientes`.

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 AtualizarDadosComStoredProcedure()
' Objetos para conexão e execução
Dim Conn As Object
Dim Cmd As Object
Dim strSQL As String

' 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

' Criação da stored procedure
strSQL = "CREATE PROCEDURE sp_AtualizaCliente (@ClienteID INT, @NovoNome VARCHAR(100)) AS BEGIN " & _
"UPDATE Clientes SET Nome = @NovoNome WHERE ClienteID = @ClienteID; END;"

' Executa o comando para criar a SP
Set Cmd = CreateObject("ADODB.Command")
Cmd.ActiveConnection = Conn
Cmd.CommandText = strSQL
Cmd.Execute

MsgBox "Stored Procedure para atualização criada com sucesso.", vbInformation

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