Pq vc já não deixa os componentes criados no FORM, assim cada vez q vc passar o sSQL, vc fecha a query/conexão, atribui o valor, abre á conexão/query, e retorna o resultado.....
[]s Luiz Escobar - Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/ASSEMBLY/MySQL/xBase SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse10.2), Windows 2K/XP HARBOUR -------------------------------------------------------------------------- Borland C++ 5.5.1 (32 bit) Harbour Devel build 1.1-1 Intl. xHarbour Compile build 1.1.0 (Simplex) Harbour MiniGUI 1.5 Extended Edition (Build 50a) - 2008.03.31 ------------------------------------------------------------------------------------------- From: Rubem Nascimento da Rocha Sent: Monday, June 09, 2008 3:51 PM To: delphi-br@yahoogrupos.com.br Subject: RE: [delphi-br] Ajuda numa função que retorna DataSet. É óbvio que tá dando erro! Preste atenção! Vc está liberando uma consulta que está sendo o retorno da sua função. Se vc libera a consulta, logo vai estar liberando o retorno! Esse é o erro! A consulta não deve ser liberada! Atente para isso! Sds. ________________________________ To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Mon, 9 Jun 2008 15:47:04 -0300 Subject: [delphi-br] Ajuda numa função que retorna DataSet. Olá amigos, estou criando uma função, que me retorne um DataSet, com o resultado de um SQL passado como parametro, porém não estou conseguindo.. estou fazendo assim: function RetDados(sSQL: string): TDataSet; var cQ: TIBCQuery; cT: TIBCTransaction; begin cT := TIBCTransaction.Create(nil); cT.AddConnection(DM.Conexao); cQ := TIBCQuery.Create(nil); cQ.Transaction := cT; cQ.UpdateTransaction := cT; cQ.UniDirectional := True; try cQ.SQL.Text := sSQL; cQ.Open; Result := cQ; finally cQ.Free; cT.Free; end; end; Porém, sempre me retorna NIL, pois de qualquer forma passa no cQ.Free, e estou achando que quando faz isso eu perco o resultado. Seria isso mesmo? Se for, como concerto isso? Desde já agradeço. []s -- _________________________________ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] Sou a favor da lei LEI 607/2007 __________________________________________________________ Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas e muito mais no MSN Video! http://video.msn.com/?mkt=pt-br [As partes desta mensagem que não continham texto foram removidas]