Browse Source

* Fixed for query-results with double fieldnames

git-svn-id: trunk@15433 -
joost 15 years ago
parent
commit
fede03c225
1 changed files with 1 additions and 1 deletions
  1. 1 1
      packages/fcl-db/src/sqldb/odbc/odbcconn.pas

+ 1 - 1
packages/fcl-db/src/sqldb/odbc/odbcconn.pas

@@ -1126,7 +1126,7 @@ begin
     end;
 
     // add FieldDef
-    TFieldDef.Create(FieldDefs, ColName, FieldType, FieldSize, False, i);
+    TFieldDef.Create(FieldDefs, FieldDefs.MakeNameUnique(ColName), FieldType, FieldSize, False, i);
   end;
 end;