DominoServer soll in AccessDB schreiben

Domino 9 und frühere Versionen > Administration & Userprobleme

(1/1)

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..."

--- Ende Code ---
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"

--- Ende Code ---
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'..."

--- Ende Code ---
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

--- Ende Code ---
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..."

--- Ende Code ---
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

--- Ende Code ---
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..."

--- Ende Code ---
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

--- Ende Code ---
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

--- Ende Code ---
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

--- Ende Code ---
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..."

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

--- Code: ---con.Disconnect
Print "Verbindung beendet mit AccessDB"

--- Ende Code ---
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

--- Ende Code ---
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

Navigation

[0] Themen-Index

Zur normalen Ansicht wechseln