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

Comparing ibx/trunk/fbintf/testsuite/Test2.pas (file contents):
Revision 350 by tony, Wed Oct 20 14:58:56 2021 UTC vs.
Revision 353 by tony, Sat Oct 23 14:11:37 2021 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);
# Line 181 | Line 182 | begin
182      writeln(OutFile,'Open Local Database fails ',E.Message);
183    end;
184    DoQuery(Attachment);
185 <  if FirebirdAPI.HasScollableCursors then
185 >  if Attachment.HasScollableCursors then
186      DoScrollableQuery(Attachment);
187    Attachment.Disconnect;
188   end;

Diff Legend

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