Habe ein kleines Problem mit einem periodischen Agenten.
Der Agent stellt eine ODBC Verbindung zu einer Access Datenbank her.
Wenn ich den Agenten manuell starte, läuft alles as designed. Wenn der Agent aber zeitgesteuert läuft, passiert nix.
Laut den Log Einträgen startet der Agent, baut aber keine Verbindung auf. Habe da nicht so grosse Erfahrung. Gibt es bei W2K irgendetwas besonderes zu beachten ??
Hier der Code ( stört euch nicht an den Call L.LogAction Zeilen )
Sub Initialize
Dim Session As New NotesSession
Dim logdb As NotesDatabase
Set logdb = Session.CurrentDatabase
Dim L As New LOGProfile (logdb, "Lieferungen Export",LOG_DEBUG, "Ulrich Krause")
Dim Con As New ODBCConnection
RetCode% = Con.ConnectTo("PIS")
Call L.LogAction( "RetVal Connection " + Cstr(RetCode%) ,LOG_DEBUG)
Dim Qry As New ODBCQuery
Set Qry.Connection = Con
Qry.SQL = "SELECT * FROM tblV"
Dim res As New ODBCResultSet
Set Res.Query = Qry
Res.Execute
Call L.LogAction("ODBC Verbindung aufgebaut",LOG_DEBUG)
Dim db As NotesDatabase
Set db = Session.currentdatabase
RetCode% = Res.FirstRow
Call L.LogAction("---> Beginne Import von ODBC Datenquelle",LOG_DEBUG)
Call L.LogAction( "RetVal FirstRow " + Cstr(RetCode%) ,LOG_DEBUG)
Do While RetCode% =True
Dim Doc As New NotesDocument(db)
doc.form = "LEXPORT"
doc.ARTNR = Cstr(Res.GetValue("ARTNR") )
doc.ESTK = Cstr(Res.GetValue("Summe von ESTK"))
doc.EMENGE = Cstr(Res.GetValue("Summe von EMENGE"))
doc.EINHEITKZ = Cstr(Res.GetValue("EINHEITKZ") )
doc.EINGDAT = Cstr(Res.GetValue("EINGDAT") )
doc.LIEFDAT = Cstr(Res.GetValue("LIEFTDAT") )
doc.STATUS = Cstr(Res.GetValue("STATUS") )
Call doc.save (True, True)
Call L.LogAction("Erstelle Dokument",LOG_DEBUG)
RetCode% = Res.NextRow
Loop
RetCode% = Res.Close( DB_CLOSE )
RetCode% = Con.Disconnect
Call L.LogAction("---> Beende Import von ODBC Datenquelle",LOG_DEBUG)
End Sub
eknori
