清空数据库表格时,用EMPTYTABLE;语句时,发生 'table is busy.'这样的错误,是什么引起的?

Question

清空数据库表格时,用EMPTYTABLE;语句时,发生 'table is busy.'这样的错误,是什么引起的?
程序如下:
begin
with table1 do
     begin
       active:=false;
       databasename:='d:\cgxt\dbs';
       tablename:='tmpdgd.db';
       tabletype:=ttParadox;
       emptytable;
     end;
end;     
出错结果如下:
project project2.exe raised exception class EDBEngineError whit message 'table is busy.'
    table: 
    d:\cgxt\dbs\tmpdgd.db

Answer 1

还是不行,出错内容同上!
我试过了!
begin
with table1 do
     begin
       active:=false;
       table1.exclusive:=true;
       databasename:='d:\cgxt\dbs';
       tablename:='tmpdgd.db';
       tabletype:=ttParadox;
       emptytable;
     end;
怎么回事啊?