delphi xe 遍历指定数据库，清空各表记录

要咱清空一个有接近100张表的数据库，手工一张一张的清空，烦！

尝试以下代码可实现。记得备份数据

var

Form10: TForm10;

implementation

{$R *.dfm}

procedure TForm10.Button1Click(Sender: TObject);

var

i :integer;

begin

for i:=0 to ListBox1.Items.Count-1 do

try

FDQuery1.SQL.Text:='DELETE FROM ' +ListBox1.Items.Strings[i];

FDQuery1.open;

except

//有部份无法删除

end;

procedure TForm10.FormCreate(Sender: TObject);

begin

FDConnection1.GetTableNames('', '', '', ListBox1.Items);

end;

end.

————————————————

原文链接：https://blog.csdn.net/qq_25439957/article/details/90440360

推荐分享