Also keine Aufregung, vielleicht hilft folgendes :

1.AS/400 Systemname ist nur bedingt richtig.
Der Name muss unter IBM Client ASCCESS "AS/400 Verbindungen" (CWBCONN.EXE) definiert sein.
OLE-DB verwendet diesen Namen zum Verbindungsaufbau.
Dieser muss nicht zwangsläufig mit dem Systemnamen übereinstimmen.

2. Ersetzen
cn400.Provider = "IBMDA400"
cn400.Properties("data source") = "SYSTEM"
cn400.Open

durch

cn400.Open "provider=IBMDA400;data source=SYSTEM"

3. wenn das nicht hilft, versucht es doch mit dem OLE-DB Treiber für ODBC (von Microsoft)
Die Data Source ist hier allerdings eine eingerichtete ODBC-Datenquelle mit dem Client Access ODBC-Treiber.

cn400.Provider = "MSDASQL"
cn400.Properties("data source") = "ODBC_SOURCE"
cn400.Open

oder

cn400.Open "provider=MSDASQL;data source=ODBC_SOURCE"


Getestet habe ich mit :
OS/400 V4R4
CA/400 V3R2 (SNA und TCP/IP)



[Dieser Beitrag wurde von Sven Schneider am 11. Juli 2001 editiert.]