É possivel preencher o checkListBox utilizando IBStoredProc?

08/05/2008

1

é possivel incluir os resultados de uma procedure no CheckListBox? pergunto porque não estou conseguindo:

with DM.sproc do 
 begin 
   Close; 
   StoredProcName := ´FUNCIONALIDADE´; 
   ExecProc; 
   if not IsEmpty then 
     while not Eof do 
      begin 
        checkListBox.Items.Append(Params[0].AsString); 
        Next; 
      end; 
   Close; 
end;


[color=blue:85fd734fab][b:85fd734fab]sproc = IBStoredProc[/b:85fd734fab][/color:85fd734fab]

neste caso o sistema executa a storedProc e ao checar na linha para verificar se não esta vazio (if not IsEmpty then) o sistema nem executa o bloco para incluir no checkListBox, sabendo que tem registros na tabela e fiz o mesmo teste utilizando o componente IBQuery e funcionou normal agora com o IBStoredProc não funciona. O que eu fiz de errado?


script da procedure:
set term ^ ; 

create procedure funcionalidade 
returns (func varchar(50)) 
as 
begin 
   for SELECT descricao 
       FROM funcionalidade 
       ORDER BY descricao 
       into :func 
   do 
   suspend; 
end ^ 

set term ; ^


utilizo o Firebird 2 e D7


Obrigado!


Responder

Posts

09/05/2008

Pestana_

Sobe


Responder

09/05/2008

Gandalf.nho

Como a SP é selecionável, não use um IBStoredProc e sim um IBQuery.

SELECT * FROM funcionalidade



Responder

09/05/2008

Pestana_

Como a SP é selecionável, não use um IBStoredProc e sim um IBQuery.
SELECT * FROM funcionalidade


gandalf.nho muito obrigado por responder!

desta maneira eu já estou utilizando, mas queria utilizar o componente [i:bfa9eed543]IBStoredProc[/i:bfa9eed543] em vez do [i:bfa9eed543]IBQuery[/i:bfa9eed543]. Andei pesquisando e verifique que isso não é possive, é isso?

Obrigado pela atenção,
Pestana.


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira