From f71480b28177240ddd323bdc23af79017ea11c4a Mon Sep 17 00:00:00 2001 From: lacak Date: Fri, 20 Jun 2014 12:03:10 +0000 Subject: [PATCH] fcl-db: oracle: add experimental support for LONG data type (needs more testing) git-svn-id: trunk@28013 - --- packages/fcl-db/src/sqldb/oracle/oracleconnection.pp | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/packages/fcl-db/src/sqldb/oracle/oracleconnection.pp b/packages/fcl-db/src/sqldb/oracle/oracleconnection.pp index dabad701d6..00067b91f7 100644 --- a/packages/fcl-db/src/sqldb/oracle/oracleconnection.pp +++ b/packages/fcl-db/src/sqldb/oracle/oracleconnection.pp @@ -330,7 +330,6 @@ var SQLVarNr : integer; i : integer; f : double; year,month,day : word; - db : array[0..4] of byte; pb : pbyte; s : string; @@ -605,7 +604,6 @@ var SQLVarNr : integer; i : integer; f : double; year, month, day, hour, minute, second, millisecond : word; - db : array[0..4] of byte; pb : pbyte; s : string; @@ -857,6 +855,7 @@ begin OFieldSize:=sizeof(double); end; end; + SQLT_LNG, OCI_TYPECODE_CHAR, OCI_TYPECODE_VARCHAR, OCI_TYPECODE_VARCHAR2 : begin @@ -1096,8 +1095,7 @@ begin 'DATA_LENGTH as column_length, '+ 'DATA_PRECISION as column_precision, '+ '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 '+ 'WHERE Upper(TABLE_NAME) = '''+UpperCase(SchemaObjectName)+''' '+ 'ORDER BY COLUMN_NAME';