Zugriff auf geschützte Access-DB
10.09.2008 11:16:00
Franz
ich möchte aus meiner Excel-Userform auf eine Abfrage einer geschützten Access-Datenbank zugreifen! Für diese Datenbank wurde eine Arbeitgruppen-Informationsdatei angelegt und kann mit einer eingerichten Verknüpfung geöffnet werden. Name und Kennwort sind für den Zugriff auf die Datenbank bekannt. Wie kann ich jetzt aus meinem Excel-Userform auf eine Abfrage in der Datenbank zugreifen ?
Anbei mal mein Lösungsansatz.
Gruß Franz
Private Sub UserForm_Initialize()
Dim dbverbindung As New Connection
Dim rs As New Recordset
Dim mitarb As Worksheet
Dim sql As String
Dim i As Integer
Dim dbname As String
Dim path As String
'Variablen füllen
path = "C\Eigene Dateien:"
path = Application.ActiveWorkbook.path
dbname = "Test.mdb"
Set mitarb = ThisWorkbook.Worksheets(1)
'Initialisieren der Verbindung
dbverbindung.Open "provider = microsoft.jet.oledb.4.0;" _
& "Data Source = " & path & "\" & dbname
'SQL String definieren
sql = "SELECT Ort FROM abfr_allgemein"
'ORDER BY Kennz"
'Abfrage öffnen
rs.Open sql, dbverbindung
'Kombobox definieren
With Me.cbDaten
.ColumnCount = 1
.ColumnHeads = False
.ColumnWidths = "5cm"
End With
i = 0
While Not rs.EOF
Me.cbDaten.AddItem
Me.cbDaten.RowSource(i, 3) = rs!Ort
rs.MoveNext
i = i + 1
Wend
rs.Close
dbverbindung.Close
End Sub