vba - 为什么我不能使用 ADODB 和 Oracle 执行 "with x as (...)"？

Question

我无法通过 ADODB 和 Oracle 执行带有with 子句的 SQL 查询。

也就是说，以下代码片段有效:

Dim cn As ADODB.connection
Set cn = ....

Dim rs As ADODB.recordSet
Set rs = New ADODB.Recordset

rs.Open "select 'foo' x from dual", cn


Do While Not rs.eof
   ...
   rs.MoveNext
Loop

但是，以下方法不起作用 - 它会生成运行时错误 3704:关闭对象时不允许操作。

Dim cn As ADODB.connection
Set cn = ....

Dim rs As ADODB.recordSet
Set rs = New ADODB.Recordset

rs.Open "with w as (select 'foo' x from dual) select x from w", cn

Do While Not rs.eof
   ...
   rs.MoveNext
Loop

显然，这是对实际问题的精简演示，其中包括更复杂的查询。

在我看来，ADODB 在将查询传递给 Oracle 实例之前会对其进行解析，并且不理解 with 子句。无论如何，对此的任何帮助都是高度的赞赏。

Answer 1

好吧，看起来 ADODB 确实希望查询语句实际上以 select 开头。因此，解决该问题的方法可能是将语句包含在 select * from ( .... ) 中，如下所示:

Dim sql As String
sql = "with w as (select 'foo' x from dual) select x from w"

' enclose the statement:
sql = "select * from (" & sql & ")"

rs.Open sql, cn