Mega Code Archive
Copy and delete table
<![CDATA[
Title: Copy and delete table
For deleting table use DeleteTable procedure. For copying table use DbiCopyTable function. Don't forget that DbiInit must be called before calling of DbiCopyTable.
uses DbiTypes, DbiProcs;
procedure TForm1.Button1Click(Sender: TObject);
begin
with Table1 do
begin
DatabaseName:='DBDEMOS';
TableName:='CUSTOMER2';
TableType := ttParadox;
DeleteTable;
end;
end;
procedure FDbiCopyTable(hTmpDb: hDbiDb; SrcTableName: string;
DestName: string);
begin
Check(
DbiCopyTable(
hTmpDb,
True,
PChar(SrcTableName),
nil,
PChar(DestName)));
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Table1.Active:=True;
Check(dbiInit(nil));
FDbiCopyTable(Table1.dbHandle, 'CUSTOMER.DB', 'CUSTOMER2.DB');
Table1.Active:=False;
end;
]]>