ViewVC Help

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

root/public/ibx/branches/udr/testsuite/Test2.pas

Comparing:
ibx/trunk/fbintf/testsuite/Test2.pas (file contents), Revision 352 by tony, Thu Oct 21 12:17:43 2021 UTC vs.
ibx/branches/udr/testsuite/Test2.pas (file contents), Revision 396 by tony, Thu Feb 17 11:57:23 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 156 | Line 157 | begin
157		DPB.Add(isc_dpb_user_name).setAsString(Owner.GetUserName);
158		DPB.Add(isc_dpb_password).setAsString(' ');
159		DPB.Add(isc_dpb_lc_ctype).setAsString(CharSet);
159	–	DPB.Add(isc_dpb_set_db_SQL_dialect).setAsByte(SQLDialect);
160	–	DPB.Find(isc_dpb_password).setAsString(Owner.GetPassword);
160		try
161		Attachment := FirebirdAPI.OpenDatabase(Owner.GetEmployeeDatabaseName,DPB);
162		except on e: Exception do
163		writeln(OutFile,'Open Database fails ',E.Message);
164		end;
165	+	DPB.Find(isc_dpb_password).setAsString(Owner.GetPassword);
166		writeln(OutFile,'Opening ',Owner.GetEmployeeDatabaseName);
167		Attachment := FirebirdAPI.OpenDatabase(Owner.GetEmployeeDatabaseName,DPB);
168		writeln(OutFile,'Database Open, SQL Dialect = ',Attachment.GetSQLDialect);
169		DoQuery(Attachment);
170	+	if Attachment.HasScollableCursors then
171	+	try
172	+	DoScrollableQuery(Attachment);
173	+	except on e: Exception do
174	+	writeln(OutFile,'Remote Scrollable cursors test fails ',E.Message);
175	+	end;
176		Attachment.Disconnect;
177		writeln(OutFile,'Now open the employee database as a local database');
178		DPB := FirebirdAPI.AllocateDPB;
179		DPB.Add(isc_dpb_lc_ctype).setAsString(CharSet);
174	–	DPB.Add(isc_dpb_set_db_SQL_dialect).setAsByte(SQLDialect);
180		DPB.Add(isc_dpb_user_name).setAsString(Owner.GetUserName);
181		if FirebirdAPI.GetClientMajor < 3 then
182		DPB.Add(isc_dpb_password).setAsString(Owner.GetPassword);

Comparing:
ibx/trunk/fbintf/testsuite/Test2.pas (property svn:eol-style), Revision 352 by tony, Thu Oct 21 12:17:43 2021 UTC vs.
ibx/branches/udr/testsuite/Test2.pas (property svn:eol-style), Revision 396 by tony, Thu Feb 17 11:57:23 2022 UTC

#	Line 0 | Line 1
1	+	native

Diff Legend

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