ViewVC Help

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

root/public/ibx/trunk/fbintf/testsuite/Test2.pas

Comparing ibx/trunk/fbintf/testsuite/Test2.pas (file contents):
Revision 353 by tony, Sat Oct 23 14:11:37 2021 UTC vs.
Revision 359 by tony, Tue Dec 7 09:37:32 2021 UTC

#	Line 168 | Line 168 | begin
168		Attachment := FirebirdAPI.OpenDatabase(Owner.GetEmployeeDatabaseName,DPB);
169		writeln(OutFile,'Database Open, SQL Dialect = ',Attachment.GetSQLDialect);
170		DoQuery(Attachment);
171	+	if Attachment.HasScollableCursors then
172	+	try
173	+	DoScrollableQuery(Attachment);
174	+	except on e: Exception do
175	+	writeln(OutFile,'Remote Scrollable cursors test fails ',E.Message);
176	+	end;
177		Attachment.Disconnect;
178		writeln(OutFile,'Now open the employee database as a local database');
179		DPB := FirebirdAPI.AllocateDPB;

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines