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

Comparing ibx/trunk/fbintf/testsuite/Test3.pas (file contents):
Revision 56 by tony, Mon Mar 6 10:20:02 2017 UTC vs.
Revision 70 by tony, Thu Oct 26 12:59:51 2017 UTC

# Line 53 | Line 53 | var Transaction: ITransaction;
53      ResultSet: IResultSet;
54      Statement: IStatement;
55      TPB: ITPB;
56 +    us: UnicodeString;
57   begin
58    writeln(OutFile,'Employee Count = ',Attachment.OpenCursorAtStart('Select count(*) from EMPLOYEE')[0].AsInteger);
59  
# Line 101 | Line 102 | begin
102           Attachment.StartTransaction([isc_tpb_read,isc_tpb_nowait,isc_tpb_concurrency],taCommit),
103           'Select count(*) As Counter from EMPLOYEE Where EMP_NO < ?',3,[8])[0].AsInteger);
104  
105 +  writeln(OutFile,'"Johnson" Employee Count = ',Attachment.OpenCursorAtStart(
106 +         Attachment.StartTransaction([isc_tpb_read,isc_tpb_nowait,isc_tpb_concurrency],taCommit),
107 +         'Select count(*) As Counter from EMPLOYEE Where LAST_NAME = ?',3,['Johnson'])[0].AsInteger);
108 +
109 +  us := UTF8Decode('Yanowski');   {Test a UnicodeString as a parameter}
110 +
111 +  writeln(OutFile,'"Yanowski" Employee Count = ',Attachment.OpenCursorAtStart(
112 +         Attachment.StartTransaction([isc_tpb_read,isc_tpb_nowait,isc_tpb_concurrency],taCommit),
113 +         'Select count(*) As Counter from EMPLOYEE Where LAST_NAME = ?',3,[us])[0].AsInteger);
114 +
115   end;
116  
117   function TTest3.TestTitle: AnsiString;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines