AS400 Kennwort mit VBA prüfen

[KM]

Hallo Pauli,

ich hab jetzt noch nicht so recht verstanden was Du vorhast. In meinem Beispiel erscheint beim Öffnen der Excel-Tabelle als erstes ein Anmelde-Window. Wenn die Anmeldung korrekt ist, wird ein ADO.Connection-Objekt erstellt, das ich im weiteren Verlauf immer wieder ohne weitere Anmeldung verwenden kann. Wenn die Anmeldung nicht korrekt ist, bleibt das Anmelde-Window weiterhin bestehen mit dem Hinweis, dass eben ein Fehler bei der Anmeldung aufgetreten ist und der Benutzer aufgefordert wird die Logindaten zu korrigieren.

Gruß,
KM

[Pauli]

Hallo KM,
Bei uns sind alle Benutzer über den Operations Navigator so eingestellt, dass diese sich jedesmal, wenn Sie einen Zugriff auf die AS400 starten anmelden müssen, das kann ich in VBA umgehen in dem ich ein eigenes Form "Anmeldefenster" erstellt habe. Im Connection-String gebe ich dann den Benutzer und das Kennwort aus meiner Form mit. Das funktioniert auch so ganz gut, wenn der Benutzer und das Kennwort beim ersten mal korrekt eingegeben wurden. Bei einer Falscheingabe übernimmt die AS400 die Anmeldeprozedur, was ich nicht möchte, weil mir die AS400 kein Flag mit gibt, dass die Anmeldung korrigiert wurde.

Es ist nicht einfach, aber ich hoffe das ich mich verständlich ausgedrückt habe

[Fuerchau]

Das leigt eben an der Einstellung:

dbDriverCompleteRequired

was dazu führt, dass bei Fehlern eben das Anmeldefenster kommt.
Diesen Wert musst du mit einer Einstellung "dbDriverPromptNone" verhindern!
Wobei ich den genauen Namen der Konstanten jetzt nicht kenne, den bekommst du aber per IntelliSence angezeigt.

[Pauli]

Hallo,

ich habe jetzt den richtigen Befehl gefunden.

Die Zeile sieht jetzt so aus
Set cnADO1 = wrkODBC1.OpenConnection("", dbDriverNoPrompt, False, CN_STR & tbBenutzer & "; Pwd =" & tbKennwort)

und damit kann ich jetzt eine "ON Err" Abfrage starten und das ganze von vorne beginnen lassen

Übrigens Error 13 = falsches Kennwort

Vielen Dank an alle