频道分类

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

作者:admin 来源: 日期:2020/4/1 15:41:49 人气: 标签:

 
要咱清空一个有接近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 TFDMemTable 更新到数据库下一篇:没有资料