Mahlzeit zusammen!
Ich habe mir im Forum ein Beispiel von Eknori angesehen und habe ein kleines
Problem.
Hier der CODE:
Option Public
Uselsx "*lsxodbc"
'Use "LibLOG"
%INCLUDE "LSCONST.LSS"
Sub Click(Source As Button)
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 Kunden vor neuem Import aus Notes DB löschen
Dim collection As NotesDocumentCollection
Set collection = db.AllDocuments
If collection.Count >= 1 Then
Call collection.RemoveAll ( True )
End If
'Verbindungsaufbau zur AS/400
RetCode% = Con.ConnectTo("ANCRADTA","USER","PASSWORD")
Set Qry.Connection = Con '
Qry.SQL = "SELECT * FROM ANCRADTA.KDSTAMPF WHERE KDPRGR = 30 ORDER BY KDKDNR"
Set Res.Query = Qry
Res.Execute
RetCode% = Res.FirstRow
Do While RetCode% =True
'ret$ = Trim(Cstr(Res.GetValue("KDPRGR")))
'If ret$ = "30" Then
Dim Doc As New NotesDocument(db)
doc.form = "kundeninfo_1"
doc.produktgruppe = Cstr(res.GetValue("KDPRGR"))
doc.kundennummer = Cstr(res.GetValue("KDKDNR"))
doc.name1 = Cstr(Res.GetValue("KDNAM1") )
doc.name2 = Cstr(Res.GetValue("KDNAM2"))
doc.strasse = Cstr(Res.GetValue("KDSTR1"))
doc.PLZ = Cstr(Res.GetValue("KDPLZ1"))
doc.Ort = Cstr(Res.GetValue("KDORT"))
Call doc.save (True, True)
'End If
RetCode% = Res.NextRow
Loop
RetCode% = Res.Close( DB_CLOSE )
RetCode% = Con.Disconnect
End Sub
Eigentlich fiunktioniert die Sache genau so wie ich es gerne hätte!
Das komische ist nur das er mir immer zu wenig Datensätze anzeigt.
Ich erhalte immer 771 DS.
Das ist mir unerklärlich!
Hat vielleicht jemand eine Idee? Könnte mir vorstellen das es nur eine
Kleinigkeit ist.
Die ODBC Verbindung führt zu einer IBM iSeries bzw. AS/400.
Vielen Dank im Voraus!
Gruß René