#VBA #VBAAccess #Access #StoredProcedure #Sybase #Erros #Errors
Executar uma SP - Stored Procedure - no Sybase é uma necessidade que pode aparecer eventualmente no nosso dia-a-dia de desenvolvedor.
Sybase's PROCs
Exemplo Básico de Execução de Stored Procedure
Sub ExecutarStoredProcedureComParametros()
Dim conn As Object
Dim cmd As Object
Dim connString As String
' 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 = "SuaStoredProcedureComParametros"
' Adiciona parâmetros de entrada
cmd.Parameters.Append cmd.CreateParameter("@Parametro1", 8, 1, 50, "ValorParametro1") ' 8 = adVarChar, 1 = adParamInput
cmd.Parameters.Append cmd.CreateParameter("@Parametro2", 3, 1, , 123) ' 3 = adInteger, 1 = adParamInput
' Executa a stored procedure
cmd.Execute
' 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
PUDIM PROJECT
Nenhum comentário:
Postar um comentário