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

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

推荐分享