Este exemplo cria uma SP - Stored Procedure - que retorna clientes de uma cidade específica.
Sybase's PROCs
VBA Access - Execute Stored Procedure with VBA in Sybase
Código VBA:
Sub CriarStoredProcedure()
' Objetos para conexão e execução
Dim Conn As Object
Dim Cmd As Object
Dim strSQL As String
' Inicializa a conexão com o banco de dados Sybase
Set Conn = CreateObject("ADODB.Connection")
Conn.ConnectionString = "Driver=Sybase ASE ODBC Driver;Server=myServer;Database=myDatabase;UID=myUser;PWD=myPassword;"
Conn.Open
' SQL para criar a stored procedure
strSQL = "CREATE PROCEDURE sp_ListaClientes (@Cidade VARCHAR(50)) AS BEGIN " & _
"SELECT ClienteID, Nome, Cidade FROM Clientes WHERE Cidade = @Cidade; END;"
' Executa o comando para criar a procedure
Set Cmd = CreateObject("ADODB.Command")
Cmd.ActiveConnection = Conn
Cmd.CommandText = strSQL
Cmd.Execute
' Feedback ao usuário
MsgBox "Stored Procedure criada com sucesso.", vbInformation
' Fecha a conexão
Conn.Close
Set Cmd = Nothing
Set Conn = Nothing
End Sub
Teste e adapte conforme seu ambiente.
Clique aqui e nos contate via What's App para avaliarmos seus projetos
Série de Livros nut Project
Nenhum comentário:
Postar um comentário