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

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [ACCESS] VBA-SELECT * FROM users WHERE nom=nom AND password=password?

protoss_tth

May the Code be with you

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

Publicité

FORUM HardWare.fr

Programmation

VB/VBA/VBS

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

Sujets relatifs
Manière la plus efficace d'effacer une liste d'options d'un select	Macro Solver sur VBA
Optimisation d'import de gros fichiers texte dans ACCESS	[vba access] controle créer à la volée avec evenement
[Access] Mettre à jour une zone de liste à partir d'un menu déroulant	VBA - DATE PB
[Access] Requete stockée : Nb de paramètres variables	[VB6]importation d'une virgule dans access
If (SELECT) then UPDATE ELSE INSERT ...	[Access] VBA récuperer données requête
Plus de sujets relatifs à : [ACCESS] VBA-SELECT * FROM users WHERE nom=nom AND password=password?

Page générée en 0.043 secondes