2

我正在尝试使用REF CURSOR参数执行存储过程。

我的存储过程是这样的:

PROCEDURE procName(p_in_str IN VARCHAR2, p_out_result IN OUT SYS_REFCURSOR) ...

我根据这些帖子尝试从 R 中执行它:

在许多错误之后,我已经到了无法前进的地步。这些是我目前的方法

  1. 尝试 1

    # Not error but not return data
    temp_output1 <- data.frame(p_in_str = "My string", stringsAsFactors = FALSE)
    attr(temp_output1$p_in_str, "ora.parameter_name") <- "p_in_str";
    attr(temp_output1$p_in_str, "ora.parameter_mode") <- "IN";
    rs <- oracleProc(con, "DECLARE c SYS_REFCURSOR;
                     BEGIN 
                       procname(:p_in_str, c);
                     END;", data = temp_output1)
    
  2. 尝试 2

    # Wrong number or types of arguments 
    temp_output2 <-data.frame(p_in_str = "My string", 
                              p_out_ref = "p_out_ref", 
                              stringsAsFactors = FALSE)
    attr(temp_output2$p_in_str, "ora.parameter_name") <- "p_in_str";
    attr(temp_output2$p_in_str, "ora.parameter_mode") <- "IN";
    attr(temp_output2$p_out_ref, "ora.parameter_name") <- "p_out_ref";
    attr(temp_output2$p_out_ref, "ora.parameter_mode") <- "IN OUT";
    attr(temp_output2$p_out_ref, "ora.type") <- "SYS_REFCURSOR"
    rs <- oracleProc(con, "BEGIN 
                             procname(:p_in_str, :p_out_ref);
                           END;", data = temp_output2)
    

    .oci.oracleProc(conn, statement, data = data, prefetch = prefetch,
    : ORA-06550: 第 2 行第 18 列: PLS-00306: 调用“procname”时参数数量或类型错误 ORA-06550:第 2 行第 18 列:PL/SQL:语句被忽略

  3. 尝试 3

    # Bind data does not match bind specification
    temp_output3 <-data.frame(p_in_str = "My string", 
                              p_out_ref = as.character(NA), 
                              stringsAsFactors = FALSE)
    attr(temp_output3$p_in_str, "ora.parameter_name") <- "p_in_str";
    attr(temp_output3$p_in_str, "ora.parameter_mode") <- "IN";
    attr(temp_output3$p_out_ref, "ora.parameter_name") <- "p_out_ref";
    attr(temp_output3$p_out_ref, "ora.parameter_mode") <- "IN OUT";
    attr(temp_output3$p_out_ref, "ora.type") <- "m_ref_cursor"
    
    rs <- oracleProc(con, "DECLARE c SYS_REFCURSOR;
                     BEGIN 
                      procname(:p_in_str, c);
                     END;", data = temp_output3)
    

    .oci.oracleProc(conn, statement, data = data, prefetch = prefetch, 中的错误:绑定数据与绑定规范不匹配

4

0 回答 0