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

存储过程：

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"))