como faco para receber uma query como retorno de uma funcao?exemplo:[code]function retornaQry(stringSql:string):TDataSet;var qry : tquery;begin qry := tquery.create(nil); try qry.Data...

F�rum reber uma query como parametro #477570

29/04/2014

como faco para receber uma query como retorno de uma funcao?

exemplo:

function retornaQry(stringSql:string):TDataSet;
var
  qry : tquery;
begin
  qry := tquery.create(nil);
  try
    qry.DatabaseName := ''dbdados'';
    qry.Close;
    qry.SQL.Clear;
    qry.SQL.add(stringSql);
    try
      qry.open;
      result := qry;
    except
    end;
  finally
    freeAndNil(qry);
  end;
end;



chamada: 

qrysql2 := retornaQry(concat(''select caixas.codcaixa from caixas where caixas.caixaaberto = ''''S'''' and caixas.codterminal = '',sComboBox1.text));

Fabio Cardoso

Curtir t�pico

+ 0

Responder

Posts

05/05/2014

Emerson Nascimento

s� para esclarecer: voc� quer receber o retorno como uma query ou um resultset ?

Responder

Gostei + 0

08/05/2014

Felippe Tadeu

Troque o tipo de retorno para OleVariant .

No result coloque query.Data;

1�Altera��o:

function retornaQry(stringSql:string):OleVariant;
var
  qry : tquery;
begin
  qry := tquery.create(nil);
  try
    qry.DatabaseName := ''dbdados''; // O que seria esse dbdados ? Se for uma string tire uma aspas simples de cada lado. Caso n�o for, coloque a vari�vel sem as aspas.
    qry.Close;
    qry.SQL.Clear;
    qry.SQL.add(stringSql);
    try
      qry.open;
      result := qry.Data;
    except
    end;
  finally
    freeAndNil(qry);
  end;
end;

2� Altera��o:

  qrysql2.Data := retornaQry('select caixas.codcaixa from caixas where caixas.caixaaberto = '+QuotedStr('S')+' and caixas.codterminal = '+sComboBox1.Text);

Responder

Gostei + 0

15/09/2015

Fabio Cardoso

eu queria um resultset

Responder

Gostei + 0