✔ Programação GLOBAL®: VBA in Sybase | Execute uma Stored Procedure com Parâmetro

VBA in Sybase | Execute uma Stored Procedure com Parâmetro

Este exemplo executa a SP - Stored Procedure - criada no exemplo anterior, passando o parâmetro `@Cidade`.

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 ExecutarStoredProcedureComParametro()
' Objetos para conexão e execução
Dim Conn As Object
Dim Cmd As Object
Dim RS As Object
Dim strCidade As String
Dim i As Integer

' Define o parâmetro
strCidade = "São Paulo" ' Altere conforme necessário

' Inicializa a conexão com o banco de dados Sybase
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 ' Tipo 4 é para stored procedures
Cmd.CommandText = "sp_ListaClientes"
Cmd.Parameters.Append Cmd.CreateParameter("@Cidade", 200, 1, 50, strCidade) ' Adiciona o parâmetro

' Executa e obtém o recordset
Set RS = Cmd.Execute

' Exibe os resultados no Immediate Window (Ctrl + G)
Do While Not RS.EOF
Debug.Print RS.Fields("ClienteID").Value & " - " & RS.Fields("Nome").Value
RS.MoveNext
Loop

' Fecha objetos
RS.Close
Conn.Close
Set RS = Nothing
Set Cmd = Nothing
Set Conn = Nothing
End Sub