如何在R中通过Oracle直接调用sqlplus，替代命令行执行方案？

问题原因 #

你遇到的ORA-00900错误，本质是因为odbc包的dbSendStatement只接受Oracle标准SQL或PL/SQL语句，而EXEC是sqlplus专属的命令，不属于Oracle数据库能直接解析的SQL语法。sqlplus作为Oracle官方命令行客户端，支持自己的扩展命令集，所以直接用系统命令能正常执行，但ODBC连接走的是数据库原生接口，不认这些客户端专属命令。

可行解决方案 #

1. 替换EXEC为标准SQL的CALL语句 #

如果是执行存储过程，把EXEC换成Oracle标准的CALL语法即可：

# 原错误写法
# odbc::dbSendStatement(con, "EXEC my_stored_proc();")

# 正确写法
odbc::dbSendStatement(con, "CALL my_stored_proc();")

如果存储过程带参数，直接在括号里传入：

odbc::dbSendStatement(con, "CALL my_stored_proc('param1', 123);")

2. 执行本地SQL脚本文件（替代sqlplus的@脚本命令） #

如果要执行本地的script.sql，不要用sqlplus的@命令，而是把脚本内容读入R，再通过ODBC执行：

基本用法（脚本只有纯SQL）

# 读取脚本内容
sql_content <- readLines("script.sql")
# 合并为完整SQL语句
full_sql <- paste(sql_content, collapse = "\n")
# 执行语句（dbExecute比dbSendStatement更适合无返回结果的执行）
odbc::dbExecute(con, full_sql)

处理含sqlplus专属命令的脚本

如果脚本里有SET、SPOOL、EXIT这类sqlplus专属命令，需要先过滤掉这些行，只保留数据库能识别的SQL：

sql_content <- readLines("script.sql")
# 过滤掉以SET、SPOOL、EXIT开头的行（忽略大小写和前置空格）
pure_sql <- sql_content[!grepl("^\\s*(SET|SPOOL|EXIT|@)", sql_content, ignore.case = TRUE)]
full_sql <- paste(pure_sql, collapse = "\n")
odbc::dbExecute(con, full_sql)

3. 用PL/SQL匿名块执行复杂逻辑 #

如果是需要执行多步操作或更复杂的存储过程调用，用BEGIN...END;包裹成PL/SQL匿名块：

odbc::dbSendStatement(con, "
BEGIN
  my_stored_proc('param1');
  another_proc(456);
END;
")

验证示例 #

调整你的原代码，比如执行存储过程的正确写法：

con <- odbc::dbConnect(odbc::odbc(), 
                       Driver = "oracle",
                       Host = "HOST", 
                       Port = "PORT",
                       SVC = "SVC", 
                       UID = Sys.getenv("USRDWH"),
                       PWD = Sys.getenv("PWDDWH"),
                       ssl = "true",
                       timeout = 10)

# 用CALL替代EXEC，执行成功
odbc::dbExecute(con, "CALL your_procedure_name();")

odbc::dbDisconnect(con)

内容的提问来源于stack exchange，提问作者mnist