RedeVirtual

Entao voce pode utilizar commandtype  como ctQuery.

Exemplo.
  SELECT ID_AVISO, FRASE FROM EXIBE_AVISO

Atenc.
Elazar

-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de redevirtual
Enviada em: segunda-feira, 3 de julho de 2006 12:11
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] ajuda: Stored Procedure


Olá Lista,

Estou tentando executar uma StoredProcedure no Interbase6 mas a 
mesma não retorna o registro atual.

Tenho uma tabela com vários registros e ao executar esta SP quero 
trazer o 1º. Registro que o campo EXIBIDO seja "N" e ao trazer este 
registro quero dar um update neste campo para "S".

CREATE TABLE "AVISO"
("ID_AVISO" INTEGER NOT NULL,
  "FRASE" BLOB SUB_TYPE TEXT SEGMENT SIZE 500,
  "EXIBIDO" CHAR(1),
PRIMARY KEY ("ID_AVISO"));

CREATE PROCEDURE EXIBE_AVISO
   RETURNS (ID_AVISO INTEGER, FRASE BLOB SUB_TYPE TEXT SEGMENT SIZE 
500, EXIBIDO CHAR(1))
   AS
      DECLARE VARIABLE CONTADOR INTEGER;
BEGIN
   CONTADOR = 0;
   FOR SELECT ID_AVISO, FRASE, EXIBIDO FROM AVISO WHERE EXIBIDO 
<> 'S'
       INTO :ID_AVISO, :FRASE, :EXIBIDO
   DO BEGIN
       CONTADOR = :CONTADOR + 1;
       IF (CONTADOR > 1) THEN
          EXIT ;
       SUSPEND;
   END
   if (CONTADOR = 0) then
     UPDATE AVISO set EXIBIDO = 'N';
END
   END ^

Estou utilizando Delphi7, ClientDataSet e em 
commandtype=ctStoredProc e estou chamando o comando .EXECUTE do CDS.

Agradeço qualquer ajuda.

Abraço a todos!





 


                
_______________________________________________________ 
Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. 
Registre seu aparelho agora! 
http://br.mobile.yahoo.com/mailalertas/ 
 



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
    http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
    [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
    http://br.yahoo.com/info/utos.html

 



Responder a