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

Comparing ibx/trunk/fbintf/testsuite/Test2.pas (file contents):
Revision 352 by tony, Thu Oct 21 12:17:43 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);

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines