ViewVC Help

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

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

Comparing ibx/trunk/fbintf/testsuite/Test6.pas (file contents):
Revision 110 by tony, Thu Jan 18 14:37:51 2018 UTC vs.
Revision 111 by tony, Thu Jan 18 14:37:53 2018 UTC

#	Line 32 | Line 32 | unit Test6;
32
33		10. Select all from new table.
34
35	<	11. Drop Database and repeat above but with no default connection character set.
35	>	11. Execute Stored proc and display results
36	>
37	>	12. Drop Database and repeat above but with WIN1252 and  no default connection character set.
38		}
39
40		interface
#	Line 91 | Line 93 | var Transaction: ITransaction;
93		Statement,
94		Statement2: IStatement;
95		ResultSet: IResultSet;
94	–	i: integer;
96		begin
97		Transaction := Attachment.StartTransaction([isc_tpb_write,isc_tpb_nowait,isc_tpb_concurrency],taCommit);
98
#	Line 151 | Line 152 | var Transaction: ITransaction;
152		Statement: IStatement;
153		Results: IResults;
154		begin
155	<	writeln('Testing Blob as stored proc parameter');
155	>	writeln(OutFile,'Testing Blob as stored proc parameter');
156		Transaction := Attachment.StartTransaction([isc_tpb_write,isc_tpb_nowait,isc_tpb_concurrency],taCommit);
157
158		Statement := Attachment.Prepare(Transaction,sqlExecProc);

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines