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