Call-Befehl über VBA an AS400 funktioniert nicht

[Fuerchau]

Nicht in VBA lösen, sondern manuell den Select auf der AS/400 ansehen und in dein VBA für ein Command-Objekt kopieren.

Hast du ein QRYDFN-Objekt kannst du per RTVQMQRY (Bedienung siehe F1-Hilfe) das QRYDFN in eine Quelle schreiben.
Ansonsten kannst du per STRQM->1 dir den SQL ja ansehen und ins VBA kopieren.

[padawan]

...ist das korrekt von der Syntax:

CallCmd = STRQMQRY QMQRY(SELECT DISTINCT A.LINDLL A.LIKNR A.LIRAL A.LIMENG A.LIBREI
A.LIHOCH A.LIHGRT FROM "TRUMPFH"/"TTRAJJLIP9" A WHERE (LIKNR = 0512079))

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

[Fuerchau]

Jetzt bin ich aber enttäuscht.
Wie kodierst du denn sonst einen Select ?

Ich mach das immer so:
dim Cmd as new ADODB.Command
dim Rcd as ADODB.Recordset
Cmd.Commandtext = "Select ..."
set xCmd.ActiveConnection = cnn
set Rcd = Cmd.Execute

[padawan]

ok, ein Mißverständnis von mir. Ich war immer noch in Gedanken bei der Übergabe von AS400 Befehlen mit VBA an die AS400. Danke, das hab ich jetzt verstanden.
Hintergrund ist, daß ich in dotnet mit Controls (GridViews etc.) arbeite und mit SQLDataSources und DataSets mir Verbindung und Daten von der AS400 hole. Verarbeitung und Zusammenstellung findet auf der A400 statt, ich ziehe mir nur die Daten von PF-Files. Auf dem Gebiet der AS400 muss ich noch viel lernen, aber der Nebel lichtet sich immer mehr...

Tausend Dank für Deine kompetenten Hilfen und den schnellen Antworten.

[Fuerchau]

Warum machst du dann mit VBA weiter, wenn du doch mit .NET viel besser umgehen kannst ?
Wenn es um Office geht, lade einfach die Office-Erweiterungen zum VisualStudio dazu und schon kannst du auf VBA verzichten.

[padawan]

Der Ausdruck "VBA" ist bei mir eigentlich nur historisch bedingt, wenn ich Visual Basic meine, aber das kann man ja nicht hellsehen. Ein großes Sorry von mir.