这里是代码:
<?php
include_once 'config.php';
// Connect to database
$conn = oci_connect($dbuser, $dbpasswd, $dbhost."/".$dbname);
if (!$conn) {
exit ("Connection failed.");
}
$id = isset($_GET['id']) ? (int)$_GET['id'] : false;
$type = isset($_GET['type']) ? strtoupper($_GET['type']) : "BLOG";
$stmt = oci_parse($conn,
"begin
PKG_LIKE.get_LikeId(
:I_N_Id,
:I_S_Type,
:O_N_grade,
:O_N_exitFlag,
:O_S_exitMsg);
end;");
oci_bind_by_name($stmt, "I_N_Id", $id);
oci_bind_by_name($stmt, "I_S_Type", $type);
oci_bind_by_name($stmt, "O_N_grade", $total);
oci_bind_by_name($stmt, "O_N_exitFlag", $flag);
oci_bind_by_name($stmt, "O_S_exitMsg", $message);
if (!oci_execute($stmt)) {
exit("Procedure Failed.");
}
if ($message == 'OK') {
$response = array('likeit' => $total);
$toReturn = "var response=".json_encode($response)."; showTotalLikeit(response);";
} else {
$response = array('likeit' => 'NaN', 'exitFlag' => $flag, 'exitMsg' => $message);
$toReturn = "var response=".json_encode($response)."; showTotalLikeit(response);";
}
print $toReturn;
结果是“程序失败”。我哪里失败了? 我刚刚使用了存储过程调用(但是使用游标作为输出),直到现在一切都很好。
在Oracle上启动SP工作正常,因此这是一个php问题。
答案 0 :(得分:2)
if (oci_execute($stmt)) {
exit("Procedure Failed.");
}
所以,你的逻辑是:如果执行成功,那么程序失败了吗?
只需替换为:
if (!oci_execute($stmt)) {
exit("Procedure Failed.");
}
答案 1 :(得分:0)
在我调试时使用一些echo来打印某些变量的内容时,它很有用。
我确信我这几天都要杀死一个SysAdmin。
答案 2 :(得分:0)
这个例子对我有用:
Reqirements: 具有oracle支持的梨MDB2
此示例演示如何使用MDB2框架从php运行oracle包,使用带有参数IN,OUT,IN OUT的存储过程并将结果返回到php变量。
参考文献:
Php代码:
$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 ----"
经过测试: