chore: debugging missing columns from IS.COLUMNS on PG v16

ansgarbecker · ansgarbecker · commit f65bd15d026b · 2026-01-03T15:31:50.000+01:00
Refs #2338
diff --git a/source/dbconnection.pas b/source/dbconnection.pas
@@ -5869,7 +5869,11 @@ function TDBConnection.GetTableColumns(Table: TDBObject): TTableColumnList;
         Col.LengthSet := MaxLen;
     end;
     Col.Charset := ColQuery.Col('CHARACTER_SET_NAME');
-    Col.Collation := ColQuery.Col('COLLATION_NAME', True);
+    if not ColQuery.ColExists('COLLATION_NAME') then begin
+      // Debugging issue #2338 with missing columns on PG v16:
+      Log(lcError, 'Missing column COLLATION_NAME: '+ColQuery.ColumnNames.CommaText);
+    end;
+    Col.Collation := ColQuery.Col('COLLATION_NAME');
     // MSSQL has no expression
     Col.GenerationExpression := ColQuery.Col('GENERATION_EXPRESSION', True);
     Col.GenerationExpression := UnescapeString(Col.GenerationExpression);
