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

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;

[000615]

Содержание раздела