Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1440to1444
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Daten aus einer Accesdatenbank auslesen
17.08.2015 10:31:59
Theo
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten aus einer Accesdatenbank auslesen
17.08.2015 12:31:04
JoWE
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

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

AW: Danke für die Rückmeldung oT
17.08.2015 13:28:29
JoWE

343 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige