Das Notes Forum
Lotus Notes / Domino Sonstiges => Tools & Downloads => Thema gestartet von: Julle am 11.12.02 - 10:20:23
-
Unsere Geschäftsleitung hatte den grandiosen Einfall, die in diversen kleinen Datenbanken und Tabellen verstreuten Informationen in einer ACCESS-Datenbank zu versammeln. Wie bekomme ich jetzt die Daten aus einigen Notes-Ansichten rübergeschaufelt nach ACCESS, und zwar mit regelmäßiger Replikation? Ich habe mir LEI heruntegeladen, aber irgendwie komme ich damit nicht weiter. Datenquelle wird nicht gefunden, ODBC-Connector klappt nicht. :(
Langsam kriege ich Zweifel, ob LEI überhaupt das Richtige ist.
Ich hoffe, jemand aus dem Forum kann mir helfen.
Viele Grüße
Julle
-
guckst du hier
http://eknori.dyndns.org/knowledge/devidea.nsf/703257f00a483fb180256879002c0178/316a9267340298f7c12567e000476700?OpenDocument
und um die ODBC Verbindung einzurichten
http://www-10.lotus.com/ldd/sandbox.nsf/ecc552f1ab6e46e4852568a90055c4cd/d3f4a4b3f0df010885256b4f00732b88?OpenDocument&Highlight=0,ACCESS
und das hier
http://www-10.lotus.com/ldd/sandbox.nsf/ecc552f1ab6e46e4852568a90055c4cd/8fa1a311c4c80a8e852568a1005dc4ce?OpenDocument&Highlight=0,ACCESS
sollte dir bei deinem Vorhaben auch weiterhelfen.
eknori
-
Hallo auf www.jnotes.de gibt es auch eine DB.
-
Christopher meint dies hier
http://www.jnotes.de/jnotes/jix.nsf/ID/~Notes2RDBMS2
-
Hallo,
ich habe versucht, die Programmierung aus der Sandbox für die ODBC-Verbindung in einem Agenten in meiner Datenbank abzuspeichern. leider kamen massenweise Fehlermeldungen. Zunächst wegen End Forall, dann wegen aller functions, die ODBC betreffen. Kann es sein, dass der Code nur in reinen R5-Datenbanken funktioniert? Unsere DB ist auf R4 programmiert worden und hat einfach die Endung .ns4 bekommen.
Hier ist noch mal der angepasste Code in voller Schönheit:
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocument
Dim strDB As String
Dim ConnectionString As String
Dim con As New ODBCConnection
Dim qry As New ODBCQuery
Dim result As New ODBCResltSet
Set session = New NotesSession
Set db = Session.CurrentDatabase
Set dc = db.UnprocessedDocuments
If (dc.Count > 0) Then
strDB = "D:\daten\Access\dbtest"
strDB = Inputbox$ ("Bitte Datenbankpfad eingeben: " ,"Neuer Datenbankpfad", strDB)
dbq = "; Dbq=" & strDB
Forall DSN In con.ListDataSources
If (Instr(1,dsn, "Access") > 0) Then
ConnectionString = DSN & dbq
End Forall
If Not con.ConnectTo (ConnectionString) Then
Messagebox "Konnte nicht verbinden zu: "& ConnectionString
Exit Sub
Else
Messagebox "Verbunden mit: " & ConnectionString
End If
Set qry.Connection = con
Set result.Query = qry
qry.SQL = "SELECT * FROM VIS-Kunden"
result.Execute
Set doc = dc.GetFirstDocument
While Not (doc Is Nothing)
result.AddRow
Call result.SetValue ("FirmaName", doc.FirmaName (0))
Call result.SetValue (" Land", doc.AP_Land (0))
Call result.SetValue ("Ort", doc.AP_Ort (0))
result.UpdateRow
Set doc = dc.GetnextDocument (doc)
Wend
result.Close (DB_Close)
con.Disconnect
End Forall
Messagebox "No documents selected"
End If
End Sub
Messagebox "No documents selected."
End If
End Sub
Ich habe von Lotusscript wenig Ahnung, da ich nach dem Einführungskurs einfach keine Zeit hatte, mal selbst zu programmieren. Daher stehe ich hier bei der Fehlerbehebung ziemlich auf dem Schlauch.
ich hoffe, es erbarmt sich jemand meiner.
Ich werde jetzt erstmal meinen Frust auf der Weihnachtsfeier ertränken.
Viele Grüße
Julle
-
Man muss nur richtig mit ODBC-Datenquellen umgehen können, dann geht manches leichter ;)
Jetzt geht's, zumindest bis zum überübernächsten Schritt.
Julle