Fórum Como fazer uma busca quot;dentroquot; de uma busca? #210961

Normalmente a linguagem SQL possui flexibilidade o bastante para você obter os mais variados resultados de seleção de registros.

Acontece que eventualmente você pode chegar a uma situação onde precisaria construir uma query com base no resultado de outra query. Aí complica, certo?

Mas nestes caso você vai usar algumas API´s do BDE e o problema se tornará uma tarefa bem simples. Veja como:

Vamos imaginar uma query simples, apenas para efeito de entendimento desta questão: Você possui uma tabela chamada vendas.db com os campos DataVenda e Valor.

A nossa primeira query vai extrair o mês do campo DataVenda juntamente com o campo Valor. A sentença seria então a seguinte:

SELECT
  EXTRACT(MONTH FROM datavenda) AS mes, valor
  FROM vendas

Agora precisamos salvar o resultado dessa query em uma tabela. Mas como fazer? Vamos utilizar a API DbiSaveChanges para salvar a query e a API DbiGetCursorProps para obter o nome que o BDE utilizou para salvar a query. O código é o seguinte:

var
  QrName: string;
begin
  // salva a query em um arquivo temporário
  DbiSaveChanges(Query1.Handle);
  // obtém o nome do arquivo temporário e fecha a primeira query
  DbiGetCursorProps(Query1.Handle, Props);
  QrName := Props.szName;
end;
Feito isso basta fazer a segunda query com base no arquivo que acabamos de salvar. Veja como fica um código completo usando este recurso:

procedure TForm1.Button1Click(Sender: TObject);
var
  Props: CURProps;
  QrName: string;
begin
  // abre a primeira query
  Query1.SQL.Text :=
    ´SELECT EXTRACT(MONTH FROM datavenda) AS mes, valor FROM vendas´;
  Query1.Open;
  // salva a query em um arquivo temporário
  DbiSaveChanges(Query1.Handle);
  // obtém o nome do arquivo temporário e fecha a primeira query
  DbiGetCursorProps(Query1.Handle, Props);
  QrName := Props.szName;
  Query1.Close;

  // abre a segunda query pegando o resultado da primeira
  // que está salva no arquivo S
  Query2.SQL.Text := ´SELECT mes, SUM(valor) FROM "´ +
    QrName + ´" GROUP BY mes´;
  Query2.Open;
  ...
  // apaga o arquivo temporário da primeira query
  DeleteFile(QrName + ´.db´);
end;