DECS und Domino und AS/400 DB2

[cicero22]

Hallo!

Vor einiger Zeit war dieses Thema schonmal hier im Forum - leider bekomme ich es trotzdem nicht so hin. (man möge mir verzeihen, dass es nur "indirekt" mit AS/400 zu tun hat) .
Also:
Wir haben einen Lotus Domino 6.5.3. auf unserer AS/400 am laufen. Nun möchten wir gelegentlich aus Notes Datenbanken Daten von DB/2 Datenbanken "holen".
Es scheint nur noch "irgendwie" an einer Winzigkeit zu haken..
Wir haben einen WRKRDBDIRE Eintrag gemacht, wir haben eine Connection to DB2 eingerichtet (ist es richtig mit Database mit Bibliothek.Dateiname anzugeben?) und wir haben eine Activity eingerichtet auf eine kleine NSF Testdatenbank (Key Felder miteinander verknüpft...).

Im Domino Log erscheint permanent die Meldung:
19.01.2005 08:21:30 DECS: The administrator can not access the required obj
ect: !Database = DECS Administrator!View = (CS_Queued Events)!Field = IsRealT
imeActivity
19.01.2005 08:21:30 DECS: The control store manager may be unable to commun
icate with the Notes server containing the control store database
19.01.2005 08:21:30 DECS: The administrator can not access the required obj
ect

Naja - alles nach bestem Wissen und Gewissen. Ich denke es liegt vielleicht an einer Kleinigkeit in der NSF Datenbank. Wie genau hole ich mir die Daten? Braucht man dafür ein Script - eine Formel????

Hat vielleicht jemand eine Idee oder eine Beispieldatenbank?

Für jede Hilfe äusserst Dankbar

Dirk

[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