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

Previous  Top  Next

    
 

 

 

 

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

Code:

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;

 

 

©Drkb::02557

Взято с Delphi Knowledge Base: http://www.baltsoft.com/