-1

基本的にプロシージャを呼び出し、2 つのテーブルで DELETE を実行するこの perl スクリプトをテストしています。

質問:

  1. perl のプロシージャまたは呼び出しプロシージャに問題はありますか?
  2. 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"] 
4

1 に答える 1