[ACCESS] VBA-SELECT * FROM users WHERE nom=nom AND password=password?

Marsh Posté le 26-07-2006 à 09:19:00

Bonjour,

J'ai realisé un formulaire sous access avec une connection a une base de données Mysql. tout fonctionne super, il me manque une protection de mon formulaire par mot de passe. Pour cela, j'ai un tableau "users" avec les entrées (id,nom,password)

je recupere a partir d'un petit formulaire le nom et le mot de passe de l'utilisateur, et je voudrais les comparer avec mes entrées dans la base, si je trouve une telle entrée l'utilisateur obtient une MsgBox et a accés à la suite du formulaire.

ma requête SQL est toute simple "SELECT * FROM users WHERE nom=nom AND password=password"
-comment faire cette verification avec VBA?
merci pour un coup de pouce.

voici mon code dur le bouton d'envoi:

Code :

Option Compare Database
Private Sub login_Click()
Call validEntry(name, passwort)
If check = False Then
MsgBox ("Falsche Eingabe" )
Else
On Error GoTo Err_login_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Hauptseite"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_login_Click:
Exit Sub
Err_login_Click:
MsgBox Err.Description
Resume Exit_login_Click
End If
End Sub
Public Function validEntry(textA As String, textB As String) As Boolean
Set check = False
If textB <> "" Then
If textA <> "" Then
validEntry = True
Exit Function
End If
End If
Dim DBS As DAO.Database, rst As DAO.Recordset
Set DBS = Application.CurrentDb
Set rst = DBS.OpenRecordset("SELECT * FROM aerzte WHERE " & _
"name=" & textA & " AND passwort=" & textB)
If rst.RecordCount <> 0 Then
validEntry = False
check = False
DoCmd.Close
MsgBox ("Falsche Eingabe" )
Else
validEntry = True
check = True
End If
End Function

Message édité par protoss_tth le 26-07-2006 à 12:17:39

Marsh Posté le 26-07-2006 à 09:19:00

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *