paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-10 09:29:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@28013 -
This commit is contained in:
lacak 2014-06-20 12:03:10 +00:00
parent af2130d558
commit f71480b281
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-db/src/sqldb/oracle/oracleconnection.pp
View File

@ -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';