Browse Source

fcl-db: oracle: add experimental support for LONG data type (needs more testing)

git-svn-id: trunk@28013 -
lacak 11 years ago
parent
commit
f71480b281
1 changed files with 2 additions and 4 deletions
  1. 2 4
      packages/fcl-db/src/sqldb/oracle/oracleconnection.pp

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

@@ -330,7 +330,6 @@ var SQLVarNr       : integer;
     i              : integer;
     i              : integer;
     f              : double;
     f              : double;
     year,month,day : word;
     year,month,day : word;
-    db             : array[0..4] of byte;
     pb             : pbyte;
     pb             : pbyte;
     s              : string;
     s              : string;
 
 
@@ -605,7 +604,6 @@ var SQLVarNr       : integer;
     i              : integer;
     i              : integer;
     f              : double;
     f              : double;
     year, month, day, hour, minute, second, millisecond : word;
     year, month, day, hour, minute, second, millisecond : word;
-    db             : array[0..4] of byte;
     pb             : pbyte;
     pb             : pbyte;
     s              : string;
     s              : string;
 
 
@@ -857,6 +855,7 @@ begin
                                   OFieldSize:=sizeof(double);
                                   OFieldSize:=sizeof(double);
                                   end;
                                   end;
                                 end;
                                 end;
+        SQLT_LNG,
         OCI_TYPECODE_CHAR,
         OCI_TYPECODE_CHAR,
         OCI_TYPECODE_VARCHAR,
         OCI_TYPECODE_VARCHAR,
         OCI_TYPECODE_VARCHAR2 : begin
         OCI_TYPECODE_VARCHAR2 : begin
@@ -1096,8 +1095,7 @@ begin
                           'DATA_LENGTH as column_length, '+
                           'DATA_LENGTH as column_length, '+
                           'DATA_PRECISION as column_precision, '+
                           'DATA_PRECISION as column_precision, '+
                           'DATA_SCALE as column_scale '+
                           'DATA_SCALE as column_scale '+
-                          {DATA_DEFAULT is type LONG; no support for that in 
-													 oracleconnection so removed this from query }
+                          {DATA_DEFAULT is type LONG; no support for that in oracleconnection so removed this from query}
                         'FROM ALL_TAB_COLUMNS '+
                         'FROM ALL_TAB_COLUMNS '+
                         'WHERE Upper(TABLE_NAME) = '''+UpperCase(SchemaObjectName)+''' '+
                         'WHERE Upper(TABLE_NAME) = '''+UpperCase(SchemaObjectName)+''' '+
                         'ORDER BY COLUMN_NAME';
                         'ORDER BY COLUMN_NAME';