✔ Programação GLOBAL®: VBA in Sybase | Recuperar Múltiplos Resultados

VBA in Sybase | Recuperar Múltiplos Resultados

Este exemplo retorna resultados de múltiplas tabelas.

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

' Configura o comando para executar a SP
Set Cmd = CreateObject("ADODB.Command")
Cmd.ActiveConnection = Conn
Cmd.CommandType = 4
Cmd.CommandText = "sp_ObterDados"

' Executa a SP e manipula os resultados
Set RS = Cmd.Execute
Do
If Not RS.EOF Then
Debug.Print "Novo conjunto de resultados:"
While Not RS.EOF
Debug.Print RS.Fields(0).Value & " - " & RS.Fields(1).Value
RS.MoveNext
Wend
End If
Set RS = RS.NextRecordset ' Próximo conjunto de resultados
Loop While Not RS Is Nothing

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