[VBA] SQL Statement von Access auf Oracle ändern

[DJTank]

Hallo Leute, schon wieder eine banale Frage, aber ich probiere schon seit heute morgen und bekomm es nicht geregelt.

Hier der Code:

Public Function ProjektNrVergabe(ByVal strUser As String, ByVal intProjektArt As Long) As String

Dim rs As Recordset, rs1 As Recordset

Dim strTemp As String

Dim strProjektArt As String

Dim strDmax As Long, strDmaxArchiv As Long


On Error GoTo Fehler

strDmax = 0

strDmaxArchiv = 0

strProjektArt = CStr(intProjektArt)

'

'überprüfung in t_pronr und festlegen der projektnummer nach der logtabelle

If strODBC = "nein" Then

    Set rs = CurrDataBase.OpenRecordset("SELECT TOP 1 user,protype,Nummer,datum FROM t_pronr WHERE user = '" + strUser + "' AND protype = " + CStr(intProjektArt) + "")

ElseIf strODBC = "ja" Then

    Set rs = CurrDataBase.OpenRecordset("SELECT user,protype,Nummer,datum FROM t_pronr") ' WHERE user = '" + strUser + "' AND protype = " + CStr(intProjektArt) + " AND rownum = 1")

End If

Ich probiere genau das selbe einmal gegen eine Access-DB und beim zweiten "If" gegen eine Oracle-DB.

Mit Access funktioniert alles einwandfrei (if strODBC = "nein").

Mit Oracle bekomme ich aber folgende Fehlermeldung (if strODBC = "ja"):

"1 Parameter wurden erwartet, aber es wurden zu wenig Parameter übergeben."

Wäre super, wenn mir jmd helfen kann.

Danke schonmal

lg

Stefan

[robotto7831a]

Was macht denn ") ' zwischen dem TAbellennamen und dem where?

Frank

[Amstelchen]

*deleted*

s'Amstel

[DJTank]

Was macht denn ") ' zwischen dem TAbellennamen und dem where?

Frank

Hoppla, das kam noch von einem Versuch, ich habe die Kommentierung natürlich wieder entfernt.

[DJTank]

Aja und das Ding erwartet 2 Argumente, nicht eines.

Die Abfrage läuft über eine in Access verlinkte Tabelle welche via ODBC nach Oracle zeigt.

Bin immer noch ratlos, was das sein kann.

[robotto7831a]

Welche Access Version ist es eigentlich?

Frank

[DJTank]

Oh sorry, 2000er Version...

[DJTank]

So, wohl vom Freitag motiviert hab ich am frühen morgen die Fehler gefunden und die funktionierende Lösung herbeigeführt:

1) Da ich die Tabellen über Access verknüpft habe, funktioniert der "rownum=x"-Befehl nicht, habe statt dessen SELECT TOP 1 genommen.

2) Jetzt kommt der Teufel, eines der selektierten Felder trug den schönen namen "user", irgendwo im hintersten Eck erinnerte sich mein Hirn daran, dass "user" ein von Oracle reserviertes Wort ist -> umbenannt -> läuft.

Vielen Dank an die Helfer und schönen Arbeitstag

Stefan