Domino 9 und frühere Versionen > Entwicklung

odbc import - kontakte einfügen

(1/2) > >>

Sacki:
Hallo, ich probiere gerade einige Datensätze aus excel über odbc in mein lokales adressbuch zu importieren. Ich kann mir die Dokumente über eine Ansicht $(all) betrachten, bekomme sie aber leider nicht über die ansicht "kontakte" angezeigt.

Kann mir irgendwer vielleicht sagen, was ich falsch mache ?!


'Use "LibLOG"
%INCLUDE "LSCONST.LSS"

Sub Initialize
   Dim Session As New NotesSession
   Dim db As NotesDatabase  
   Set db = Session.currentdatabase  
   
   Dim Con As New ODBCConnection  
   Dim Qry As New ODBCQuery  
   Dim res As New ODBCResultSet  
   
   
   RetCode% = Con.ConnectTo("excel", "","")
   
   Set Qry.Connection = Con    '  
   Qry.SQL = "SELECT * FROM kunden"
   Set Res.Query = Qry
   Res.Execute
   Res.LastRow
   Rows% = Res.NumRows
   
   columns = res.NumColumns
   rows% = res.NumRows
   
   
   RetCode% = Res.FirstRow    
   
   Do While RetCode% =True
      Dim kunde As String
      Dim ansprechp As String
      Dim straße As String
      Dim plz As String
      Dim ort As String
      Dim telefon As String
      Dim bemerkung As String
      
      kunde = Cstr(Res.GetValue("kunde") )
      ansprechp = Cstr(Res.GetValue("ansprechp") )
      straße = Cstr(Res.GetValue("straße") )
      plz = Cstr(Res.GetValue("plz") )
      ort = Cstr(Res.GetValue("ort") )
      telefon = Cstr(Res.GetValue("telefon") )
      bemerkung = Cstr(Res.GetValue("ort") )
      
      Dim Doc As New NotesDocument(db)    
      
      doc.mask = "Person"
      doc.view = "People"
      doc.fullname = kunde
      doc.companyname = kunde
      doc.lastname = ansprechp
      doc.businessaddress = straße
      doc.officezip = plz
      doc.location = ort
      doc.officephonenumber = telefon
      doc.comment = bemerkung
      
      
      'Call doc.ComposeWithForms (True, False)
      Call doc.save (True, True)
      Print "datensatz",res.currentrow  , "von", rows%
      RetCode% = Res.NextRow
   Loop
   
   
   RetCode% = Res.Close( DB_CLOSE )
   RetCode% = Con.Disconnect      
   
End Sub

koehlerbv:

--- Code: ---doc.mask = "Person"
--- Ende Code ---
So kann das auch nix werden mit dem Nachbarn  :D

Sacki:
ich habe doc.mask = "Person" rausgenommen, es geht aber leider immer noch nicht

Sacki:
doc.form wäre richtig gewesen, alles klar! Das war aber leider nicht der Fehler

koehlerbv:
Dann schau mal in Die Ansichtsauswahl-Formel der Kontakte-Ansicht ...

Navigation

[0] Themen-Index

[#] Nächste Seite