Warum kann ich mit ADODB und Oracle kein "mit x als (...)" machen?

Question

Ich kann eine SQL-Abfrage mit einer mit Klausel über ADODB und Oracle nicht ausführen.

Das heißt, die folgenden Schnipsel funktionieren:

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 

Allerdings sind die folgende nicht - es genererats einen Laufzeitfehler 3704: Operation ist nicht erlaubt, wenn das Objekt geschlossen ist.

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 

Offensichtlich ist dies eine abgespeckte Demonstration des realen Problems, das einer komplizierteren Abfrage besteht.

Es scheint mir, dass ADODB die Abfrage vor der Übergabe an die Oracle-Instanz analysiert und die mit der Klausel nicht versteht. Wie auch immer, jede Hilfe hier ist in hohem Grade geschätzt.

Answer 1

Ok, es scheint wirklich so, als ob ADODB erwartet, dass eine Abfrageanweisung tatsächlich mit select beginnt. Daher , eine Arbeit um für das Problem könnte sein, die Aussage zu umschließen in einem select * from (....) etwa so:

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 

Answer 2

Above Methode nicht für mich arbeiten.

Hinzufügen von ";" Vor dem WITH-Schlüsselwort wurde das Problem behoben.

Dim sql As String sql = "; mit w als (wählen Sie 'foo' x von dual) wählen x von w"

rs.Open sql, cn