VBA Access - Executando Stored Procedure com Parâmetros de Saída - Execute Stored Procedure in Sybase with VBA Access in Sybase

#VBA #VBAAccess #Access #StoredProcedure #Sybase #Parameters

Executar uma SP - Stored Procedure - no Sybase é uma necessidade que pode aparecer eventualmente no nosso dia-a-dia de desenvolvedor.

 Sybase's PROCs 

VBA Access - Execute Stored Procedure with VBA in Sybase

VBA Excel - Execute Stored Procedure with VBA in Sybase

Cria uma Stored Procedure

Execute uma Stored Procedure com Parâmetro

Atualizar Dados Usando uma Stored Procedure

Deletar Registros com uma Stored Procedure

Transações Usando Stored Procedure

Recuperar Múltiplos Resultados 

Exemplo Básico de Execução de Stored Procedure

Executando Stored Procedure com Parâmetros de Entrada

Capturando Resultados de uma Stored Procedure

Executando Stored Procedure com Parâmetros de Saída

Executando Stored Procedure e Capturando Erros

Sub ExecutarStoredProcedureComParametroSaida()

    Dim conn As Object

    Dim cmd As Object

    Dim connString As String

    Dim parametroSaida As Variant

    ' Defina sua string de conexão

    connString = "Provider=Sybase.ASEOLEDB;Data Source=SeuServidor;Initial Catalog=SeuBanco;User ID=seuUsuario;Password=suaSenha"

    ' Cria a conexão com o banco de dados

    Set conn = CreateObject("ADODB.Connection")

    conn.Open connString

    ' Cria o objeto de comando para executar a stored procedure

    Set cmd = CreateObject("ADODB.Command")

    cmd.ActiveConnection = conn

    cmd.CommandType = 4 ' 4 = Stored Procedure

    cmd.CommandText = "SuaStoredProcedureComParametroSaida"

    ' Adiciona parâmetros de entrada

    cmd.Parameters.Append cmd.CreateParameter("@ParametroEntrada", 3, 1, , 100) ' 3 = adInteger

    ' Adiciona parâmetro de saída

    cmd.Parameters.Append cmd.CreateParameter("@ParametroSaida", 3, 2, , 0) ' 3 = adInteger, 2 = adParamOutput

    ' Executa a stored procedure

    cmd.Execute

    ' Obtém o valor do parâmetro de saída

    parametroSaida = cmd.Parameters("@ParametroSaida").Value

    MsgBox "O valor do parâmetro de saída é: " & parametroSaida

    ' Fecha a conexão

    conn.Close

    Set cmd = Nothing

    Set conn = Nothing

End Sub

 Clique aqui e nos contate via What's App para avaliarmos seus projetos 

Envie seus comentários e sugestões e compartilhe este artigo!

brazilsalesforceeffectiveness@gmail.com

 Série de Livros nut Project 

  

 PUDIM PROJECT