Hallo zusammen,

ich versuche gerade eine Verbindung zu AS400 aufzubauen via OLEDB aber irgendwie funktioniert es nicht. VIA ODBC funktioniert es ohne Problem.

"Provider='IBMDA400';Data source=SYSTEM ;User Id=USERID Password=PASSWORD ;Protection Level=None;Transport Product=Client Access;SSL=DEFAULT;Force Translate=65535;Default Collection=LIB ;Convert Date Time To Char=TRUE;"

habe auch schon versucht den connetionString = "Provider=IBMDA400;Data Source=SYSTEM;User Id=USER;Password=PASS;" zu verkleinern.

Bekomme die Meldung das "IBMDA400-Provider ist nicht auf dem lokalen Computer registriert." kann mit dieser Meldung leider nix anfanfen.

Ich will daten per OLEDB in ein DATASET schreiben via SQL mit ODBC funktioniert es super, denke mit OLEDB sollte es schneller werden.

CA ist auf meinem Rechner komplett installiert.
Habe die Version:
Version 5 Release 2 Modifikationsstufe 0 mit SP SI04484.

Danke für eure Hilfe schon mal!

================================================== ==========================

Nachtrag:

meine programm in vb.net:

Option Strict Off
Imports System.Data
Imports System.Data.OleDb
Imports Microsoft.Office.Interop



Public Class Form1
Dim connetionString As String
Dim connection As OleDbConnection
Dim odbcAdapter As OleDbDataAdapter
Dim oledbCmdBuilder As OleDbCommandBuilder
Dim ds As New DataSet
Dim changes As DataSet
Dim i As Integer
Dim sql As String



Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
connetionString = "Provider=IBMDA400;Data Source=SYSTEM ;User Id=USER;Password=PASS;"
connection = New OleDbConnection(connetionString)


sql = "SELECT count(*) end FROM ALTGERFILE.ALTAS "
Try
connection.Open()
odbcAdapter = New OleDbDataAdapter(sql, connection)
odbcAdapter.SelectCommand.CommandTimeout = 6000
odbcAdapter.Fill(ds)
dgv1.DataSource = ds.Tables(0)
connection.Close()
connection.Dispose()

Catch ex As Exception
MsgBox(ex.ToString)
End Try

End Sub


End Class