User + Kennwort speichern

[Miles]

Hallo zusammen,

ich möchte auf einigen PC einen bestimmen user und kennwort im PC speichern um die Anmeldung von Access zurückspringen für ODBC.

Mein Problem ist gerade das es nicht funktioniert, habe eine Batch erstellt aber bekomme die Meldung:

"Benutzer-ID und Kennwort wurden im Cache von Iseries Access für Windows erfolgreich gespeichert"

Wenn ich dann eine ODBC Verbindung öffnen muss ich noch das Kennwort eintragen.

Hat jemand eine Idee?

Batchdatei:

"C:\Program Files (x86)\IBM\Client Access\cwblogon.exe" SYSTEM1 /u ODBC /p ODBC
pause

Was leider nicht geht, ist den usernamen identisch mit dem User name AS400 anzulegen und im CA Windows anmeldung zu nutzen.

Danke euch

[Fuerchau]

CWBLOGON funktioniert nur, wenn in der iSeriesNavigator-Verbindung "Standard-User" angeclickt ist.
Bei "Immer anmelden" ist der Cache ausgeschaltet.

Aber Achtung:
Die Anmeldung per CWBLOGON gilt auch für die 5250 und alle anderen Verbindungen, was ggf. nicht gewünscht ist.

[Miles]

Hallo,

erst mal Danke,

"Standard-User" ist angeclickt. bekomme trozdem die Anmeldung angezeigt, vielleicht noch eine andere Idee?

Danke

[Fuerchau]

Und ist der Standarduser auch identisch zu deinem CWBLogon ?
Sonst klappt das nämlich auch nicht.

Ansonsten stellt sich nun die Frage, wie du das in MS-Access machst.
- Verknüpfte Tabellen
- SQL-Passthru-Abfragen
- VBA

Bei Tabellen und Abfragen kannst du mal auf die Verbindungseigenschaften clicken, ob da nicht ggf. ein anderer User eingetragen ist (Password geht da meist nicht).
Bei VBA (Connection und Commands) hast du es ja selber in der Hand.

[RichardMaretti]

Mal wieder Unsinn!!!!!!!!!

[Miles]

Das problem ist leider das diese schei.. Accesslösung nicht abgeschalt werden darf.

Mit dem Standuser hast du recht, verdamt...
Gibt es eine andere möglichkeit noch, oder jemand eine idee?


Was meinst du Richard?

Mal wieder Unsinn!!!!!!!!!

[Fuerchau]

Ggf. klappt das so:
Beim Start der Access-Anwendung gehst du durch jede verknüpfte Tabelle und trägst in die Verbindungseigenschaften zusätzlich "UID=XXX;PWD=YYY" ein bevor auf die Tabellen zugegriffen wird.
Das selbe gilt auch für vorhandene SQL-Passthrou-Abfragen.
Leider lassen sich eben UID und PWD nicht permanent speichern.

Public Sub StartApp()
Dim xTable As TableDef

For Each xTable In CurrentDb.TableDefs
If InStr(1, xTable.Connect, "ODBC", vbTextCompare) > 0 Then
xTable.Connect = xTable.Connect & ";UID=XXX;PWD=YY;"
End If
Next

Dim xQuery As QueryDef
For Each xQuery In CurrentDb.QueryDefs
If InStr(1, xQuery.Connect, "ODBC", vbTextCompare) > 0 Then
xQuery.Connect = xQuery.Connect & ";UID=XXX;PWD=YY;"
End If
Next
End Sub