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 262 by tony, Mon Mar 13 09:51:56 2017 UTC vs.
Revision 263 by tony, Thu Dec 6 15:55:01 2018 UTC

# Line 194 | Line 194 | begin
194    writeln(OutFile,'Same Statement - updated params');
195    Statement.GetSQLParams.ByName('EMP_NO').AsInteger := 9;
196    ReportResults(Statement);
197 +
198 +  writeln(outfile,'Test using Execute Block');
199 +
200 +  Transaction := Attachment.StartTransaction([isc_tpb_write,isc_tpb_nowait,isc_tpb_concurrency],taRollback);
201 +  Statement := Attachment.PrepareWithNamedParameters(Transaction,
202 +    'Execute Block (Hired Timestamp = :Hire_Date, empno integer = :EMP_NO) '+
203 +    'As Begin ' +
204 +    '  Update Employee Set Hire_Date = :Hired Where EMP_NO = :empno; '+
205 +    'End'
206 +    ,3);
207 +  Statement.GetSQLParams.ByName('Hire_Date').AsDateTime := EncodeDate(2015,1,31);;
208 +  Statement.GetSQLParams.ByName('EMP_NO').AsInteger := 8;
209 +  Statement.Execute;
210 +  WriteAffectedRows(Statement);
211 +  Statement := Attachment.PrepareWithNamedParameters(Transaction,'Select * from EMPLOYEE Where EMP_NO = :EMP_NO',3);
212 +  Statement.GetSQLParams.ByName('EMP_NO').AsInteger := 8;
213 +  ReportResults(Statement);
214 +
215   end;
216  
217   function TTest4.TestTitle: AnsiString;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines