Ich habe die Syntax in VBA übernommen, ist so OK.

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

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

strSQL2 = "ADDLIBLE 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

Nach Ausführen des Codes kommt es weiter zum gleichen Fehler,
die Bibliotheken sind nicht im Zugriff...


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

Wie kann man dieses Probelm lösen.