Explorar o código

Merged revisions 9131 via svnmerge from
svn+ssh://[email protected]/FPC/svn/fpc/trunk

........
r9131 | joost | 2007-11-04 16:41:08 +0100 (Sun, 04 Nov 2007) | 1 line

* Reverted r8922 since r8914 contains a better fix
........

git-svn-id: branches/fixes_2_2@9755 -

joost %!s(int64=17) %!d(string=hai) anos
pai
achega
1d6db8e64a
Modificáronse 1 ficheiros con 5 adicións e 5 borrados
  1. 5 5
      packages/fcl-db/src/sqldb/interbase/ibconnection.pp

+ 5 - 5
packages/fcl-db/src/sqldb/interbase/ibconnection.pp

@@ -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, '+