PHP调用Oracle存储过程

if (oci_execute($stmt)) {
    exit("Procedure Failed.");
}

所以,您的逻辑是:如果执行成功,那么过程失败了?

if (!oci_execute($stmt)) {
   exit("Procedure Failed.");
}

神奇的是,它在我调试时工作,使用一些echo打印一些变量的内容。

我肯定这几天我得杀了一个系统管理员。

这个例子对我很有用:

要求: 支持oracle的Pear MDB2

此示例演示如何使用MDB2框架从php运行oracle包,使用带有参数IN、OUT、IN OUT的存储过程,并通过php变量返回结果。

• MDB2
• MDB2 TUTORIAL

$in = "IN";
$out = "OUT";
$io = "INOUT";
// to show vars after
var_dump("{$in}::{$out}::{$io}");
//
$sql = "BEGIN PKG_TEST.MyProcedure(:iparm, :oparm, :ioparm); END;";
$sth = $mdb2->prepare($sql);
//
$sth->bindParam('iparm', $in, 'text', 20);
$sth->bindParam('oparm', $out, 'text', 20 );
$sth->bindParam('ioparm', $io, 'text', 20);
//
$res = $sth->execute();
//
if (PEAR::isError($res)) {
    var_dump($res->userinfo);
}else{
    $sth->free();
}
// to show vars before
var_dump("{$in}::{$out}::{$io}");

Oracle包定义

CREATE OR REPLACE PACKAGE PKG_TEST AS

  PROCEDURE MyProcedure(P1 IN VARCHAR2, P2 OUT VARCHAR2,  P3 IN OUT VARCHAR2);

END PKG_TEST;

CREATE OR REPLACE PACKAGE BODY PKG_TEST IS

  PROCEDURE MyProcedure(P1 IN VARCHAR2, P2 OUT VARCHAR2, P3 IN OUT VARCHAR2)
  IS
  BEGIN
    P2 := P1 || '---- OUT ----';
    P3 := P1 || '---- IN OUT ----';
  END MyProcedure;

END PKG_TEST;

屏幕截图返回:

string(14) "IN::OUT::INOUT"
string(39) "IN::IN---- OUT ----::IN---- IN OUT ----"

测试时间:

• Oracle 10g、11g
• php 5.3.x版