Как результат Query сделать в виде постоянной таблицы?
Falk0ner, вс, 06/07/2008 - 15:34.
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;
var
h: HDBICur;
ph: PHDBICur;
begin
Qry.Prepare;
Check(dbiQExec(Qry.StmtHandle, ph));
h := ph^;
Check(DbiMakePermanent(h, PChar(PermTableName), True));
end;
Взято с Delphi Knowledge Base: http://www.baltsoft.com/
Отправить комментарий