Hallo,
ich greife von Notes auf eine SQL-DB zu. Den entsprechenden Treiber usw habe ich mir eingerichtet. Die Connection ist da.
Wenn ich mir alle Tabellen anzeigen lassen möchte, bekomme ich einen NSD.
Erst die Sanduhr (sind ja auch viele Tabellen in dem Schema) und dann genau in dieser Zeile den NSD:
doc.tmpTab1 = con.ListTables()
Ich habe "doc.tmpTab1" auch mal durch eine Variable ersetzt vom Typ Variant, aber auch da gab es einen NSD.
Aus der Hilfe: "tables = con.ListTables("ATDB")"
Bedeutet das (ganz doof gefragt) übersetzt: Liste mir alle Tabellen aus dem Schema "ATDB" auf?
Wenn ich dort einen Parameter angebe, bekomme ich "" zurück.
Kann mir jemand helfen?
Das ist mein Code:
Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim UIDoc As NotesUIDocument
Dim doc As NotesDocument
Dim tabList As Variant
Dim con As New ODBCConnection
Dim cDataResource As String
Dim cAccountName As String
Set UIDoc=ws.CurrentDocument
Set doc=UIDoc.Document
cDataResource=UIDoc.FieldGetText("DataResource")
cAccountName=UIDoc.FieldGetText("UserAccount")
If cDataResource="" Then
Msgbox "Sie haben noch keine Datenressource ausgwählt!" & Chr(13) & _
"Bitte wählen Sie eine aus.",,"Hinweis"
Exit Sub
End If
If PWEntered=False Then
Password=Inputbox("Bitte geben Sie das Paßwort zur Datenressoure ein","Eingabe")
PWEntered=True
End If
If con.ConnectTo(cDataResource,cAccountName,Password) Then
Dim tabellen As Variant
doc.tmpTab1 = con.ListTables()
Stop
con.Disconnect
Else
Msgbox "Kann keine Verbindung zu Datenressoure aufgebauen!" & Chr(13) & _
"Überprüfen Sie Name der Datenressoure, Benutzerkennung und Paßwort",,"Fehler"
End If
%REM
If PWEntered=False Then
Password=Inputbox("Bitte geben Sie das Paßwort zur Datenressoureein","Eingabe")
PWEntered=True
End If
%END REM
Call ws.Dialogbox("SelectTable",True,True,False,True,False,False,"Tabellen wählen")
End Sub
