Export von Daten aus Notes nach ACCESS

[Julle]

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

[eknori]

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

[Christopher]

Hallo auf www.jnotes.de gibt es auch eine DB.

[eknori]

Christopher meint dies hier

http://www.jnotes.de/jnotes/jix.nsf/ID/~Notes2RDBMS2

[Julle]

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

[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