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