Oracle查询类存储过程调用示例

最新推荐文章于 2024-02-06 10:30:06 发布

转载最新推荐文章于 2024-02-06 10:30:06 发布 · 130 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/lauer0246/archive/2009/05/29/1491671.html

文章标签：

#数据库

本文介绍了一个存储过程SP_TEST的创建及调用方法，包括SQL*Plus、PL/SQL及VB的ADO方式。该过程用于从POLICE表中通过输入的证件号码获取对应的负责人和手机号。

存储过程：

CREATE OR REPLACE PROCEDURE SP_TEST
(
inDTHM in VARCHAR,
outFZR out VARCHAR,
outSJHM out VARCHAR
)
IS

BEGIN
/*返回结果取第一行记录*/
SELECT fzr,sjhm into outFZR,outSJHM FROM POLICE WHERE dthm = inDTHM and rownum=1;
end;

过程调用方法：

一、SQL*Plus方式：

SQL> var a varchar2(20);
SQL> var b varchar2(20);
SQL> exec sp_test('w2412001876',:a,:b);

PL/SQL procedure successfully completed
a
---------
张三
b
---------
013688888888

二、PL/SQL方式：

SQL窗口
declare fzr varchar2(20);
sjhm varchar2(20);
begin
      sp_test('w2412001876',fzr,sjhm );
      dbms_output.put_line(fzr);
      dbms_output.put_line(sjhm);
end;

命令窗口
SQL> var a varchar2(20);
SQL> var b varchar2(20);
SQL> exec sp_test('w2412001876',:a,:b);

PL/SQL procedure successfully completed
a
---------
张三
b
---------
013688888888

三、VB的ADO方式：

    gDBName = Trim(txtDBName.Text)
    gDBUser = Trim(txtUserID.Text)
    gDBPass = Trim(txtPassID.Text)
    Set adoConn = New ADODB.Connection
    adoConn.Open "Provider=OraOLEDB.Oracle;Password=" + gDBPass + ";User ID=" + gDBUser + ";Data Source=" + gDBName

    If adoConn.State <> adStateOpen Then
        MsgBox "数据库连接失败，请重新设置参数！", vbExclamation, "系统提示"
        Exit Sub
    End If

    Set adoCommand = New ADODB.Command
    Set adoCommand.ActiveConnection = adoConn
    adoCommand.CommandText = "SP_TEST"
    adoCommand.CommandType = adCmdStoredProc

    adoCommand.Parameters.Append adoCommand.CreateParameter("inDTHM", adVarChar, adParamInput, 20, Trim(txtDTHM.Text))
    adoCommand.Parameters.Append adoCommand.CreateParameter("outFZR", adVarChar, adParamOutput, 20)
    adoCommand.Parameters.Append adoCommand.CreateParameter("outSJHM", adVarChar, adParamOutput, 20)

    adoCommand.Execute
    txtFZR.Text = CStr(adoCommand("outFZR"))
    txtSJHM.Text = CStr(adoCommand("outSJHM"))

转载于:https://www.cnblogs.com/lauer0246/archive/2009/05/29/1491671.html