Issue #1028: Compatibility to old MySQL 4.x servers where SHOW FULL COLUMNS did not yet have "Collation" and "Comment" columns.

This commit is contained in:
Ansgar Becker
2020-05-13 08:08:31 +02:00
parent 3eb3480e1c
commit 883c5287e6

View File

@ -4852,7 +4852,7 @@ begin
Col.Name := ColQuery.Col(0);
Col.OldName := Col.Name;
Col.ParseDatatype(ColQuery.Col('Type'));
Col.Collation := ColQuery.Col('Collation');
Col.Collation := ColQuery.Col('Collation', True);
if Col.Collation.ToLowerInvariant = 'null' then
Col.Collation := '';
Col.AllowNull := ColQuery.Col('Null').ToLowerInvariant = 'yes';
@ -4877,7 +4877,7 @@ begin
Col.OnUpdateType := cdtExpression;
end;
Col.Comment := ColQuery.Col('Comment');
Col.Comment := ColQuery.Col('Comment', True);
ColQuery.Next;
end;
ColQuery.Free;