فهرست منبع

* Fixed for query-results with double fieldnames

git-svn-id: trunk@15433 -
joost 15 سال پیش
والد
کامیت
fede03c225
1فایلهای تغییر یافته به همراه1 افزوده شده و 1 حذف شده
  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;