opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-26 03:01:07 +08:00
Code Issues Packages Projects Releases Wiki Activity

Display progress bar when deleting rows in 1 or more tables via action "Empty table(s)". Also, use TRUNCATE on all server versions. Don't know why I did that per DELETE FROM on servers below 5.0.3. See http://www.heidisql.com/forum.php?t=6285

Browse Source
This commit is contained in:
Ansgar Becker
2010-08-16 19:50:24 +00:00
parent 5021ddaa2a
commit 7cedc84823
1 changed files with 9 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
source/main.pas
View File

@ -2806,7 +2806,6 @@ procedure TMainForm.actEmptyTablesExecute(Sender: TObject);
var
t: TStringList;
i: Integer;
sql_pattern: String;
Node: PVirtualNode;
begin
// Add selected items/tables to helper list
@ -2829,25 +2828,21 @@ begin
exit;
Screen.Cursor := crHourglass;
{**
@note ansgarbecker: Empty table using faster TRUNCATE statement on newer servers
@see http://dev.mysql.com/doc/refman/5.0/en/truncate.html
@see https://sourceforge.net/tracker/index.php?func=detail&aid=1644143&group_id=164593&atid=832350
}
if Connection.ServerVersionInt < 50003 then
sql_pattern := 'DELETE FROM '
else
sql_pattern := 'TRUNCATE ';
EnableProgressBar(t.Count);
try
for i:=0 to t.count-1 do
Connection.Query( sql_pattern + mask(t[i]) );
for i:=0 to t.Count-1 do begin
Connection.Query('TRUNCATE ' + mask(t[i]));
ProgressBarStatus.StepIt;
end;
actRefresh.Execute;
except
on E:EDatabaseError do
on E:EDatabaseError do begin
ProgressBarStatus.State := pbsError;
MessageDlg(E.Message, mtError, [mbOK], 0);
end;
end;
t.Free;
ProgressBarStatus.Hide;
Screen.Cursor := crDefault;
end;