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

Safely ignore checked "Query profile" node on old servers. Fixes issue #2228.

Browse Source
This commit is contained in:
Ansgar Becker
2010-11-09 22:25:39 +00:00
parent e7e666096f
commit d7cb1f3386
1 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
source/main.pas
View File

@ -2204,6 +2204,10 @@ begin
FreeAndNil(QueryTab.QueryProfile);
ProfileNode := FindNode(QueryTab.treeHelpers, HELPERNODE_PROFILE, nil);
DoProfile := Assigned(ProfileNode) and (QueryTab.treeHelpers.CheckState[ProfileNode] in CheckedStates);
if DoProfile and (ActiveConnection.ServerVersionInt < 50037) then begin
DoProfile := False;
MessageDlg('Query profiling requires MySQL 5.0.37 or later.', mtError, [mbOK], 0);
end;
if DoProfile then
ActiveConnection.Query('SET profiling=1');
for i:=0 to SQLBatch.Count-1 do begin