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 267 by tony, Fri Dec 28 10:44:23 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;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines