DominoServer soll in AccessDB schreiben

[dasRalph]

Hallo!!!

Ich habe einen Agenten der per ODBC Daten in eine AccessDB schreiben soll. Dieser soll auf dem DominoServer laufen (RunOnServer).

Der Agent sieht in etwa so aus (gekürzte Version) und dazu die entsprechenden Einträge der log.nsf:

Code

'Verbinden mit Access-Datenbank
Set con = New ODBCConnection
Set qry = New ODBCQuery
Set result = New ODBCResultSet
con.ConnectTo( profildoc.ODBCEintrag(0) )
If Not con.IsConnected Then
      Print "nicht verbunden mit AccessDB"
      Exit Sub
End If
Print "verbinde mit AccessDB..."

25.07.2003 11:44:07   Zusatz: Agent gibt aus: verbinde mit AccessDB...

Code

If con.GetError <> DBstsSUCCESS Then
      Print "Fehler mit Verbindung AccessDB"
      Exit Sub
End If
Print "mit AccessDB verbunden"

25.07.2003 11:44:07   Zusatz: Agent gibt aus: mit AccessDB verbunden

Code

Set qry.Connection = con
Set result.Query = qry
qry.SQL = "SELECT * FROM tbl_Kat_Daten"
If qry.GetError <> DBstsSUCCESS Then
      Print "Fehler mit Verbindung Tabelle in AccessDB"
      Exit Sub
End If
Print "öffne Tabelle 'tbl_Kat_Daten'..."

25.07.2003 11:44:07   Zusatz: Agent gibt aus: öffne Tabelle 'tbl_Kat_Daten'...

Code

result.Execute
Print "result.Execute Error Message"
Print result.GetError
Print result.GetErrorMessage
Print result.GetExtendedErrorMessage

25.07.2003 11:44:07   Zusatz: Agent gibt aus: result.Execute Error Message
25.07.2003 11:44:07   Zusatz: Agent gibt aus:  500
25.07.2003 11:44:07   Zusatz: Agent gibt aus: NO ERROR
25.07.2003 11:44:07   Zusatz: Agent gibt aus: NO ERROR

Code

Print "erstelle neuen Eintrag in AccessDB..."

25.07.2003 11:44:07   Zusatz: Agent gibt aus: erstelle neuen Eintrag in AccessDB...

Code

result.AddRow
Print "result.AddRow Error Message"
Print result.GetError
Print result.GetErrorMessage
Print result.GetExtendedErrorMessage

25.07.2003 11:44:07   Zusatz: Agent gibt aus: result.AddRow Error Message
25.07.2003 11:44:07   Zusatz: Agent gibt aus:  500
25.07.2003 11:44:07   Zusatz: Agent gibt aus: NO ERROR
25.07.2003 11:44:07   Zusatz: Agent gibt aus: NO ERROR

Code

Print "speicher Daten in AccessDB..."

25.07.2003 11:44:07   Zusatz: Agent gibt aus: speicher Daten in AccessDB...

Code

Call result.SetValue("UniversalID",Trim$(cdoc.UniversalID))
Print "result.SetValue Error Message"
Print result.GetError
Print result.GetErrorMessage
Print result.GetExtendedErrorMessage

25.07.2003 11:44:07   Zusatz: Agent gibt aus: result.SetValue Error Message
25.07.2003 11:44:07   Zusatz: Agent gibt aus:  500
25.07.2003 11:44:07   Zusatz: Agent gibt aus: NO ERROR
25.07.2003 11:44:07   Zusatz: Agent gibt aus: NO ERROR

Code

Call result.UpdateRow
Print "result.UpdateRow Error Message"
Print result.GetError
Print result.GetErrorMessage
Print result.GetExtendedErrorMessage

25.07.2003 11:44:07   Zusatz: Agent gibt aus: result.UpdateRow Error Message
25.07.2003 11:44:07   Zusatz: Agent gibt aus:  720
25.07.2003 11:44:07   Zusatz: Agent gibt aus: LS:DO- ODBC could not complete the requested operation.
25.07.2003 11:44:07   Zusatz: Agent gibt aus: [Microsoft][ODBC Microsoft Access Driver] Unknown

Code

result.Close(DB_CLOSE)
Print "result.Close(DB_CLOSE) Error Message"
Print result.GetError
Print result.GetErrorMessage
Print result.GetExtendedErrorMessage

25.07.2003 11:44:07   Zusatz: Agent gibt aus: result.Close(DB_CLOSE) Error Message
25.07.2003 11:44:07   Zusatz: Agent gibt aus:  720
25.07.2003 11:44:07   Zusatz: Agent gibt aus: LS:DO- ODBC could not complete the requested operation.
25.07.2003 11:44:07   Zusatz: Agent gibt aus: [Microsoft][ODBC Microsoft Access Driver] Unknown

Code

Print "schliesse AccessDB..."

25.07.2003 11:44:07   Zusatz: Agent gibt aus: schliesse AccessDB...

Code

con.Disconnect
Print "Verbindung beendet mit AccessDB"

25.07.2003 11:44:07   Zusatz: Agent gibt aus: Verbindung beendet mit AccessDB

Code

Print "con.Disconnect Error Message"
Print con.GetError
Print con.GetErrorMessage
Print con.GetExtendedErrorMessage

25.07.2003 11:44:07   Zusatz: Agent gibt aus: con.Disconnect Error Message
25.07.2003 11:44:07   Zusatz: Agent gibt aus:  500
25.07.2003 11:44:07   Zusatz: Agent gibt aus:
25.07.2003 11:44:07   Zusatz: Agent gibt aus:



So nun die Frage, warum bekomme ich zum Schluss diese zwei Fehlermeldungen??? Was meint er mit "[Microsoft][ODBC Microsoft
Access Driver] Unknown" Wenn er den ODBC Treiber nicht kennt, warum erst hier und nicht gleich von Anfang an??? Was mich noch mehr verwundert. lasse ich den Agenten lokal laufen, dann gehts.

Bin sehr ratlos

Ein schönes Wochenende
Ralph

[PGroh]

Auf dem Server hast Du auch eine ODBC-COnnection wie bei deinem Client ?

Auch mit entsprechendem User etc ?

[dasRalph]

Hallo!!!

Also ich habe sowohl auf dem Server wie auf dem Client in der Systemsteuerung -> Datenquellen/ODBC die selben Einstellungen. Ich habe es mit Benutzer- und System-DSN versucht. Wenns der Client macht, dann gehen beide Einstellungen, machts der Server dann gehts nicht.

Der einzige Unterschied zwischen Client und Server ist, dass der Server nur den ODBC-Treiber hat, der Client aber das komplette Office-Paket, also mit Access und dementsprechend auch mit dem ODBC-Treiber.

Ich werde jetzt mal in einem neuen Thema die Frage in den Raum stellen "Kann ich mit Access auf eine Lotus Notes DB zugreifen???" http://www.atnotes.de/index.php?board=6;action=display;threadid=10060.

Trotzdem Besten Dank!!!

Ralph