Hallo,
hab mir jetz mal eine leere DB gebastelt und die Daten reinlaufen lassen. Das funktioniert jetzt auch. Nur brauche ich die Daten aber im Nab. Es werden später auch wesentlich weniger Kundendaten sein. Das soll mal getrennt werden nach aktiven, inaktiven usw.
Hier der verwendete Code:
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("NOTES")
Set Qry.Connection = Con '
Qry.SQL = "SELECT ADNM1,ADSTR,ADPLZ,ADORT FROM LZDTA.GADRSTP"
Set Res.Query = Qry
Res.Execute
Res.CacheLimit = limit&
RetCode% = Res.FirstRow
Do While RetCode% =True
Dim Doc As New NotesDocument(db)
doc.form = "Person"
doc.CompanyName = Cstr(Res.GetValue(1))
doc.OfficeStreetAddress = Cstr(Res.GetValue(2))
doc.OfficeZip = Cstr(Res.GetValue(3))
doc.OfficeCity = Cstr(Res.GetValue(4))
Call doc.save (True, True)
RetCode% = Res.NextRow
Loop
RetCode% = Res.Close( DB_CLOSE )
RetCode% = Con.Disconnect
End Sub
Bin hier fast am drehen. Es werden ewig die Daten geladen aber im Nab nicht angezeigt.
Bis dann
Andreas
