paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 14:19:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fcl-db: oracle connection

Browse Source 
+ metadata retrieval: fix retrieving DATA_DEFAULT column with LONG datatype from ALL_TAB_COLUMNS: oracleconnection does not support the legacy LONG datatype.

git-svn-id: trunk@27980 -
This commit is contained in:
reiniero 2014-06-16 09:10:42 +00:00
parent beed60ac0d
commit f7b6bbdf8b
1 changed files with 4 additions and 2 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

@ -1026,11 +1026,13 @@ begin
'NULLABLE as column_nullable, '+
'DATA_LENGTH as column_length, '+
'DATA_PRECISION as column_precision, '+
'DATA_SCALE as column_scale, '+
'DATA_DEFAULT '+
'DATA_SCALE as column_scale '+
{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';
// Columns of tables, views and clusters accessible to user; hidden columns are filtered out.
stProcedures : s := 'SELECT '+
'case when PROCEDURE_NAME is null then OBJECT_NAME ELSE OBJECT_NAME || ''.'' || PROCEDURE_NAME end AS procedure_name '+
'FROM USER_PROCEDURES ';