Копирование таблицы с помощью 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 dobegintryDisableControls;StrPCopy( psrc, TableName );rslt := DbiCopyTable( DBHandle, True, psrc, nil, pdest );Result := (rslt = 0);finallyRefresh;EnableControls;end;end;end;

[000615]

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

Главная сайта