fix: skip harmless error when PG has no COLLATION_NAME in IS.COLUMNS

ansgarbecker · ansgarbecker · commit eb3937ac04ea · 2025-12-19T13:40:36.000+01:00
Refs #2338
diff --git a/source/dbconnection.pas b/source/dbconnection.pas
@@ -5869,7 +5869,7 @@ function TDBConnection.GetTableColumns(Table: TDBObject): TTableColumnList;
         Col.LengthSet := MaxLen;
     end;
     Col.Charset := ColQuery.Col('CHARACTER_SET_NAME');
-    Col.Collation := ColQuery.Col('COLLATION_NAME');
+    Col.Collation := ColQuery.Col('COLLATION_NAME', True);
     // MSSQL has no expression
     Col.GenerationExpression := ColQuery.Col('GENERATION_EXPRESSION', True);
     Col.GenerationExpression := UnescapeString(Col.GenerationExpression);
