本文整理自网络,侵删。
要咱清空一个有接近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;end;
procedure TForm10.FormCreate(Sender: TObject);begin FDConnection1.GetTableNames('', '', '', ListBox1.Items);
end;
end.――――――――――――――――
原文链接:https://blog.csdn.net/qq_25439957/article/details/90440360
相关阅读 >>
Delphi 在rxrichedit中插入图片的完美解决方法
Delphi android实例-录音与回放(播放mp3)(xe8+小米2)
更多相关阅读请进入《Delphi》频道 >>