opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-26 11:17:57 +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 var
t: TStringList; t: TStringList;
i: Integer; i: Integer;
sql_pattern: String;
Node: PVirtualNode; Node: PVirtualNode;
begin begin
// Add selected items/tables to helper list // Add selected items/tables to helper list
@ -2829,25 +2828,21 @@ begin
exit; exit;
Screen.Cursor := crHourglass; Screen.Cursor := crHourglass;
{** EnableProgressBar(t.Count);
@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 ';
try try
for i:=0 to t.count-1 do for i:=0 to t.Count-1 do begin
Connection.Query( sql_pattern + mask(t[i]) ); Connection.Query('TRUNCATE ' + mask(t[i]));
ProgressBarStatus.StepIt;
end;
actRefresh.Execute; actRefresh.Execute;
except except
on E:EDatabaseError do on E:EDatabaseError do begin
ProgressBarStatus.State := pbsError;
MessageDlg(E.Message, mtError, [mbOK], 0); MessageDlg(E.Message, mtError, [mbOK], 0);
end;
end; end;
t.Free; t.Free;
ProgressBarStatus.Hide;
Screen.Cursor := crDefault; Screen.Cursor := crDefault;
end; end;