ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/runtime/IBTable.pas
(Generate patch)
# Line 430 | Line 430
430        Query.SQL.Text := 'Select ''foo'' from RDB$RELATION_CONSTRAINTS ' +
431          'where RDB$RELATION_NAME = ' +
432          '''' +
433 <        FormatIdentifierValue(Database.SQLDialect,
433 >        ExtractIdentifier(Database.SQLDialect,
434            QuoteIdentifier(DataBase.SQLDialect, FTableName)) +
435          ''' ' +
436          ' AND RDB$CONSTRAINT_NAME = ' +
437          '''' +
438 <        FormatIdentifierValue(Database.SQLDialect,
438 >        ExtractIdentifier(Database.SQLDialect,
439            QuoteIdentifier(DataBase.SQLDialect, Name)) +
440          ''' ' +
441          'AND RDB$CONSTRAINT_TYPE = ''PRIMARY KEY''';
# Line 467 | Line 467
467        Query.SQL.Text := 'Select RDB$CONSTRAINT_NAME from RDB$RELATION_CONSTRAINTS ' +
468          'where RDB$RELATION_NAME = ' +
469          '''' +
470 <        FormatIdentifierValue(Database.SQLDialect,
470 >        ExtractIdentifier(Database.SQLDialect,
471            QuoteIdentifier(DataBase.SQLDialect, FTableName)) +
472          ''' ' +
473          'AND RDB$INDEX_NAME = ' +
474          '''' +
475 <        FormatIdentifierValue(Database.SQLDialect,
475 >        ExtractIdentifier(Database.SQLDialect,
476            QuoteIdentifier(DataBase.SQLDialect, Name)) +
477          ''' ' +
478          'AND RDB$CONSTRAINT_TYPE = ''PRIMARY KEY''';
# Line 588 | Line 588
588      'I.RDB$SEGMENT_COUNT, S.RDB$FIELD_NAME from RDB$INDICES I, ' + {do not localize}
589      'RDB$INDEX_SEGMENTS S where I.RDB$INDEX_NAME = S.RDB$INDEX_NAME '+ {do not localize}
590      'and I.RDB$RELATION_NAME = ' + '''' + {do not localize}
591 <     FormatIdentifierValue(Database.SQLDialect,
591 >     ExtractIdentifier(Database.SQLDialect,
592         QuoteIdentifier(DataBase.SQLDialect, FTableName)) + '''';
593      Query.Prepare;
594      Query.ExecQuery;
# Line 620 | Line 620
620            SubQuery.SQL.Text :=
621           'Select RDB$FIELD_NAME from RDB$INDEX_SEGMENTS where RDB$INDEX_NAME = ' + {do not localize}
622            '''' +
623 <          FormatIdentifierValue(Database.SQLDialect,
623 >          ExtractIdentifier(Database.SQLDialect,
624              QuoteIdentifier(DataBase.SQLDialect, Name)) +
625            '''' + 'ORDER BY RDB$FIELD_POSITION'; {do not localize}
626            SubQuery.Prepare;
# Line 671 | Line 671
671      Query.SQL.Text :=
672      'Select USER from RDB$RELATIONS where RDB$RELATION_NAME = ' + {do not localize}
673      '''' +
674 <    FormatIdentifierValue(Database.SQLDialect,
674 >    ExtractIdentifier(Database.SQLDialect,
675        QuoteIdentifier(DataBase.SQLDialect, FTableName)) + '''';
676      Query.Prepare;
677      Query.ExecQuery;
# Line 918 | Line 918
918      Query.SQL.Text := 'Select RDB$SYSTEM_FLAG, RDB$DBKEY_LENGTH ' + {do not localize}
919                      'from RDB$RELATIONS where RDB$RELATION_NAME = ' + {do not localize}
920                      '''' +
921 <                    FormatIdentifierValue(Database.SQLDialect,
921 >                    ExtractIdentifier(Database.SQLDialect,
922                        QuoteIdentifier(DataBase.SQLDialect, FTableName)) + '''';
923      Query.Prepare;
924      Query.ExecQuery;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines