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 263 by tony, Thu Dec 6 15:55:01 2018 UTC vs.
Revision 265 by tony, Sat Dec 8 11:22:27 2018 UTC

# Line 73 | Line 73 | begin
73    Transaction.Rollback;
74    Transaction.Start(TARollback);
75  
76 <  Statement := Attachment.PrepareWithNamedParameters(Transaction,'Select * from EMPLOYEE Where EMP_NO = :EMP_NO',3);
76 >  Statement := Attachment.PrepareWithNamedParameters(Transaction,'Select * from EMPLOYEE Where EMP_NO = :F1',3);
77    Statement.EnableStatistics(true);
78 <  Statement.GetSQLParams.ByName('EMP_NO').AsInteger := 8;
78 >  Statement.GetSQLParams.ByName('F1').AsInteger := 8;
79    ReportResults(Statement);
80    if Statement.GetPerfStatistics(stats) then
81      WritePerfStats(stats);

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines