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;
end;

procedure TForm10.FormCreate(Sender: TObject);
begin
  FDConnection1.GetTableNames('', '', '', ListBox1.Items);

end;

end.
――――――――――――――――

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

相关阅读 >>

Delphi #9、 #10、 #13 表示的意思

Delphi word文档内容批量替换

Delphi 去掉ide开启后弹出安全警告框

Delphi firedac 下的 sqlite [7] - 备份、优化、事务(transaction)

Delphi判断驱动器类型

Delphi 获取鼠标坐标大全方法

Delphi xe5中以andorid 启动应用程序

Delphi中创建json字符串

Delphi 从字符串中提取汉字的函数

Delphi 比较两个位图是否相同

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi xe 遍历指定数据库，清空各表记录