소스 검색

* Fix bug #34135, patch by Andrea Urbani

git-svn-id: trunk@39618 -
michael 7 년 전
부모
커밋
3d7ce42194
1개의 변경된 파일1개의 추가작업 그리고 1개의 파일을 삭제
  1. 1 1
      packages/fcl-db/src/sqldb/oracle/oracleconnection.pp

+ 1 - 1
packages/fcl-db/src/sqldb/oracle/oracleconnection.pp

@@ -1203,7 +1203,7 @@ begin
     qry.next;
     while (name = qry.fields[0].asstring) and (not qry.eof) do
       begin
-      Fields := Fields + ';' + trim(qry.Fields[2].asstring);
+      Fields := Fields + ';' + trim(qry.Fields[1].asstring);
       qry.next;
       end;
     end;