Access 2000 und AS400

[cocoa]

Hallo,

ich möchte von Access 2000, also über VBA" auf die AS/400 zugreifen.
Der Aufruf lautet wie folgt:

Option Compare Database
Option Explicit

Public Sub verbindung_herstellen()

Dim cn As New ADODB.Connection
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset


cn.Open "Driver={Client Access ODBC Driver (32-bit)};System=TSTTESTDAT;Uid=User1;Pwd=NoPWD"


rst.Close
cn.Close


End Sub

Als Fehlermeldung erscheint aber immer:

Laufzeitfehler '-2147467259' (80004005):

[IBM][Client Access ODBC-Treiber (32-Bit)]Fehler bei Datenübertragungsverbindung. comm rc=10110 - CWBCO1003 - Winsock-Fehler, Funktion hat 10110, TSTTESTDAT zurückgegeben.

Weiß jemand, wie ich diesen Fehler beheben kann?

Gruß,
cocoax

[Fuerchau]

Da ist guter Rat teuer.
Versuche erst mal eine Verbindung über eine verknüpfte Tabelle über Access herzustellen:
- Tabelle verknüpfen
- ODBC
- System-DSN einrichten
- Tabelle auswählen

Vielleicht erhältst du dort bessere Fehlermeldungen.

[cocoa]

Hallo Fuerchau,

ich habs gerade ausprobiert. Wenn ich eine Datenbank über den Dateityp "ODBC Databases" öffne und als Computerdatenquelle den Namen der Datenquelle "TSTTESTDAT" auswähle, werde ich zunächst nach dem Loginnamen und Passwort gefragt. Danach erscheint die Auswahl der Tabellen auf der AS400, die man verknüpfen möchte. Die ausgewählte Tabelle kann ich mir dann anzeigen lassen.

Also die Verbindung müsste theoretisch funktionieren.

Gruß,
cocoax

[Fuerchau]

Dann gib folgende Variante an:
cn.properties("User Id")="User"
cn.properties("Password)="Password"
cn.properties("Prompt")=addrivercomplete
cn.open "Driver...."

[cocoa]

Danke für den Tipp.
Ich habs mal über den DSN versucht:
cn.open "DSN=TSTTESTDAT;Uid=User;Pwd=Password;"

Diese Variante funktioniert auch. Vielen Dank für die Hilfe.

Gruß,
cocoax

[jijibidji]

Können Sie bitte detailierter erklären wo man genau diese Befehle angibt ?
Wir haben auch iSeries ODBC Driver und wollen dieser Prompt bei Access Tabellenverknüpfung umgehen, da es über Task laufen soll...

Danke für eure Hilfe!

MfG
Ivan

[JonnyRico]

Hi,

das ganze spielt sich in einem Modul ab. Es ist ein Verweis auf die Microsoft ActiveX Data Objects gesetzt.
Dann kann man genau mit diesen Objekten arbeiten.

Gruß

Sascha