如何清空MDB数据库的所有数据

Question

由于程序需要简单所有用的MDB数据库
用ADOQuery来控制的
如何去清空MDB里的所有数据

Answer 1

是Access数据库吧，直接执行Delete from Table1指令就可以呀，数据是删除了，如果不嫌数据库文件大小的话就没什么了，觉得大的话就压缩一下，因为数据删除后数据库文件是不会自动变小的

Answer 2

下面是删除各个表中的数据，var
  list:TStringList;
  i:Integer;
begin
  list := TStringList.Create;
  ADOConnection1.GetTableNames(list,False);
  for i:=0 to list.Count - 1 do
  begin
    ADOQuery1.Close;
    ADOQuery1.SQL.Text := 'delete * from '+list.Strings[i];
    ADOQuery1.ExecSQL;
  end;
end;

Answer 3

delete...
procedure TSpecial_Homework_F.btnSB_PrintClick(Sender: TObject);
var
  list:TStringList;
  i:Integer;
begin
  inherited;
  try
    list:=TStringList.Create;
    adoc1.GetTableNames(list,False);
    for i:=0 to list.Count - 1 do
    begin
      qry1.Close;
      qry1.SQL.Text:= 'delete * from '+list.Strings[i];
      qry1.ExecSQL;
    end;
  finally
    list.Free;
  end;
end;

Answer 4

应该用truncate语句来清除表数据。delete 语句不影响表所占用的 extent，高水线(high water)保持原位置不动。truncate 语句缺省情况下见空间释放到 minextents个 extent，除非使用reuse storage;truncate 会将高水线复位(回到最开始)。

Answer 5

procedure TSpecial_Homework_F.btnSB_PrintClick(Sender: TObject);
var
  list:TStringList;
  i:Integer;
begin
  inherited;
  try
    list:=TStringList.Create;
    adoc1.GetTableNames(list,False);
    for i:=0 to list.Count - 1 do
    begin
      qry1.Close;
      qry1.SQL.Text:= 'TRUNCATE TABLE '+list.Strings[i];
      qry1.ExecSQL;
    end;
  finally
    list.Free;
  end;
end;

Answer 6

跟著月亮大牛再補充一下：
TRUNCATE TABLE 在功能上与不带 Where 子句的 Delete 语句相同：二者均删除表中的全部行。但 TRUNCATE TABLE 比 Delete 速度快，且使用的系统和事务日志资源少。 Delete 语句每次删除一行，并在事务日志中为所删除的每行记录一项。TRUNCATE TABLE 通过释放存储表数据所用的数据页来删除数据，并且只在事务日志中记录页的释放。 TRUNCATE TABLE 删除表中的所有行，但表结构及其列、约束、索引等保持不变。新行标识所用的计数值重置为该列的种子。如果想保留标识计数值，请改用 Delete。 对于由 FOREIGN KEY 约束引用的表，不能使用 TRUNCATE TABLE，而应使用不带 Where 子句的 Delete 语句。由于 TRUNCATE TABLE 不记录在日志中，所以它不能激活触发器。 TRUNCATE TABLE 不能用于参与了索引视图的表。