Arsip: Backup Data Tabel Paradox

uses DB, DBTables, DBIProcs

procedure copyTable( const strSource, strTarget : String );
var
hDB             : HDBIDB;     // Handle ke database
const
OVERWRITE_FLAG = Bool( TRUE );
begin
with TTable.Create( Application ) do
try
DatabaseName  := extractFilePath( strSource );
TableName     := extractFileName( strSource );
open;
hDB           := DBHandle;
close;
// buat backup
check( dbiCopyTable( hDB, OVERWRITE_FLAG,
pChar( strSource ), 'PARADOX',
pChar( strTarget ) ) );
finally
free;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
copyTable( 'C:\Program Files\Common Files\Borland Shared\Data\Country.db',
'C:\My Documents\Table\Pindahan.db' );
// buatkan dulu directory C:\My Documents\Table
end;