ex9_8c-example.html
来自「一个很好用的Linux/Unix下Oracle OCI开发接口封装库」· HTML 代码 · 共 95 行
HTML
95 行
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html><head><meta http-equiv="Content-Type" content="text/html;charset=iso-8859-1">
<title>Example Documentation</title>
<link href="doxygen.css" rel="stylesheet" type="text/css">
</head><body>
<!-- Generated by Doxygen 1.2.18 -->
<center>
<a class="qindex" href="index.html">Main Page</a> <a class="qindex" href="modules.html">Modules</a> <a class="qindex" href="files.html">File List</a> <a class="qindex" href="globals.html">Globals</a> <a class="qindex" href="pages.html">Related Pages</a> <a class="qindex" href="examples.html">Examples</a> </center>
<hr><h1>ex9.c</h1> Example for calling PL/SQL blocks.
<p>
<div class="fragment"><pre><span class="comment">/* $Id: ex9_8c-example.html,v 1.1 2005/01/13 02:56:43 cvsroot Exp $ */</span>
<span class="preprocessor">#include <stdio.h></span>
<span class="preprocessor">#include <stdlib.h></span>
<span class="preprocessor">#include "examples.h"</span>
<span class="keyword">static</span> <span class="keywordtype">void</span> create_sp __P((<a class="code" href="group__typedefs.html#a0">sqlo_db_handle_t</a> dbh));
<span class="keywordtype">int</span> call_plsql(<a class="code" href="group__typedefs.html#a0">sqlo_db_handle_t</a> dbh)
{
<span class="keywordtype">double</span> ip1;
<span class="keywordtype">int</span> ip2;
<span class="keywordtype">char</span> op[80];
<a class="code" href="group__typedefs.html#a1">sqlo_stmt_handle_t</a> sth = <a class="code" href="group__constants.html#a5a49">SQLO_STH_INIT</a>;
<span class="comment">/* the stored procecdure call */</span>
<span class="keywordtype">char</span> * stmt =
<span class="stringliteral">"BEGIN\n"</span>
<span class="stringliteral">" EX9(:ip1, :ip2, :op);\n"</span>
<span class="stringliteral">"END;\n"</span>;
create_sp(dbh); <span class="comment">/* create the test stored procedure */</span>
ip1 = 1.5;
ip2 = 20;
<span class="comment">/* parse the statement */</span>
<span class="keywordflow">if</span> ( 0 <= (sth = <a name="a0"></a><a class="code" href="group__complex.html#a0">sqlo_prepare</a>(dbh, stmt))) {
<span class="comment">/* bind all variables */</span>
<span class="keywordflow">if</span> (<a class="code" href="group__constants.html#a3a25">SQLO_SUCCESS</a> !=
(<a name="a1"></a><a class="code" href="group__complex.html#a1">sqlo_bind_by_name</a>(sth, <span class="stringliteral">":ip1"</span>, <a class="code" href="group__constants.html#a6a57">SQLOT_FLT</a>, &ip1, <span class="keyword">sizeof</span>(ip1), 0, 0) ||
<a class="code" href="group__complex.html#a1">sqlo_bind_by_name</a>(sth, <span class="stringliteral">":ip2"</span>, <a class="code" href="group__constants.html#a6a56">SQLOT_INT</a>, &ip2, <span class="keyword">sizeof</span>(ip2), 0, 0) ||
<a class="code" href="group__complex.html#a1">sqlo_bind_by_name</a>(sth, <span class="stringliteral">":op"</span>, <a class="code" href="group__constants.html#a6a58">SQLOT_STR</a>, &op, <span class="keyword">sizeof</span>(op), 0, 0)
)) {
error_exit(dbh, <span class="stringliteral">"sqlo_bind_by_name"</span>);
} <span class="keywordflow">else</span> {
<span class="comment">/* execute the call */</span>
<span class="keywordflow">if</span> (<a class="code" href="group__constants.html#a3a25">SQLO_SUCCESS</a> != <a name="a2"></a><a class="code" href="group__complex.html#a8">sqlo_execute</a>(sth, 1))
error_exit(dbh, <span class="stringliteral">"sqlo_execute"</span>);
}
<span class="comment">/* print the result */</span>
<span class="keywordflow">if</span> (atof(op) != (ip1 + ip2))
printf(<span class="stringliteral">"Stored procudure returned wrong result %s, expected %6.2f\n"</span>,
op, (ip1 + ip2));
<span class="keywordflow">if</span> (<a class="code" href="group__constants.html#a3a25">SQLO_SUCCESS</a> != <a name="a3"></a><a class="code" href="group__easy.html#a13">sqlo_close</a>(sth))
error_exit(dbh, <span class="stringliteral">"sqlo_execute"</span>);
} <span class="keywordflow">else</span> {
error_exit(dbh, <span class="stringliteral">"sqlo_prepare"</span>);
}
<span class="keywordflow">if</span> ( 0 > <a name="a4"></a><a class="code" href="group__easy.html#a14">sqlo_exec</a>(dbh, <span class="stringliteral">"DROP PROCEDURE EX9"</span>))
error_exit(dbh, <span class="stringliteral">"sqlo_exec"</span>);
<span class="keywordflow">return</span> 1;
}
<span class="comment">/* creates the stored procedure used above */</span>
<span class="keyword">static</span> <span class="keywordtype">void</span>
create_sp(<a class="code" href="group__typedefs.html#a0">sqlo_db_handle_t</a> dbh)
{
<span class="keywordtype">char</span> * stmt =
<span class="stringliteral">"CREATE OR REPLACE PROCEDURE EX9(ipNum1 IN NUMBER, ipNum2 IN NUMBER, opStr OUT VARCHAR)\n"</span>
<span class="stringliteral">"IS\n"</span>
<span class="stringliteral">"BEGIN\n"</span>
<span class="stringliteral">" opStr := TO_CHAR(ipNum1 + ipNum2);\n"</span>
<span class="stringliteral">"END;\n"</span>;
<span class="keywordflow">if</span> (<a class="code" href="group__constants.html#a3a25">SQLO_SUCCESS</a> != <a class="code" href="group__easy.html#a14">sqlo_exec</a>(dbh, stmt))
error_exit(dbh, stmt);
}
<span class="comment">/* $Id: ex9_8c-example.html,v 1.1 2005/01/13 02:56:43 cvsroot Exp $ */</span>
</pre></div><hr><address style="align: right;"><small>Generated on Thu Aug 14 18:02:53 2003 for libsqlora8 by
<a href="http://www.doxygen.org/index.html">
<img src="doxygen.png" alt="doxygen" align="middle" border=0
width=110 height=53></a>1.2.18 </small></address>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?