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

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

end;

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

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

相关阅读 >>

Delphi程序在每个windows 会话中只执行一次

Delphi 在rxrichedit中插入图片的完美解决方法

Delphi android实例-录音与回放(播放mp3)(xe8+小米2)

Delphi ado的事务处理例子

Delphi 提升程序进程权限为debug权限

Delphi两个取字串长度的函数strlen,length

Delphi 切换大小写的例子

Delphi获得系统当前时间日期和格式化时间

oleinitialize和coinitialize的区别

Delphi fmx 绘制非常精确的 时分秒针

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...