Hi,
habe jetzt das Forum soweit durchforstet, da das Thema ja schon oft behandelt wurde...aber für meine belangen hab ich nix gefunden...
Vorweg ich greife per LS auf eine SQL DB zu ohne Probleme und es funktioniert. Nur glaube ich mach ich was in dem neuen LScript falsch...Hab eine System-DSN angelegt mit dem Namen ACCESS, User & Pwd gibts keine...
Die Tabelle nennt sich "Objekte"
Er soll mir alle Daten auflisten die mit dem Feldwert "InventNumPC" im Lotus mit der InvNr in der AccessDB übereinstimmen.
Code
Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim boxType As Long, answer As Integer
Set uidoc = ws.CurrentDocument
Dim con As New ODBCConnection
Dim qry As New ODBCQuery
Dim result As New ODBCResultSet
Set qry.Connection = con
doc = uidoc.FieldGetText("InventNumPC")
Set result.Query = qry
If con.ConnectTo("ACCESS","", "") Then
qry.SQL = "SELECT * FROM Objekte WHERE InvNr='" & doc & "'"
result.Execute
If Not result.IsResultSetAvailable Then
Messagebox "Es wurden keine Daten gefunden",, "No data"
Exit Sub
Else
'Daten auslesen und ggf. einfügen
End If
End If
End Sub
Alles anzeigen
Im dümmsten Fall ist mein QUERY falsch und dann kommt die Frage, wie würde der QUERY sonst aussehen?
:sunclaus:
HAPPY X-MAS