Domino 9 und frühere Versionen > ND7: Administration & Userprobleme

Lotus Enterprise Integrator 7

<< < (3/3)

dabjoern:
Hallo auch,
ich hatte dein Skript schonmal hier in diesem Forum gelesen und probiert. Es funktionierte nicht, da man nicht die Zeile mit dem "Use" mit gepostet hatte. Ich kenne eigentlich die Anwendung dieser Use Befehle. Also hab ich gestern das Beispiel in einem Form in einen Button gebaut. Und, siehe da, es klappt. Danke für den Hilfe.


--- Code: ---Sub Click(Source As Button)
Dim src As New LCConnection ("db2")
Dim fldLst As New LCFieldList
Dim fld As LCField
Dim count As Integer
Dim text As String

Dim session As New NotesSession
Dim db As NotesDatabase
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument

'set the appropriate properties to connect
src.Database = "BJBUCHDB"
src.Userid = "db2admin"
src.Password = "xxxxxx"
src.Connect

'clear text variable
text = ""

'now connected, we can execute a selection statement
If (src. Execute ("SELECT * from ADRESSE",  fldLst) = 0) Then
text = "No records were fetched."
End If
Set fld = fldLst.Lookup ("NAME")

'fetch each record from the result set
While (src.Fetch (fldLst) > 0)
count = count + 1
text = text + fld.text(0) & ","
Wend

'post text in field Name
Set db = session.CurrentDatabase
Set uidoc = ws.CurrentDocument
Call uidoc.FieldSetText("Name", text)
End Sub
--- Ende Code ---

Vielen Dank. Mal sehen, was noch so geht. So kann ich wenigstens auf die Einrichtung von LEI verzichten.
Grüße
Björn

Navigation

[0] Themen-Index

[*] Vorherige Sete