Domino 9 und frühere Versionen > Entwicklung

Import nach Notes

(1/3) > >>

ReinhardR:
Hallo,

mein Problem ???: Ich muß jeden Freitag 52000 Datensätze nach Notes einlesen (Grundbestandsdaten die nur Ausgetauscht werden- sie werden in Notes nicht verändert). Die Daten liegen im DB2 format vor. Ich könnte sie nach Excel bzw. DB-Base exportieren. Derzeit gehe ich den Umweg über die Smart-Suite und schreibe in Notes direkt. Das ganze soll aber automtiesiert über ein Agenten oder ähnliches laufen. Mit den Importfunktionen von Notes bi ich gescheitert (WKS-Format, strukt. Text usw.) In Skript bin ich nicht so fit. Hat jemand eine Lösung für mich?.

Reinhard

eknori:
was ist denn mit einem direkten Connect auf die DB2 über ODBC ??

eknori:
ich habe einen Agenten, der aus AS400 / MAS90 die Kostenstellen nach Notes importiert:
Client Access auf dem NotesServer installiert, Verbindung eingerichtet; Agent starten, fertig !!

Sub Initialize
   Dim Session As New NotesSession
   Dim db As NotesDatabase   
   Set db = Session.currentdatabase   
   Dim view As NotesView   
   Dim Del As NotesDocument   
   Dim Con As New ODBCConnection   
   Dim Qry As New ODBCQuery   
   Dim res As New ODBCResultSet   
   
   ' alle KST Dokumente vor einem neuen Import löschen
   Dim collection As NotesDocumentCollection
   Set collection = db.AllDocuments
   If collection.Count <> 2 Then
      Call collection.RemoveAll ( True )
   End If
   
     'Verbindungsaufbau zur AS/400
   RetCode% = Con.ConnectTo("AS/400","TRANSFER","KARL")
   
   Set Qry.Connection = Con     '   
   Qry.SQL = "SELECT * FROM Costing.COAS01"
   Set Res.Query = Qry
   Res.Execute
   RetCode% = Res.FirstRow    
   Do While RetCode% =True
      ret$ = Trim(Cstr(Res.GetValue("S01001")))
      If ret$ = "90" Then      
         Dim Doc As New NotesDocument(db)          
         doc.form = "KST"
         doc.KSTNR = Cstr(Res.GetValue("S01006") )
         doc.KSTBEZ = Cstr(Res.GetValue("S01042"))
         doc.KSTVERANTW = Cstr(Res.GetValue("S01097"))
         doc.KSTWERK = Cstr(Res.GetValue("S01002"))
         doc.KSTGUELTIG = Cstr(Res.GetValue("S01090"))      
         Call doc.save (True, True)
      End If
      RetCode% = Res.NextRow
   Loop
   RetCode% = Res.Close( DB_CLOSE )
   RetCode% = Con.Disconnect        
End Sub

eknori

ReinhardR:
Hallo eknori,

direkt auf die DB2 darf ich nicht drauf. Deshalb der Export in eine Dbase III Datei. Ich könnte aber eine Anbindung nach Acess bzw. Excel nutzen. Hilft das weiter?

eknori:
wenn du dir eine Access DB als "Zwischenmedium" erstellst, kannst du ja dort auch mit ODBC drauf zugreifen.

Ich verstehe nur nicht, warum du das mit Access machen kannst und mit Notes nicht; aber man muß ja auch nicht alles verstehen.

eknori

Navigation

[0] Themen-Index

[#] Nächste Seite