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 350 by tony, Wed Oct 20 14:58:56 2021 UTC vs.
Revision 380 by tony, Mon Jan 10 10:13:17 2022 UTC

#	Line 115 | Line 115 | var Transaction: ITransaction;
115		Results: IResultSet;
116		begin
117		writeln(Outfile,'Scollable Cursors');
118	+	WriteAttachmentInfo(Attachment);
119		Transaction := Attachment.StartTransaction([isc_tpb_read,isc_tpb_nowait,isc_tpb_concurrency],taCommit);
120		Statement := Attachment.Prepare(Transaction,'Select * from EMPLOYEE order by EMP_NO',3);
121		Results := Statement.OpenCursor(true);
#	Line 157 | Line 158 | begin
158		DPB.Add(isc_dpb_password).setAsString(' ');
159		DPB.Add(isc_dpb_lc_ctype).setAsString(CharSet);
160		DPB.Add(isc_dpb_set_db_SQL_dialect).setAsByte(SQLDialect);
160	–	DPB.Find(isc_dpb_password).setAsString(Owner.GetPassword);
161		try
162		Attachment := FirebirdAPI.OpenDatabase(Owner.GetEmployeeDatabaseName,DPB);
163		except on e: Exception do
164		writeln(OutFile,'Open Database fails ',E.Message);
165		end;
166	+	DPB.Find(isc_dpb_password).setAsString(Owner.GetPassword);
167		writeln(OutFile,'Opening ',Owner.GetEmployeeDatabaseName);
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;
#	Line 181 | Line 188 | begin
188		writeln(OutFile,'Open Local Database fails ',E.Message);
189		end;
190		DoQuery(Attachment);
191	<	if FirebirdAPI.HasScollableCursors then
191	>	if Attachment.HasScollableCursors then
192		DoScrollableQuery(Attachment);
193		Attachment.Disconnect;
194		end;

Comparing ibx/trunk/fbintf/testsuite/Test2.pas (property svn:eol-style):
Revision 350 by tony, Wed Oct 20 14:58:56 2021 UTC vs.
Revision 380 by tony, Mon Jan 10 10:13:17 2022 UTC

#	Line 0 | Line 1
1	+	native

Diff Legend

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