#VBA #VBAAccess #Access #StoredProcedure #Sybase
Executar uma SP - Stored Procedure - no Sybase é uma necessidade que pode aparecer eventualmente no nosso dia-a-dia de desenvolvedor.
Sybase's PROCs
Sub ExecutarStoredProcedure()
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 = "SuaStoredProcedure"
' 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