Exemplo De procedure...
CREATE PROCEDURE PROC_CLIENTES
( INP_COD_CLIENTE INTEGER,
INP_NOME VARCHAR(80),
INP_TELEFONE VARCHAR(14),
INP_CELULAR VARCHAR(14) )
AS
declare variable V_ACAO INTEGER;
BEGIN
IF (:V_ACAO = 1) THEN /* INSERIR */
begin
INSERT INTO CLIENTES
( COD_CLIENTE,
NOME,
TELEFONE,
CELULAR )
VALUES
( :INP_COD_CLIENTE,
:INP_NOME,
:INP_TELEFONE,
:INP_CELULAR );
end
ELSE
IF (:V_ACAO = 2) THEN /* ALTERAR */
BEGIN
UPDATE CLIENTES SET
NOME = :INP_NOME,
TELEFONE = :INP_TELEFONE,
CELULAR = :INP_CELULAR
WHERE COD_CLIENTE = :INP_COD_CLIENTE;
END
ELSE
IF (:V_ACAO = 3) THEN /* DELETAR */
BEGIN
DELETE FROM CLIENTES
WHERE COD_CLIENTE = :INP_COD_CLIENTE;
END
END
Sei também que tem como retornar um select mas agora não estou lembrado de como
ai vc pode criar vários selects específicos dentro do banco e depois só chamar
seu procedimento no banco e executar e esperar ele resolver assim evita carga
de rede, ou seja, sistema mais rápido.
Conselho: Crie uma procedure única aonde que tenha como o parâmetro o tipo. E
dentro desta procedure ligue os parâmetros da stored procedure com os seus
Edits ou variáveis...
Ficando da seguinte maneira a chamada
PROC_ExecProcCliente(1);
Ou seja ele vai na sua tela busca os valores vai para o banco e insere ( não
precisa de Commit )
Lembre-se que se a sua aplicação não for 3 camadas e sua tela tiver uma grid ao
mesmo tempo lembre-se de dar refresh na Query.
Atenciosamente,
_____________________________________
Djonatas Tenfen
Desenvolvimento
Mult Sistemas Ltda - http://www.mult.com.br <http://www.mult.com.br/>
(47) 3221 9400
________________________________
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Raphae
Fonseca
Enviada em: quarta-feira, 7 de fevereiro de 2007 15:57
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Ajuda com Procedure
Caros amigos
Estou tentando colocar algumas funcionalidades do meu sistema no banco.
Pretendo montar uma stored procedure que dependendo do flag passado ela execute
uma determinada operação.
Ex:
1 - Incluir
2 - Excluir
3 - Alterar
4 - Gravar
Pretendo na aplicação passar somente os parametros para as procedures e deixar
a inteligência e o processamento no banco.
Algum amigo já desenvolveu uma procedure dessa forma e pode me dar uma ajuda???
estou usando delphi 7, componente de acesso MDO, Firebird 1.53
No aguardo
Raphael
__________________________________________________
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger.yahoo.com/ <http://br.messenger.yahoo.com/>
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
