Overcome MySQL bug #41907 - SHOW EVENTS shows events in other schema.

This commit is contained in:
Ansgar Becker
2010-04-22 16:24:28 +00:00
parent 8208177001
commit 49dce8e08b

View File

@ -1280,11 +1280,12 @@ begin
end;
if Assigned(Results) then begin
while not Results.Eof do begin
obj := TDBObject.Create;
if Results.Col('Db') = db then begin
Obj := TDBObject.Create;
Result.Add(obj);
obj.Name := Results.Col('Name');
obj.Database := db;
obj.Rows := -1;
Obj.Name := Results.Col('Name');
Obj.Database := db;
Obj.Rows := -1;
Obj.Size := -1;
Obj.NodeType := lntEvent;
Obj.Created := 0;
@ -1303,6 +1304,7 @@ begin
Obj.Collation := '';
Obj.CheckSum := -1;
Obj.CreateOptions := '';
end;
Results.Next;
end;
FreeAndNil(Results);