DECS und Domino und AS/400 DB2

[KM]

Hallo Dirk,

mit DECS kenne ich mich jetzt leider nicht aus. Aber wäre ein Zugriff über ODBC auch in Ordnung ? Da hätte ich ein kleines Beispiel wie man von Notes aus auf die iSeries zugreifen kann.

Gruß,
KM

[cicero22]

Aber sehr, sehr gerne doch.
Immerhin schonmal etwas..

Im voraus Danke.
dirk

Hallo Dirk,

mit DECS kenne ich mich jetzt leider nicht aus. Aber wäre ein Zugriff über ODBC auch in Ordnung ? Da hätte ich ein kleines Beispiel wie man von Notes aus auf die iSeries zugreifen kann.

Gruß,
KM

[KM]

Ich habe mir einen Agenten erstellt, mit dem ich ein paar Felder in einer Messagebox anzeige. Dazu habe ich folgendes eingetragen:

unter Options:

Option Public

Uselsx "*LSXODBC"

unter Initialize:

Sub Initialize

Dim con As New ODBCConnection
Dim qry As New ODBCQuery
Dim res As New ODBCResultSet

If Con.ConnectTo("AS400")Then
Set Qry.Connection = Con
Qry.SQL = "select LGNAME, LGSTRA, LGPORT from Bibliothek.Datei"
Set Res.Query = Qry
Res.Execute
Call Res.FirstRow
Messagebox "Lagername: " & Res.GetValue(1) & " Straße: " & Res.GetValue(2) & " Ort: " & Res.GetValue(3)
Do Until res.IsEndOfData
Call Res.NextRow
Messagebox "Lagername: " & Res.GetValue(1) & " Straße: " & Res.GetValue(2) & " Ort: " & Res.GetValue(3)
Loop
Res.Close(DB_Close)
con.DisConnect
Else
Messagebox ("Could not connect to data source")
End If

End Sub


Meine ODBC-DSN heißt in diesem Falle AS400.

Vielleicht hilft Dir das ja schon mal.

Gruß,
KM

[cicero22]

Danke schonmal.

Darf ich Dich nochmals persönlich anschreiben, wenn ich noch ne Frage habe?

dirk

[KM]

Klaro, wenn ich Dir weiterhelfen kann, gerne.

Gruß,
KM