Советы по Delphi
Копирование таблицы с помощью 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]
