DECS und Domino und AS/400 DB2

[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