paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-12 10:09:08 +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; 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 {DATA_DEFAULT is type LONG; no support for that in oracleconnection so removed this from query}
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';