Ich habe heute nach meinem Urlaub diese Syntax übernommen
Sie ist so Ok und läuft unter VBA (PARM hat gefehlt).
Allerdings tritt immer noch der gleiche Fehler auf,
die Bibliotheken sind für den SQL Zugriff nicht vorhanden.

VBA-Code

Set cnn400 = New ADODB.Connection
cnn400.Open cnnstr400

strSQL2 = "ADDLIBLE LIB(LIB1)"
ExecCmd strSQL2, cnn400

strSQL2 = "ADDLIBLE LIB(LIB2)"
ExecCmd strSQL2, cnn400

strSQL2 = "ADDLIBLE LIB(LIB3)"
ExecCmd strSQL2, cnn400


Public Sub ExecCmd(MyCmd As String, myCnn As ADODB.Connection)
Dim mySql As String
mySql = "{{CALL QCMDEXC PARM('" & MyCmd & "' " & Format$(Len(MyCmd), "0000000000.00000") & ")}}"
mySql = Mid(mySql, 1, Len(mySql) - 9) & "." & Right(mySql, 8)
myCnn.Execute mySql, , adExecuteNoRecords
End Sub


Auf der AS400:



Mit Objektsperren arbeiten

System: MeineAS400

Objekt: QNUTZER1 Bibliothek: QSYS Art: *USRPRF



Auswahl eingeben und Eingabetaste drücken.

4=Job beenden 5=Mit Job arbeiten 8=Mit Jobsperren arbeiten



Aus-

wahl Job Benutzer Sperre Status Bereich Thread

QZRCSRVS QUSER *SHRRD HELD *JOB



Objekt: QNUTZER1 entspricht der user id.





Mit Auswahl 5 und 13.Bibliotheksliste anzeigen



Bibliotheksliste anzeigen

System: MeineAS400

Job: QZRCSRVS Benutzer: QUSER Nummer: 165347



Auswahl eingeben und Eingabetaste drücken.

5=Objekte in Bibliothek anzeigen



Aus-

wahl Bibliothek Art Text

QSYS SYS Systembibliothek

QSYS2 SYS Systembibliothek für einh. Anwendungsunterstützung

QHLPSYS SYS

QUSRSYS SYS

LIB1 USR Installation-Bibliothek ..

LIB2 USR Installation-Bibliothek ..

LIB3 USR Installation-Bibliothek ..

QTEMP USR

QGPL USR



Die Bibliotheken LIB1,LIB2,LIB3 wurden hinzugefügt….

Dieser Job QZRCSRVS läuft in Subsystem QUSRWRK.





Alle Zugriffe per SQL laufen über den JOB QZDASOINIT.



Bibliotheksliste anzeigen

System: MeineAS400

Job: QZDASOINIT Benutzer: QUSER Nummer: 165348



Auswahl eingeben und Eingabetaste drücken.

5=Objekte in Bibliothek anzeigen



Aus-

wahl Bibliothek Art Text

QSYS SYS Systembibliothek

QSYS2 SYS Systembibliothek für einh. Anwendungsunterstützung

QHLPSYS SYS

QUSRSYS SYS

QIWS PRD

QTEMP USR

QGPL USR





Dieser Job der den SQL Zugriff startet fehlen die Bibliotheken LIB1,LIB2,LIB3

ich denke hier ligt das Problem!!!!

Hat noch jemand einen Tip.