请问如果用代码实现将access数据库一次全部清空,并且自动编号字段的值也重新从1开始计算?等于是执行了压缩和修复数据库操作.
datamodule1.adotable1.first;
while not datamodule1.adotable1.eof do
datamodule1.adotable1.delete;
datamodule1.adoconnection1.Close;
screen.Cursor:=crHourGlass;
dao:=CreateOleObject(DAO.DBEngine.36);
dao.CompactDatabase(capture.mdb,temp.mdb);
DeleteFile(capture.mdb);
RenameFile(temp.mdb,capture.mdb);
datamodule1.adoconnection1.Open;
datamodule1.adotable1.Active:=true;
screen.Cursor:=crDefault;
end;