请教：如何把SQL SERVER中的某个数据库的所有表都清空？

Question

例如，我在SQL SERVER中建立了一个数据库TEST，我想在DELPHI中按一个按钮就把TEST数据库中的所有用户表里面的记录都清空掉，不知代码应该如何写 请大虾指点。谢谢！

Answer 1

var
 tmpadoquery1:tadoquery;
 tmpadoquery2:tadoquery;
 begin
 tmpadoquery1:=tadoquery.create();
 tmpadoquery2:=tadoquery.create();
 tmpadoquery1.connection:=odfo;//master数据库;
 tmpadoquery2.connection:=djfkk;//你要删除表的数据库
 tmpadoquery2.Close;
 tmpadoquery2.SQL.Clear;
 tmpadoquery2.SQL.Add('select * from sysobjects where xtype='''+'U'+'''');
 tmpadoquery2.Open;
  tmpadoquery1.close;
 while not tmpadoquery2.eof do
  begin
  tmpadoquery1.sql.clear;
  tmpadoquery1.sql.add('delete from '+tmpadoquery2.fieldbyname('name').asstring);
  tmpadoquery2.next;
  end;
  tmpadoquery1.execsql
 end;
 
 end;