ex17_8c-example.html

来自「一个很好用的Linux/Unix下Oracle OCI开发接口封装库」· HTML 代码 · 共 77 行

HTML
77 行
字号 
<!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> &nbsp; <a class="qindex" href="modules.html">Modules</a> &nbsp; <a class="qindex" href="files.html">File List</a> &nbsp; <a class="qindex" href="globals.html">Globals</a> &nbsp; <a class="qindex" href="pages.html">Related Pages</a> &nbsp; <a class="qindex" href="examples.html">Examples</a> &nbsp; </center>
<hr><h1>ex17.c</h1> Example for selecting from a refcursor.
<p>
<div class="fragment"><pre><span class="comment">/* $Id: ex17_8c-example.html,v 1.1 2005/01/13 02:56:43 cvsroot Exp $ */</span>
<span class="preprocessor">#include &lt;stdio.h&gt;</span>
<span class="preprocessor">#include &lt;stdlib.h&gt;</span>
<span class="preprocessor">#include "examples.h"</span>

<span class="keywordtype">int</span> select_refcursor(<a class="code" href="group__typedefs.html#a0">sqlo_db_handle_t</a> dbh, <span class="keywordtype">double</span> min_salary)
{
  <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>;
  <a class="code" href="group__typedefs.html#a1">sqlo_stmt_handle_t</a> st2h;                     <span class="comment">/* handle of the ref cursor */</span>
  <span class="keywordtype">double</span> sal = min_salary;
  CONST <span class="keywordtype">char</span> **v;
  <span class="keywordtype">int</span> status;

  CONST <span class="keywordtype">char</span> * stmt = 
    <span class="stringliteral">"BEGIN\n"</span>
    <span class="stringliteral">"    OPEN :c1 FOR SELECT ENAME, SAL FROM EMP WHERE SAL &gt;= :min_sal ORDER BY 2,1;\n"</span>
    <span class="stringliteral">"END;\n"</span>;


  <span class="comment">/* parse the statement */</span>
  <span class="keywordflow">if</span> ( 0 &lt;= (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#a2">sqlo_bind_ref_cursor</a>(sth, <span class="stringliteral">":c1"</span>, &amp;st2h)) ||
        (<a name="a2"></a><a class="code" href="group__complex.html#a1">sqlo_bind_by_name</a>(sth, <span class="stringliteral">":min_sal"</span>, <a class="code" href="group__constants.html#a6a57">SQLOT_FLT</a>, &amp;sal, <span class="keyword">sizeof</span>(sal), 0, 0) ) ) {
      error_exit(dbh, <span class="stringliteral">"sqlo_bind_by_name"</span>);
    } <span class="keywordflow">else</span> {

      <span class="comment">/* execute the PL/SQL block */</span>
      <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__complex.html#a8">sqlo_execute</a>(sth, 1))
        error_exit(dbh, <span class="stringliteral">"sqlo_execute"</span>);
    }
    <span class="comment">/* execute the refcursor */</span>
    <span class="keywordflow">if</span> (<a class="code" href="group__constants.html#a3a25">SQLO_SUCCESS</a> != <a class="code" href="group__complex.html#a8">sqlo_execute</a>(st2h, 1)) {
      error_exit(dbh, <span class="stringliteral">"sqlo_execute(ref)"</span>);
    }

    <span class="keywordflow">while</span> (<a class="code" href="group__constants.html#a3a25">SQLO_SUCCESS</a> == (status = <a name="a4"></a><a class="code" href="group__easy.html#a6">sqlo_fetch</a>(st2h, 1))) {
      v = <a name="a5"></a><a class="code" href="group__easy.html#a7">sqlo_values</a>(st2h, NULL, 1);

      printf(<span class="stringliteral">"Name=%-8s Salary= %-6s\n"</span>, v[0], v[1]);
    }
    
    <span class="keywordflow">if</span> (status != <a class="code" href="group__constants.html#a3a32">SQLO_NO_DATA</a>)
      error_exit(dbh, <span class="stringliteral">"sqlo_fetch(st2)"</span>);

    <span class="keywordflow">if</span> (<a class="code" href="group__constants.html#a3a25">SQLO_SUCCESS</a> != <a name="a6"></a><a class="code" href="group__easy.html#a13">sqlo_close</a>(sth))
      error_exit(dbh, <span class="stringliteral">"sqlo_close(1)"</span>);

    <span class="keywordflow">if</span> (<a class="code" href="group__constants.html#a3a25">SQLO_SUCCESS</a> != <a class="code" href="group__easy.html#a13">sqlo_close</a>(st2h))
      error_exit(dbh, <span class="stringliteral">"sqlo_close(2)"</span>);

  } <span class="keywordflow">else</span> {
    error_exit(dbh, <span class="stringliteral">"sqlo_prepare"</span>);
  }

  <span class="keywordflow">return</span> 1;
}

<span class="comment">/* $Id: ex17_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>

ex17_8c-example.html - 源码说明

本页面展示了「一个很好用的Linux/Unix下Oracle OCI开发接口封装库」中的 ex17_8c-example.html 源码文件，采用 HTML 编程语言编写，共 77 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与Oracle相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?