Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Sacki am 22.06.04 - 12:46:20

Titel: odbc import - kontakte einfügen
Beitrag von: Sacki am 22.06.04 - 12:46:20

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

Titel: Re:odbc import - kontakte einfügen
Beitrag von: koehlerbv am 22.06.04 - 12:50:56

Code

doc.mask = "Person"

So kann das auch nix werden mit dem Nachbarn  :D

Titel: Re:odbc import - kontakte einfügen
Beitrag von: Sacki am 22.06.04 - 12:54:23

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

Titel: Re:odbc import - kontakte einfügen
Beitrag von: Sacki am 22.06.04 - 13:07:42

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

Titel: Re:odbc import - kontakte einfügen
Beitrag von: koehlerbv am 22.06.04 - 13:11:00

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

Titel: Re:odbc import - kontakte einfügen
Beitrag von: ata am 22.06.04 - 13:14:55

hallole...

... das Feld Form solltest du auf jeden Fall setzen. Zusätzlich solltest du das Feld "Type" ebenfalls mit dem Maskennamen setzten, denn in der View-Selection-Formula der Ansicht steht folgede Formel:

SELECT Type = "Person":"Company"

... bedeutet, es werden nur Dokumente angezeigt, die im Feld Type den Wert "Person" oder "Company" haben...

ata

Titel: Re:odbc import - kontakte einfügen
Beitrag von: ata am 22.06.04 - 13:16:36

Hallo Bernhard - eben das war die Lösung - hat sich wohl überschnitten...


Toni  ;D

Titel: Re:odbc import - kontakte einfügen
Beitrag von: Sacki am 22.06.04 - 13:17:46

Super es läuft jetzt, doc.type musste noch gesetzt werden.

Danke euch beiden !!!