Oracle VBA脚本连接Oracle时遇ORA-00933错误求助

我在用VBA脚本连接Oracle数据库并执行查询时，触发了ORA-00933错误，提示“SQL命令未正确结束”。下面是相关的代码、错误信息和查询语句，麻烦帮忙看看问题出在哪，怎么解决？

VBA代码 #

Dim strDBDesc As String
strDBDesc = "(DESCRIPTION =(ADDRESS = (PROTOCOL = TCP)(HOST = ##)(PORT = 1521))(CONNECT_DATA =(SERVER = DEDICATED)(SERVICE_NAME = ##)))"
cn.Open "Provider=OraOLEDB.Oracle;Data Source=" & strDBDesc & ";User ID=##;Password=##;"
query1 = ""
query1 = ERM.Sheets("query").Range("A10")
query1 = Replace(query1, "v_job_name", v_field1)
'Set OraDynaSet = objdatabase.DBCreateDynaset(query1, 0&)
Dim OraDynaSet As ADODB.Recordset
Set OraDynaSet = CreateObject("ADODB.Recordset")
OraDynaSet.ActiveConnection = cn
OraDynaSet.Open query1, cn, adOpenStatic

错误信息 #

执行时弹出错误提示：ORA-00933: SQL command not properly ended

待执行的SQL查询语句 #

select job_name,Status from (
select Distinct a.job_name, a.description description,Decode (job_type,98,'Box',99,'Command Job',102,'File watcher job',job_type) job_type,
substr(decode(d.status,1,'Running', 3,'Starting', 4,'Success', 5,'Failed', 6,'Terminated', 7,'On Ice', 8,'Inactive', 9,'Activated', 11,'On Hold', 12,'Que Wait', d.status),1,9) status,
a.mach_name,a.owner,g.command,g.std_err_file,g.std_out_file,f.days_of_week,f.start_times,f.start_mins,f.run_calendar,f.max_run_alarm,profile
from AEDBADMIN.ujo_job a, AEDBADMIN.ujo_job_runs c, AEDBADMIN.ujo_job_status d,
(select joid,max(STARTIME) startime, max(endtime) endtime from AEDBADMIN.ujo_job_runs group by joid) e,
AEDBADMIN.ujo_command_job g, AEDBADMIN.ujo_sched_info f
where a.joid = c.joid(+) and a.joid = d.joid(+) and a.joid = e.joid(+) and a.joid = f.joid(+) and a.joid = g.joid(+)
and (c.startime = e.startime or c.startime is null)
and job_name ='v_job_name'// job name replaces
and a.is_active =1
);

问题排查与解决方法 #

我帮你梳理了几个核心问题点，对应解决办法如下：

1. 注释符号不兼容Oracle语法
   Oracle数据库不支持//作为单行注释符号，它的标准单行注释是--。你SQL里的// job name replaces会被Oracle当成SQL语句的一部分，直接触发语法错误。
   解决：把// job name replaces改成-- job name replaces。

2. 子查询末尾多余的分号
   你的外层查询是select ... from (...)结构，而子查询的括号内部最后多了一个分号（原SQL最后一行是);），这个分号会让Oracle误以为子查询已经结束，导致外层查询的语法不完整。
   解决：移除子查询内部的分号，把最后一行改成and a.is_active =1 )。

3. 验证变量替换后的SQL完整性
   建议在VBA里添加一行代码，把替换后的query1输出到即时窗口或单元格，方便检查最终执行的SQL是否有语法问题。比如：

' 添加在Replace语句之后
Debug.Print query1 ' 输出到VBA编辑器的即时窗口
ERM.Sheets("query").Range("A11") = query1 ' 输出到单元格直观查看

这样能确认v_job_name被替换后的实际SQL是否存在遗漏单引号、语法断裂等问题。

4. 优化表连接语法（可选）
   虽然当前错误大概率是前两个问题导致的，但你的SQL用了老式的逗号连接表+(+)外连接语法，可读性较差且容易出错。建议改成ANSI标准的LEFT JOIN语法：

from AEDBADMIN.ujo_job a
left join AEDBADMIN.ujo_job_runs c on a.joid = c.joid
left join AEDBADMIN.ujo_job_status d on a.joid = d.joid
left join (select joid,max(STARTIME) startime, max(endtime) endtime from AEDBADMIN.ujo_job_runs group by joid) e on a.joid = e.joid
left join AEDBADMIN.ujo_command_job g on a.joid = g.joid
left join AEDBADMIN.ujo_sched_info f on a.joid = f.joid

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