Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: eknori am 15.05.02 - 09:22:31

Titel: ODBC zu MSACCESS unter W2K
Beitrag von: eknori am 15.05.02 - 09:22:31

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

Titel: Re: ODBC zu MSACCESS unter W2K
Beitrag von: eknori am 15.05.02 - 09:34:52

Könnt aufhören zu suchen; habe es doch noch gefunden.

Domino Server Cannot Access ODBC System DSN for Remote Flat File

Problem:

Your Domino server is set to run as a service under NT, using the system account.  An agent that runs on that server makes a connection to an ODBC System DSN, which is configured for a Microsoft Access database that resides on a mapped drive.  When the agent is run scheduled, however, it fails to connect to the Microsoft Access database.

Solution:

There are several issues with respect to running Notes as an NT Service, and in particular LS:DO agents from that server.  For a detailed analysis of running Domino as an NT service and accessing data sources via ODBC please refer to the document titled "Considerations for Domino as an NT Service When Using ODBC Scheduled Agents" (#177303 ).

eknori