该如何清空一个数据库? 详细程序如下:

Question

able1.Active:=False;
Table2.Active:=False;
BatchMove1.Execute;
showmessage('数据传输完毕！');Table1.EmptyTable;    //就这句Table1.Active:=True;
Table2.Active:=True;
or:

Answer 1

or:
able1.Active:=False;
Table2.Active:=False;
BatchMove1.Execute;
showmessage('数据传输完毕！');Table1.Active:=false;
Table2.Active:=false;
Table1.EmptyTable;    Table1.Active:=True;
Table2.Active:=True; 

Answer 2

我用Emptytable就经常出错，最方便的方法是：不用
可用以下语句代替
table1.active:=true;
while not(table1.isempty) do
table1.delete;
我是不是太不求甚解了，别见笑

Answer 3

用table.close去关闭数据库吗?
我试过了,但是还是出同样的错误,说"table is busy"!