[firebase-br] RES: SP's

[Jose Luiz]

Colega..

Eu uso assim:

Inserção:

SET TERM ^ ;

CREATE PROCEDURE PROC_INS_CLIFOR (
    TIPO CHAR(1),
    JURIDICA CHAR(1),
    NOME VARCHAR(70),
    CONTATO VARCHAR(70),
    CPFCNPJ VARCHAR(20),
    RGINSCEST VARCHAR(20),
    ENDERECO VARCHAR(80),
    BAIRRO VARCHAR(40),
    COMPLEMENTO VARCHAR(25),
    CEP VARCHAR(12),
    CODCIDADE INTEGER,
    FONE VARCHAR(16),
    FAX VARCHAR(16),
    EMAIL VARCHAR(60),
    SITE VARCHAR(60))
AS
BEGIN
  INSERT INTO GER_CLIFOR (CF_TIPO, CF_JURIDICA, CF_NOME, CF_CONTATO,
CF_CPFCNPJ, CF_RGINSCEST, CF_ENDERECO, CF_BAIRRO,
                          CF_COMPLEMENTO, CF_CEP, CID_CODIGO, CF_FONE,
CF_FAX, CF_EMAIL, CF_SITE)
       VALUES (:TIPO, :JURIDICA, :NOME, :CONTATO, :CPFCNPJ, :RGINSCEST,
:ENDERECO, :BAIRRO, :COMPLEMENTO, :CEP,
               :CODCIDADE, :FONE, :FAX, :EMAIL, :SITE);
  WHEN SQLCODE -625 do
    EXCEPTION ERRO_CAMPOS_OBRIGATORIOS;
  WHEN SQLCODE -530 DO
    EXCEPTION ERRO_VIOLACAO_FK;
  WHEN ANY DO
    EXCEPTION ERRO_INS_CLIFOR;
END
^

SET TERM ; ^

Edição:
SET TERM ^ ;

CREATE PROCEDURE PROC_UPD_CLIFOR (
    CODIGO INTEGER,
    TIPO CHAR(1),
    JURIDICA CHAR(1),
    NOME VARCHAR(70),
    CONTATO VARCHAR(70),
    CPFCNPJ VARCHAR(20),
    RGINSCEST VARCHAR(20),
    ENDERECO VARCHAR(80),
    BAIRRO VARCHAR(40),
    COMPLEMENTO VARCHAR(25),
    CEP VARCHAR(12),
    CODCIDADE INTEGER,
    FONE VARCHAR(16),
    FAX VARCHAR(16),
    EMAIL VARCHAR(60),
    SITE VARCHAR(60),
    ATIVO CHAR(1))
AS
BEGIN
  UPDATE GER_CLIFOR SET CF_TIPO = :TIPO, CF_JURIDICA = :JURIDICA, CF_NOME =
:NOME, CF_CONTATO = :CONTATO,
                        CF_CPFCNPJ = :CPFCNPJ, CF_RGINSCEST = :RGINSCEST,
CF_ENDERECO = :ENDERECO, CF_BAIRRO = :BAIRRO,
                        CF_COMPLEMENTO = :COMPLEMENTO, CF_CEP = :CEP,
CID_CODIGO = :CODCIDADE, CF_FONE = :FONE,
                        CF_FAX = :FAX, CF_EMAIL = :EMAIL, CF_SITE = :SITE,
CF_ATIVO = :ATIVO
   WHERE CF_CODIGO = :CODIGO;
  WHEN SQLCODE -625 do
    EXCEPTION ERRO_CAMPOS_OBRIGATORIOS;
  WHEN SQLCODE -530 DO
    EXCEPTION ERRO_VIOLACAO_FK;
  WHEN ANY DO
    EXCEPTION ERRO_UPD_CLIFOR;
END
^

SET TERM ; ^

Deletar:
SET TERM ^ ;

CREATE PROCEDURE PROC_DEL_CLIFOR (
    CODIGO INTEGER,
    DEFINITIVO CHAR(1))
AS
BEGIN
  IF (:DEFINITIVO = 'S') THEN
  BEGIN
    DELETE FROM GER_CLIFOR WHERE CF_CODIGO = :CODIGO;
    WHEN SQLCODE -530 DO
      EXCEPTION ERRO_VIOLACAO_FK;
    WHEN ANY DO
      EXCEPTION ERRO_DEL_CLIFOR;
  END
  ELSE
  BEGIN
    UPDATE GER_CLIFOR SET CF_APAGADO = 'S'
     WHERE CF_CODIGO = :CODIGO;
  END
END
^

SET TERM ; ^

Depois no delphi e só o passar como parâmetro conteúdo de um TEDIT.

Falou..

-----Mensagem original-----
De: lista-bounces em firebase.com.br [mailto:lista-bounces em firebase.com.br] Em
nome de Cleiton Maciel Reis da Silva
Enviada em: sábado, 9 de setembro de 2006 15:47
Para: lista em firebase.com.br
Assunto: [firebase-br] SP's

Gostaria de usar em minha aplicacao Stored  Procedures
 para 
 Insert, Updade, Delete, Select,
  
 alguem por acaso tem algum exemplo de fontes, ou  links
 que possam me ajudar a utilizar esses  comandos
 pq os que ja vi nao me ajudaram
  
 Qro saber como faco um insert usando o SP, Updates  etc,
  
 se alguem tiver algum exeplo facil pra mim indicar  ficarei muito Grato,


  
 Té mais colegas

 		
---------------------------------
 Yahoo! Search
 Música para ver e ouvir: You're Beautiful, do James Blunt
______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
Para editar sua configuração na lista, use o endereço
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
Para consultar mensagens antigas: http://firebase.com.br/pesquisa