ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/runtime/nongui/IBTable.pas

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