如何用语句清空数据库?

Question

to tikkypeng(千两狂死郎)　是数据库里的所有表.

Answer 1

遍历所有表 
循环
drop table tablename 
没有完吗继续循环
完了退出提示清除完毕。

Answer 2

用Tsession得到所有的table name
procedure TForm1.Button1Click(Sender: TObject);
var
  sl:Tstrings;
  i:integer;
begin
  sl := TStringList.Create;
  try
    Database1.Session.GetTableNames( 'DBDEMOS', '*.db',False, False, sl);
    for i:=0 to sl.Count-1 do
    begin
      with query1 do
      begin
        close;
        sql.Clear;
        sql.Add('delete from '+ sl.Strings[i]);
        ExecSQL;
      end;
    end;
  finally
    sl.Free;
  end;end;

Answer 3

请问:如果在Access库里设置了关联表,而且要求进行完整性及一致性校验,此时用Delete可能出现问题,因为完整性及一致性校验无法通过,而提示无法删除数据,此时该如何处理?

Answer 4

delete from tablename
truncate tablename
sql,access用这些都可以的