Hallo,
ich hatte endlich mal wieder Zeit, an diesem Projekt weiterzuarbeiten. Ich habe es noch nicht hinbekommen. Meine Lage:
- ich habe einen Domino Server 7
- ich habe auf dem selben Rechner DB2 8.2 Enterprise Edition laufen
- ich habe einen weiteren Rechner mit einem Notes Client
- der Notes Client kann prima mit dem Domino Server kommunizieren
- Domino kann prima mit DB2 kommunizieren, Domino ist via Access Server mit DB2 verbunden
- ich habe eine DB designt und auf dem Domino Server abgelegt
- vom Client aus gestalte ich sie
Das ist das Skript (liegt in einem Button):
| 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 = "BUCHDB" |
| src.Userid = "db2admin" |
| src.Password = "***" |
| 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 |
In den Options des Forms steht:
| Option Public |
| Uselsx "*lsxlc" |
Führe ich die DB vom Client aus auf, kommt der Fehler "Error creating product object". Führe ich sie vom Client auf dem Rechner mit dem Domino Server aus, geht alles.
Muss ich in dieser Konstellation einen DB2 Runtime Client installieren? Ich dachte immer, das braucht man nur, wenn man Domino und DB2 auf getrennten Rechnern hat?
Kann mir bitte jemand Hinweise geben?
Grüße und Danke
Björn