Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: jens1979 am 25.09.03 - 19:11:06

Titel: Import einer UDB DB in Notes
Beitrag von: jens1979 am 25.09.03 - 19:11:06

Hallo,

mal wieder ein Frage. Ich bin noch relativ neu auf dem Notes Sektor und hab mal wieder ein Problem.
Ich habe eine Anwendung geschrieben welche jeweils eine Nummer mit einem RichText Feld verbindet (Kundennummern und Unterschriften). Diese funktioniert auch ohne Probleme.
Jetzt ist das Problem das die bereits vorhandenen Datensätze als UniversalDatabase DB vorliegen (meiner Meinung nach also SQL).
Habe ich irgendeine Möglichkeit die vorhandenen Datensätze in meine Notes-Datenbank zu importieren.

Es sind also immer nur zwei Felder auf die es ankommt ein Feld mit der Kundennummer und eine RT-Feld mit der Unterschrift.


Danke schonmal im Vorraus,

Jens

Titel: Re:Import einer UDB DB in Notes
Beitrag von: Don Pasquale am 25.09.03 - 19:47:42

Hallo Jens,

auf´s gerate wohl vermute ich Du willst aus einer SQL Datenbank Daten saugen. Falls nicht, dann brauchst Du nicht weiterlesen.
Ich weiss nicht was Du mit UniversalDatabase meinst.

Falls Du auf eine SQL Datenbank zugreifen willst :
aber klar ist das möglich.
Mit LotusScript und einer einfachen ODBC Verbindung

Das ist Beispiel Code wie ich Werte aus einer SQL Datenbank auslese.
Da ist so glaube ich alles drin.

Schau ihn Dir mal an, dann beantworte ich gerne auch Fragen.

Ciao
Don Pasquale

Das kommt in die Options
Uselsx "*LSXODBC"


Function getSeleRegister ( Byval strIDENT As String, RegNr As String, RegAbt As String, Regger As String , Bereich As String) As Integer
   
   Dim DSN As String
   Dim USER As String
   Dim PASSW As String
   Dim SQL_REGISTER
   
   DSN = getODBC("SELE","DSN")
   USER = getODBC("SELE","USER")
   PASSW = getODBC("SELE","PASSW")
   
   SQL_REGISTER = "Select r.Regger, r.Regnr, r.Regabt FROM Register r where r.IDENT =" & Chr$(39) & strIDENT & Chr$(39)
   
   Dim Con As New ODBCConnection     
   Dim Qry As New ODBCQuery  
   Dim res As New ODBCResultSet  
   
   RetCode% = Con.ConnectTo( DSN,USER, PASSW)  
   
   If RetCode% <>-1 Then
      Messagebox " Keine Verbindung zur SeleFida Datenbank" & Chr$(10) & "Überprüfen Sie bitte den DSN Wert in Ihrem Profildokument"
      getSeleRegister = -1
   Else
      
      Set Qry.Connection = Con
      Qry.SQL = SQL_REGISTER
      Set Res.Query = Qry
      Res.Execute  
   '   RetCode% = Res.FirstRow    
      
      If Not res.IsResultSetAvailable Then      
         getSeleRegister = 0            
         Regnr = ""
         RegAbt = ""
         Regger = ""
         Bereich = "KGT"
         
      Else
         
         getSeleRegister = 1            
         Regnr  = Cstr(Res.GetValue("Regnr"))
         RegAbt  = Cstr(Res.GetValue("RegAbt"))
         Regger  = Cstr(Res.GetValue("Regger"))
         Bereich = "HR"
         
      End If
      
      
      
      
      RetCode% = Res.Close( DB_CLOSE )
      RetCode% = Con.Disconnect          
      
   End If
   
   
   
End Function

Titel: Re:Import einer UDB DB in Notes
Beitrag von: koehlerbv am 25.09.03 - 20:58:24

"Universal Database"?
SQL und Rich Text ?

Grübel, grübel ... Jens, weißt Du wirklich genau, was Du da machen willst / sollst ?

Bernhard

Titel: Re:Import einer UDB DB in Notes
Beitrag von: Semeaphoros am 25.09.03 - 21:12:05

UniversalDatabase, abgekürzt UDB ist ein Alias zu DB2 (in etwa, ist etwas komplizierter, aber lassen wir das)

Jens, aber ein anderer :-)

Titel: Re:Import einer UDB DB in Notes
Beitrag von: koehlerbv am 25.09.03 - 21:32:08

Wieder was gelernt ...

Aber funktioniert der Zugriff auf UDB-Columns, die in Notes RTFs repräsentieren würden ?

Bernhard