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

Comparing ibx/trunk/fbintf/testsuite/Test4.pas (file contents):
Revision 266 by tony, Wed Dec 26 18:34:32 2018 UTC vs.
Revision 270 by tony, Fri Jan 18 11:10:37 2019 UTC

# Line 60 | Line 60 | implementation
60  
61   procedure TTest4.DoQuery(Attachment: IAttachment);
62   var Transaction, Transaction2, Transaction3: ITransaction;
63 <    Statement: IStatement;
63 >    Statement, Statement2: IStatement;
64      Rows: IResultSet;
65      stats: TPerfCounters;
66   begin
# Line 168 | Line 168 | begin
168    writeln(OutFile,'Employee Count = ', Attachment.OpenCursorAtStart(Transaction,
169           'Select count(*) from EMPLOYEE',3)[0].AsInteger);
170  
171 +  Statement2 := Attachment.PrepareWithNamedParameters(Transaction,'Update EMPLOYEE Set FIRST_NAME = ''Jayne''''s'' Where EMP_NO = :EMP_NO',3);
172 +  Statement2.GetSQLParams.ByName('EMP_NO').AsInteger := 150;
173 +  writeln(OutFile,'Updating');
174 +  Statement2.Execute;
175 +  WriteAffectedRows(Statement);
176 +
177    writeln(OutFile,'Prepare Query again');
178    writeln(OutFile);
179    Statement.Prepare;
# Line 209 | Line 215 | begin
215    Statement.Execute;
216    WriteAffectedRows(Statement);
217    Statement := Attachment.PrepareWithNamedParameters(Transaction,'Select * from EMPLOYEE Where EMP_NO = :EMP_NO',3);
218 <  Statement.GetSQLParams.ByName('EMP_NO').AsInteger := 8;
218 >  Statement.GetSQLParams.ByName('emp_no').AsInteger := 8;
219    ReportResults(Statement);
220  
221   end;
# Line 230 | Line 236 | begin
236    DPB.Add(isc_dpb_password).setAsString(Owner.GetPassword);
237    DPB.Add(isc_dpb_lc_ctype).setAsString(CharSet);
238    DPB.Add(isc_dpb_set_db_SQL_dialect).setAsByte(SQLDialect);
239 < //  DPB.Add(isc_dpb_config).SetAsString('WireCompression=true');
239 >  DPB.Add(isc_dpb_config).SetAsString('WireCompression=true');
240  
241    writeln(OutFile,'Opening ',Owner.GetEmployeeDatabaseName);
242    Attachment := FirebirdAPI.OpenDatabase(Owner.GetEmployeeDatabaseName,DPB);

Diff Legend

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