SQL on VBA: Kompilierungsfehler, eine Funktion oder Variable wurde erwartet

Question

Ich habe den Code unten, aber es funktioniert nicht. Es gibt mir den Fehler: Kompilierungsfehler, eine Funktion oder eine Variable wurde erwartet.

Ich denke, der Fehler auf der Database.Execute Methode ist, aber ich habe nicht mit einer Lösung noch kommen.

Sub ChavesMontante() 

Dim dbschaves As Database 

Dim rschaves As DAO.Recordset 

Dim tipodechave As String 

Dim SQLCMD As String 

Dim chave As String 

Set dbschaves = CurrentDb 

chave = "BED20777" 

SQLCMD = 

"(SELECT us.instalacao, ch.bloco, us.tipounidade " & _ 
"FROM (SELECT useccionadora, bloco " & _ 
"FROM sgdprd.redeprimaria rp " & _ 
"WHERE rp.useccionadora IS NOT NULL " & _ 
"CONNECT BY rp.nox = PRIOR rp.fontex AND rp.noy = PRIOR rp.fontey " & _ 
"START WITH rp.useccionadora = '" & chave & "') ch " & _ 
"INNER JOIN sgdprd.useccionadora us ON ch.useccionadora= us.instalacao) " 

Debug.Print SQLCMD 

Set rschaves = dbschaves.Execute(SQLCMD) 


End Sub 

Answer 1

wird Handlungs SQL-Anweisungen (UPDATE, DELETE, INSERT), nicht gesetzt Cord-Objekt ausführen verwendet.

Versuchen Sie, die folgenden Änderungen:

Dim dbschaves As DAO.Database 
... 
Set rschaves = dbschaves.OpenRecordset(SQLCMD) 

Entfernen Sie auch die äußeren Pars die gesamte SQL-Anweisung umschließt. Ich habe CONNECT BY PRIOR START WITH nie gesehen. Wird die Abfrage in Access geöffnet?