akumm
08-10-08, 13:32
Hallo an alle,
ich habe zwar schon ähnliche Themen hier gefunden, aber diese waren mir immer etwas zu unausführlich, daher nochmal diese Frage.
Ich möchte mittels eines eigenen Programms (in meinem Fall mit VB) einen Connect zur AS/400 über den iSeries Access ODBC Treiber realisieren und ein paar Daten auslesen.
Nun gibt es ja mehrere Ansätze.
- ODBC.Connection
- ADODB. Connection
Bis jetzt habe ich ein DSN eingerichtet und schon ein paar Codeschnipsel geschrieben, aber ich bekomme einfach kein Connect hin.
ODBC:
Dim odbcCon As Odbc.OdbcConnection
Dim reader As Odbc.OdbcDataReader
Dim cmd As Odbc.OdbcCommand
strSQL = "SELECT ORDNO FROM MOMAST"
odbcCon = New Odbc.OdbcConnection("DSN=DSNname")
odbcCon.Open()
cmd = New Odbc.OdbcCommand(strSQL,odbcCon)
reader = cmd.ExecuteReader()
Do While reader.Read()
tmp1 = reader["ORDNO"]
Debug.print (tmp1)
Loop
reader.Close
odbcCon.close
Dann sagt er mir Benutzer ungültig und Password length = 0, muss ich die bei der ODBC.Variante noch irgendwo angeben?
Hat jemand eine ADODB Varinate parat?
:confused:
Viele Grüße
Andreas
ich habe zwar schon ähnliche Themen hier gefunden, aber diese waren mir immer etwas zu unausführlich, daher nochmal diese Frage.
Ich möchte mittels eines eigenen Programms (in meinem Fall mit VB) einen Connect zur AS/400 über den iSeries Access ODBC Treiber realisieren und ein paar Daten auslesen.
Nun gibt es ja mehrere Ansätze.
- ODBC.Connection
- ADODB. Connection
Bis jetzt habe ich ein DSN eingerichtet und schon ein paar Codeschnipsel geschrieben, aber ich bekomme einfach kein Connect hin.
ODBC:
Dim odbcCon As Odbc.OdbcConnection
Dim reader As Odbc.OdbcDataReader
Dim cmd As Odbc.OdbcCommand
strSQL = "SELECT ORDNO FROM MOMAST"
odbcCon = New Odbc.OdbcConnection("DSN=DSNname")
odbcCon.Open()
cmd = New Odbc.OdbcCommand(strSQL,odbcCon)
reader = cmd.ExecuteReader()
Do While reader.Read()
tmp1 = reader["ORDNO"]
Debug.print (tmp1)
Loop
reader.Close
odbcCon.close
Dann sagt er mir Benutzer ungültig und Password length = 0, muss ich die bei der ODBC.Variante noch irgendwo angeben?
Hat jemand eine ADODB Varinate parat?
:confused:
Viele Grüße
Andreas