Sfoglia il codice sorgente

* Map SQL_TEXT(char) fields to ftFixedChar fields

git-svn-id: trunk@13407 -
joost 16 anni fa
parent
commit
dfc5177bdc
1 ha cambiato i file con 10 aggiunte e 2 eliminazioni
  1. 10 2
      packages/fcl-db/src/sqldb/interbase/ibconnection.pp

+ 10 - 2
packages/fcl-db/src/sqldb/interbase/ibconnection.pp

@@ -447,7 +447,7 @@ begin
       TrType := ftFMTBcd;
     end
   else case (SQLType and not 1) of
-    SQL_VARYING,SQL_TEXT :
+    SQL_VARYING :
       begin
         TrType := ftString;
         if SQLLen > dsMaxStringSize then
@@ -455,6 +455,14 @@ begin
         else
           TrLen := SQLLen;
       end;
+    SQL_TEXT :
+      begin
+        TrType := ftFixedChar;
+        if SQLLen > dsMaxStringSize then
+          TrLen := dsMaxStringSize
+        else
+          TrLen := SQLLen;
+      end;
     SQL_TYPE_DATE :
       TrType := ftDate{Time};
     SQL_TYPE_TIME :
@@ -930,7 +938,7 @@ begin
           end;
         ftDate, ftTime, ftDateTime:
           GetDateTime(CurrBuff, Buffer, SQLDA^.SQLVar[x].SQLType);
-        ftString  :
+        ftString, ftFixedChar  :
           begin
             Move(CurrBuff^, Buffer^, VarCharLen);
             PChar(Buffer + VarCharLen)^ := #0;