Копирование таблицы с помощью DBE

Previous  Top  Next

    
 

 

 

Code:

function CopyTable(tbl: TTable; dest: string): boolean;

var

psrc, pdest: array[0..DBIMAXTBLNAMELEN] of char;

rslt: DBIResult;

begin

Result := False;

StrPCopy(pdest, dest);

with tbl do

begin

   try

     DisableControls;

     StrPCopy(psrc, TableName);

     rslt := DbiCopyTable(DBHandle, True, psrc, nil, pdest);

     Result := (rslt = 0);

   finally

     Refresh;

     EnableControls;

   end;

end;

end;

 

 

©Drkb::02597

       

Взято с http://delphiworld.narod.ru