Call-Befehl über VBA an AS400 funktioniert nicht

[padawan]

...verstehe ich das richtig, das heißt bspw.:

die bestehende query (definiert als *QRYDFN -->
TTRAJJLIP9 *QRYDFN QRY Verkaufte Tore (Nach Land)

kann ich mit einem geändertem select-Befehl überschreiben?
Können Sie mir bitte einen Tipp geben, wie der Befehl RTVQMQRY aussehen muss?
Was müsste dann in der Klammer beim Befehl cnn.execute() übergeben werden?
...
cmd = select idr, kdnr from tabelle1 where kdnr = ?
cnn.execute(cmd)

Hätten Sie evt einen kurzen Codeausschnitt an dem ich mich orientieren könnte?

Tausend Dank für Ihre Hilfe.

[Fuerchau]

Deine Fragen verstehe ich jetzt überhaupt nicht mehr.
Benötigst du eine Einweisung, wie man per ODBC Daten von der AS/400 per Select abruft ?

Schau dir doch bitte einfach die ODBC-Beispiele in der MSDN oder der ADO-Dokumentation an.
Diese findist du in deinem Windows-Verzeichnis in Help, ADO-Hilfe.

[padawan]

Oh nein, nein - Selects und ODBC sind nicht das Problem. Es geht mir um die Umsetzung des Befehls RTVQMQRY im Zusammenspiel mit VBA. Ich habe ja diese zwei funktionierende Befehlszeilen:

CallCmd = "STRQMQRY QMQRY(TRUMPFH/TTRAJJLIP9) OUTPUT(*OUTFILE) OUTFILE(TRUMPFH/TTRAJJLIB9) ALWQRYDFN(*YES) SETVAR((VAR1 0519617))"
cnn.Execute("CALL QSYS.QCMDEXC ('" & CallCmd & "', " & Format(Len(CallCmd), "0000000000.00000") & ")")

Ich habe nicht ganz die Umsetzung mit RTVQMQRY verstanden. Wie kann das denn jetzt aussehen?

[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.