<?php
function fin_exit(){
print <<<FOOTER
<a href="input_form.html">入力フォームに戻る</a><br></body></html>
FOOTER;
exit;
}
if(($con = OCILogon("username", "password", "SID")) == 0){
?>
<h2>おおっと</h2>Oracleサーバに接続できません。<br>
<?php
fin_exit();
}
$s = <<<SQL
declare
begin
stored_proc($empno, '$kanji_name', '$mail_address',
:process_code, :ora);
end;
SQL;
$process_code = 0;
$ora = 0;
$stmt = OCIParse($con, $s);
OCIBindByName($stmt, ":process_code", &$process_code, -1);
OCIBindByName($stmt, ":ora", &$ora, -1);
$r = OCIExecute($stmt, OCI_DEFAULT);
if($ora != 0){
?>
<h1><font color="#600000">おおっと</font></h1>
プロシージャの実行エラーです:[<?= $ora ?>]<br>
<?php
OCIRollback($con);
}
else{
?>
<h1><font color="#600000">実行しました。</font></h1>
<?php
OCICommit($con);
}
OCIFreeStatement($stmt);
OCILogoff($con);
fin_exit();
?>
|