Daten aus einer Accesdatenbank auslesen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm TextBox MsgBox
Bild

Betrifft: Daten aus einer Accesdatenbank auslesen
von: Theo Spangenberger
Geschrieben am: 17.08.2015 10:31:59

Guten Morgen liebes Forum,
wie man aus dem Betreff schon erschließen kann, habe ich folgendes Anliegen:
Ich habe eine Userform, in die ich Username und Passwort eingebe. Diese würde ich gerne in einer Accesdatenbank hinterlegen (habe ich auch bereits). Jetzt möchte ich, nach Eingabe des Usernamens und des Passwortes in die Accesdatenbank "schauen" und überprüfen ob die Eingaben übereinstimmen. Ich will jetzt auch keine große Verschlüsselung bezüglich der Sicherheit, weil es sich um Passwörter handelt, sondern einfach nur auf die DB zugreifen und die Werte auslesen.
Habe schon ein bisschen recherchiert, hat mir leider alles nichts gebracht und da ihr so ein super Team seid, kann mir bestimmt jemand helfen ;)
Vielen Dank im Vorraus

Bild

Betrifft: AW: Daten aus einer Accesdatenbank auslesen
von: JoWE
Geschrieben am: 17.08.2015 12:31:04
Hallo Theo,
hier ein Beispiel (Verweis "Microsoft DAO 3.6 Object Library" aktivieren!!
Private Const Pfad = "C:\Daten\MeineDB.MDB" 'anpassen
Private ws As DAO.Workspace
Private db As DAO.Database
Private rs As DAO.Recordset

Sub GetAccessData()
    Dim i As Long
    Dim z As Long
    Set ws = DBEngine.Workspaces(0)
    Set db = ws.OpenDatabase(Pfad)
    strSQL = "Select * from UserDetails" 'Tabellenname anpassen
    Set rs = db.OpenRecordset(strSQL, dbOpenSnapshot)
    rs.MoveFirst
    With rs
        Do While Not .EOF
            If .Fields(0) = Me.textbox1 And .Fields(1) = Me.textbox2 Then
                MsgBox "OK!"
                GoTo akzeptiert
            End If
            .MoveNext
        Loop
    End With
    MsgBox "User nicht zugelassen!", vbExclamation + vbOKOnly
    Exit Sub
akzeptiert:
    Set rs = Nothing
    Set ws = Nothing
    Set db = Nothing
    'Deine weiteren Befehle
End Sub
Gruß
Jochen

Bild

Betrifft: AW: Daten aus einer Accesdatenbank auslesen
von: Theo Spangenberger
Geschrieben am: 17.08.2015 13:13:02
Hey Jochen!
Klappt einwandfrei, genau so hab ich mir das vorgestellt!!!
Vielen Dank! :)

Bild

Betrifft: AW: Danke für die Rückmeldung oT
von: JoWE
Geschrieben am: 17.08.2015 13:28:29


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Daten aus einer Accesdatenbank auslesen"