Как результат Query сделать в виде постоянной таблицы?

Материал из DRKB

Как результат Query сделать в виде постоянной таблицы?[править | править код]

Traditionally, to write the results of a query to disk, you use a TBatchMove and a TTable in addition to your query. But you can short-circuit this process by making a couple of simple, direct calls to the BDE.

Make sure you have BDE declared in your uses section

procedure MakePermTable(Qry: TQuery; PermTableName: string);
var
  h: HDBICur;
  ph: PHDBICur;
begin
  Qry.Prepare;
  Check(dbiQExec(Qry.StmtHandle, ph));
  h := ph^;
  Check(DbiMakePermanent(h, PChar(PermTableName), True));
end;


Language: en
Source: Взято с Delphi Knowledge Base: http://www.baltsoft.com/
ID: 02557