opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

Fix retrieving MySQL events from the current database on older servers which return a lower case schema name, by turning the comparison case insensitive. Further more, don't compare the schema at all on newer servers with a fix for MySQL bug 41907. See https://bugs.mysql.com/bug.php?id=41907#c360194 and https://www.heidisql.com/forum.php?t=41682

Browse Source
This commit is contained in:
Ansgar Becker
2024-01-18 19:33:15 +01:00
parent c6394fb6db
commit 79ce5edcf3
1 changed files with 8 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
source/dbconnection.pas
View File

@@ -6902,6 +6902,7 @@ var
obj: TDBObject;
Results: TDBQuery;
rx: TRegExpr;
SchemaBug41907Exists, DbNameMatches: Boolean;
begin
// Return a db's table list
try
@@ -7066,8 +7067,14 @@ begin
end;
end;
if Assigned(Results) then begin
// Work around old MySQL bug: https://bugs.mysql.com/bug.php?id=41907#c360194
// "Noted [fixed] in 5.1.57, 5.5.12, 5.6.3 changelogs."
SchemaBug41907Exists := (ServerVersionInt < 50157) or
((ServerVersionInt >= 50500) and (ServerVersionInt < 50512)) or
((ServerVersionInt >= 50600) and (ServerVersionInt < 50603));
while not Results.Eof do begin
if Results.Col('Db') = db then begin
DbNameMatches := CompareText(Results.Col('Db'), db) = 0;
if (SchemaBug41907Exists and DbNameMatches) or (not SchemaBug41907Exists) then begin
Obj := TDBObject.Create(Self);
Cache.Add(obj);
Obj.Name := Results.Col('Name');