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
