基本的にプロシージャを呼び出し、2 つのテーブルで DELETE を実行するこの perl スクリプトをテストしています。
質問:
- perl のプロシージャまたは呼び出しプロシージャに問題はありますか?
1 回の手順で 2 つの削除を使用できますか?
Procedure delete (v_db_id in number) IS BEGIN DELETE from TAB1 where db_id = v_db_id; DELETE from TAB2 where db_id = v_db_id; END delete;
Perl スクリプト:
sub getdelete {
my $dbID = shift
my $rs;
my $SQL;
$SQL = q{delete (?)};
$rs = executeQuery($SQL,$dbID);
$rs -> fetchrow();
$rs -> finish();
}
以下のように、サブルーチン getdelete を呼び出す PERL スクリプト:
&getdelete ($dbID);
エラー:
DBD::Oracle::st execute failed: ORA-00900: invalid SQL statement (DBD Error: OCIStmtExecute)[for statement "delete"]