ADO und QSYS.QCMDEXC --> Syntaxfehler [Archiv]

padawan

27-07-10, 11:14

Hallo,
V5R4, WINXP SP3

Irgendwo ist beim Befehl QCMDEXC ein Syntaxfehler und den finde ich nicht?

CallCmd = "STRQMQRY QMQRY(TRUMPFH/TTRWLSVST1) OUTPUT(*OUTFILE) OUTFILE(TRUMPFH/TTRWLSVST1) ALWQRYDFN(*YES) SETVAR((VAR1 " & VAR1 & "))"

CallCmd = Replace(CallCmd, "'", "''")

cnn.Execute("CALL QSYS.QCMDEXC ('" & CallCmd & "', " & Format(Len(CallCmd), "0000000000.00000") & ")")

Fehlermeldung von VBA:
[IBM][iSeries Access ODBC-Treiber][DB2 UDB]CPF0006 - Im Befehl ist ein Fehler aufgetreten.

Ich finde den Fehler nicht, trotz der Recherche in diesem Forum.

Vielen Dank
Gruss
Tobias

andreaspr@aon.at

27-07-10, 11:51

Genau dieses Problem hattest du ja schon einmal.
Hast du denn schon versucht den kompletten Befehl auf der AS/400 abzusetzen? Dann solltest du eine genauere Fehlermeldung erhalten.

Fuerchau

27-07-10, 12:13

Schau dir das Ergebnis von CallCmd mal an und führe ihn auf einer Kommandozeile der AS/400 aus.
Ggf. mit F4 mal prompten.

padawan

27-07-10, 12:51

Hallo,

der Befehl auf der AS400 funktioniert:

Befehl eingeben und Eingabetaste drücken
===> STRQMQRY QMQRY(TRUMPFH/TTRWLSVST1) OUTPUT(*OUTFILE) OUTFILE(TRUMPFH/TTRWLSVST1) ALWQRYDFN(*YES) SETVAR((VAR1 100717))

Ich übergebe den Wert 100717 als Variable VAR1 (VAR1 ist im Format string):
SETVAR((VAR1 " & VAR1 & "))".

CallCmd beinhaltet dann den obigen String (STRQMQRY...)

Fehler hier:
cnn.Execute("CALL QSYS.QCMDEXC('" & CallCmd & "', " & Format(Len(CallCmd), "0000000000.00000") & ")")

[IBM][iSeries Access ODBC-Treiber][DB2 UDB]CPF0006 - Im Befehl ist ein Fehler aufgetreten.

Die zweite Variable VAR1 scheint der ODBC-Treiber nicht übersetzen zu können. Wie ist denn da falsch?

Danke.
Gruss
Tobias

padawan

27-07-10, 13:13

Hallo,

der Befehl auf der AS400 funktioniert:

Befehl eingeben und Eingabetaste drücken
===> STRQMQRY QMQRY(TRUMPFH/TTRWLSVST1) OUTPUT(*OUTFILE) OUTFILE(TRUMPFH/TTRWLSVST1) ALWQRYDFN(*YES) SETVAR((VAR1 100717))

Ich übergebe den Wert 100717 als Variable VAR1 (VAR1 ist im Format string):
SETVAR((VAR1 " & VAR1 & "))".

CallCmd beinhaltet dann den obigen String (STRQMQRY...)

Fehler hier:
cnn.Execute("CALL QSYS.QCMDEXC('" & CallCmd & "', " & Format(Len(CallCmd), "0000000000.00000") & ")")

[IBM][iSeries Access ODBC-Treiber][DB2 UDB]CPF0006 - Im Befehl ist ein Fehler aufgetreten.

Die zweite Variable VAR1 scheint der ODBC-Treiber nicht übersetzen zu können. Wie ist denn da falsch?

Danke.
Gruss
Tobias

B.Hauser

27-07-10, 13:49

Setz' mal Deinen Variablen-Wert in Hochkommata!

Auch wenn Dir das nicht logisch scheint, da der Variablen-Wert numerisch ist.

Aber beim Aufruf von QM-Queries müssen numerische Werte mit Hochkommata über geben werden und bei alphanumerischen Werten muss das ganze in weitere Hochkommata eingebettet werden.

Birgitta

padawan

27-07-10, 14:19

Hallo,

bringt bei einfachen und doppelten Hochkomma immer noch den selben Fehler CPF0006 (s.o.):

CallCmd = "STRQMQRY QMQRY(TRUMPFH/TTRWLSVST1) OUTPUT(*OUTFILE) OUTFILE(TRUMPFH/TTRWLSVST1) ALWQRYDFN(*YES) SETVAR((VAR1 ''" & VAR1 & "''" & "))"

cnn.Execute("CALL QSYS.QCMDEXC('" & CallCmd & "', " & Format(Len(CallCmd), "0000000000.00000") & ")")

Gruss
Tobias

Fuerchau

27-07-10, 14:28

Und nochmal:
Schau die den Inhalt deiner Variablen CallCmd mal an bevor du den Execute ausführst.
Irgendwas machst du halt noch falsch.

padawan

27-07-10, 15:15

Hallo,

die Variable CallCmd hat genau den String, den ich auf der AS400 ausführen möchte. Ich weiß bald nicht mehr, welche Variation ich noch probieren soll.

Die Variable VAR1 übergibt einen Wert für ein Datumsfeld auf der AS400, welches das Format Decimal(6,0) fordert.

Gruss
Tobias

Fuerchau

27-07-10, 16:29

CPF0006 bedeutet, dass es wohl noch einen Syntaxfehler gibt.

Beachte ggf. Klein/Großschreibung.