ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/runtime/nongui/IBTable.pas
(Generate patch)

Comparing ibx/trunk/runtime/nongui/IBTable.pas (file contents):
Revision 308 by tony, Sat Jul 18 10:26:30 2020 UTC vs.
Revision 312 by tony, Tue Aug 25 15:40:58 2020 UTC

# Line 554 | Line 554 | var
554          ExtractIdentifier(Database.SQLDialect,
555            QuoteIdentifier(DataBase.SQLDialect, Name)) +
556          ''' ' +
557 <        'AND RDB$CONSTRAINT_TYPE = ''PRIMARY KEY''';
557 >        'AND Trim(RDB$CONSTRAINT_TYPE) = ''PRIMARY KEY''';
558        Query.Prepare;
559        Query.ExecQuery;
560        if not Query.EOF then
# Line 748 | Line 748 | begin
748      Query.Database := DataBase;
749      Query.Transaction := Database.InternalTransaction;
750      Query.SQL.Text :=
751 <    'Select USER from RDB$RELATIONS where RDB$RELATION_NAME = ' + {do not localize}
751 >    'Select USER from RDB$RELATIONS where Trim(RDB$RELATION_NAME) = ' + {do not localize}
752      '''' +
753      ExtractIdentifier(Database.SQLDialect,
754        QuoteIdentifier(DataBase.SQLDialect, FTableName)) + '''';
# Line 995 | Line 995 | begin
995      Query.Database := DataBase;
996      Query.Transaction := Database.InternalTransaction;
997      Query.SQL.Text := 'Select RDB$SYSTEM_FLAG, RDB$DBKEY_LENGTH ' + {do not localize}
998 <                    'from RDB$RELATIONS where RDB$RELATION_NAME = ' + {do not localize}
998 >                    'from RDB$RELATIONS where Trim(RDB$RELATION_NAME)  = ' + {do not localize}
999                      '''' +
1000                      ExtractIdentifier(Database.SQLDialect,
1001                        QuoteIdentifier(DataBase.SQLDialect, FTableName)) + '''';

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines