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 143 by tony, Fri Feb 23 12:11:21 2018 UTC vs.
Revision 287 by tony, Thu Apr 11 08:51:23 2019 UTC

# Line 51 | Line 51 | var Transaction: ITransaction;
51      ResultSet: IResultSet;
52   begin
53      Transaction := Attachment.StartTransaction([isc_tpb_read,isc_tpb_nowait,isc_tpb_concurrency],taCommit);
54 <    Statement := Attachment.Prepare(Transaction,'Select First 3 * from EMPLOYEE',3);
54 >    Statement := Attachment.Prepare(Transaction,
55 >    '-- SQL style inline comment' + LineEnding +
56 >    '/* this is a comment */ '+
57 >    'Select First 3 * from EMPLOYEE'
58 >    ,3);
59      PrintMetaData(Statement.GetMetaData);
60      writeln(OutFile,'Plan = ' ,Statement.GetPlan);
61      writeln(OutFile,Statement.GetSQLText);
# Line 63 | Line 67 | begin
67      Statement.GetSQLParams[0].AsInteger := 8;
68      ReportResults(Statement);
69      writeln(OutFile,'With param names');
70 <    Statement := Attachment.PrepareWithNamedParameters(Transaction,'Select * from EMPLOYEE Where EMP_NO = :EMP_NO',3);
70 >    Statement := Attachment.PrepareWithNamedParameters(Transaction,
71 >    'Select * from EMPLOYEE Where EMP_NO = :EMP_NO',3);
72      Statement.SetRetainInterfaces(true);
73      try
74        writeln(OutFile,Statement.GetSQLText);

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines