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

* Reverted r8922 since r8914 contains a better fix

Browse Source 
git-svn-id: trunk@9131 -
This commit is contained in:
joost 2007-11-04 15:41:08 +00:00
parent 8674e35f45
commit 536a732823
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/fcl-db/src/sqldb/interbase/ibconnection.pp
View File

@ -935,7 +935,7 @@ begin
stTables : s := 'select '+
'rdb$relation_id as recno, '+
'''' + DatabaseName + ''' as catalog_name, '+
'cast ('''' as varchar(32)) as schema_name, '+
''''' as schema_name, '+
'rdb$relation_name as table_name, '+
'0 as table_type '+
'from '+
@ -947,7 +947,7 @@ begin
stSysTables : s := 'select '+
'rdb$relation_id as recno, '+
'''' + DatabaseName + ''' as catalog_name, '+
'cast ('''' as varchar(32)) as schema_name, '+
''''' as schema_name, '+
'rdb$relation_name as table_name, '+
'0 as table_type '+
'from '+
@ -959,7 +959,7 @@ begin
stProcedures : s := 'select '+
'rdb$procedure_id as recno, '+
'''' + DatabaseName + ''' as catalog_name, '+
'cast ('''' as varchar(32)) as schema_name, '+
''''' as schema_name, '+
'rdb$procedure_name as proc_name, '+
'0 as proc_type, '+
'rdb$procedure_inputs as in_params, '+
@ -971,13 +971,13 @@ begin
stColumns : s := 'select '+
'rdb$field_id as recno, '+
'''' + DatabaseName + ''' as catalog_name, '+
'cast ('''' as varchar(32)) as schema_name, '+
''''' as schema_name, '+
'rdb$relation_name as table_name, '+
'rdb$field_name as column_name, '+
'rdb$field_position as column_position, '+
'0 as column_type, '+
'0 as column_datatype, '+
'cast ('''' as varchar(32)) as column_typename, '+
''''' as column_typename, '+
'0 as column_subtype, '+
'0 as column_precision, '+
'0 as column_scale, '+