parodox表的复制和清空(100分)

我做了一个小程序，使用的是delphi自身带的数据库表-paradox表，我想实现库表的定期
的清空，最主要的是可以将库表备份到一个文件中，以便与以后的查询，请高手赐教，我
仅接触delphi不到半年，底子很薄，请答复的详细一些。谢谢！！

这是复制！
insert into table1 from
select * from table2

备份的话复制文件就行了，文件名时用当时的时间+.db

var
ExcelApp, Sheet: Variant;
begin
try
ExcelApp := CreateOleObject('Excel.Application');
except
raise Exception.Create('没有发现Excel,请先确认是否安装Excel.');
Exit;
end;
try
ExcelApp.WorkBooks.Add(xlWorkSheet);
ExcelApp.WorkBooks[1].WorkSheets[1].Name := '数据列表';
Sheet := ExcelApp.WorkBooks[1].WorkSheets[1];
with Table do
begin
for I := 0 to FieldCount - 1 do
ExcelApp.WorkBooks[1].Sheets[1].Cells[1, I + 1] := Fields.DisplayLabel;
J := 1;
First;
while not Eof do
begin
J := J + 1;
for I := 0 to FieldCount - 1 do
ExcelApp.WorkBooks[1].Sheets[1].Cells[J, I + 1] := Fields.AsString;
Application.ProcessMessages;
if cbxDelete.Checked then
Delete //如果勾了删除选项，就将这条数据删除
else
Next; //否则就指向下一条记录
end;
end;
Sheet.SaveAs(SaveDialog.FileName);
finally
Sheet := Unassigned;
ExcelApp.WorkBooks[1].Close;
end;
end;
这个程序是将数据从数据库中导入到Excel中，跟你的要求差不多。

复制数据库文件
IF copyfile(源文件,目标文件,FALSE) THEN
TABLE.EMPTY;//复制成功,清空数据库

楼上的是最简单了

既然是paradox数据库,干脆copyfile最方便了.
好多商业软件也是直接copyfile的.