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

Comparing ibx/trunk/fbintf/testsuite/Test16.pas (file contents):
Revision 56 by tony, Mon Mar 6 10:20:02 2017 UTC vs.
Revision 270 by tony, Fri Jan 18 11:10:37 2019 UTC

# Line 111 | Line 111 | begin
111    except on E: Exception do
112      writeln(OutFile,'Error Handled: ',E.Message);
113    end;
114 +  Transaction.Rollback;
115 +  Transaction.Start;
116 +  try
117 +    writeln(OutFile,'Case sensitive Param SQL  Test');
118 +    Statement := Attachment.PrepareWithNamedParameters(Transaction,'Update Employee Set Hire_Date = :Hire_Date Where emp_no = :emp_no',3,false,true);
119 +    Statement.SQLParams.ByName('Hire_Date').AsDate := EncodeDate(2016,11,5);
120 +    Statement.SQLParams.ByName('emp_no').AsInteger := 1;
121 +    Statement.SQLParams.ByName('EMP_NO').AsInteger := 1;
122 +  except on E: Exception do
123 +    writeln(OutFile,'Error Handled: ',E.Message);
124 +  end;
125   end;
126  
127   procedure TTest16.ServiceTests(CharSet: AnsiString; SQLDialect: integer);

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines