ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/fbintf/testsuite/Test16.pas

Comparing ibx/trunk/fbintf/testsuite/Test16.pas (file contents):
Revision 269 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