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 ExecutarStoredProcedureComErro()
On Error GoTo ErroHandler
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 = "SuaStoredProcedureComErro"
' Executa a stored procedure
cmd.Execute
' Fecha a conexão
conn.Close
Set cmd = Nothing
Set conn = Nothing
Exit Sub
ErroHandler:
MsgBox "Erro ao executar a stored procedure: " & Err.Description
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