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