Discussion :

[aminepop]

je veux ouvrir un projet avec les mot de passe qui on stocké dans la base de donnée access
voila le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Set rc = New ADODB.Recordset
rc.Open "select * from conn", CON, 1, 2
 
 
If Text2.Text = rc.Fields(0) Then
    entrer.Show
    Unload Me
 
    Else
        MsgBox "Mot de passe invalid ! SVP Réssayez encore une fois.  ", vbCritical, ".:.:. Connexion .:.:."
 
    Text2.Text = ""
    Text2.SetFocus
    End If

rc c'est un adodb.recordset
conn c'est la table de la base de donnée


la table est deja ouvert

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Set CON = New ADODB.Connection
CON.Provider = "microsoft.jet.oledb.4.0"
CON.ConnectionString = App.Path & "\BDm.mdb"
CON.Open
Set rc = New ADODB.Recordset
rc.Open "conn", CON, adOpenDynamic, adLockOptimistic

quand je veux entrer avec le mot de passe j'entre juste avec Fields(0) c'est-a-dire le premier
alors comment faire pour entrer avec tout les mot de passe

[ProgElecT]

Il faut demander, avec un MsgBox eventuellement, à l'uilisateur, son mot de passe, puis avec cette entrée faire un from conn Where ChampsMotDePasse = ReponseMsgBox.
Si la base de données et ouverte pour un utilisateur, elle est ouverte pour n'importe quel personne venant ulterieurement utiliser la session ouverte.
Si tu veux ouvrire la base pour toutes personnes, tu ne demande pas de mot de passe, et par code du ouvre directement la connection a cette BD, et ne demande aucune confirmation d'ouverture.

motif de l'edit:
aminepop, Inscrit le mardi 15 janvier 2008, Total message: 33, discussions ouvertes: 10, Nbr.de TAGs utilisés: 1, moyenne: 10/100, ma partitipation jusqua ce post: 2
Il serait sympatique de suivre correctement tes questions posées

[aminepop]

la table de mot de passe bien sur est ouvert ainsi que la base de donnée
alors j'ai stocké 3 mot de passe et j'ai trois utilisateurs alors comme j'ai dit j'ai utilisais Fields(0) c'est-a-dire il vas entrer juste avec le premier utilisateur alors comment faire pour que les autres utilisateurs ouvrent l'application chacun avec son mot de passe !!

motif de l'edit:
aminepop, Inscrit le mardi 15 janvier 2008, Total message: 33, discussions ouvertes: 10, Nbr.de TAGs utilisés: 1, moyenne: 10/100, ma partitipation jusqua ce post: 2
Il serait sympatique de suivre correctement tes questions posées

oui je sais c'est une réponse indirecte merci mais tu sais je suis un peux perturbé alors aide moi
car j'ai la soutenance après demain et il faut que le prépare aussi alors pense a moi dans ce moment comment je suis lool!!
cordialement

[ProgElecT]

2 TextBoxs, un pour son nom, un pour son mot de passe, avec, faire une ouverture conditionnelle de la table conn avec une clause Where NomUtilisateur = Text1.Text and MotdePasseUtilisateur = Text2.Text, si la demande d'ouverture du recordset n'aboutit pas, c'est que le mot de passe n'est pas valide.

[aminepop]

merci pour la réponse
mais j'utilise pas le nom d'utilisateur
juste le mot de passe

eh si tu me comprend pas ma situation je peux reformuler la question

[ProgElecT]

1 TextBox pour demander le mot de passe, avec, faire une ouverture conditionnelle de la table conn avec une clause Where MotDePasse = Text1.Text, si la demande d'ouverture du recordset n'aboutit pas, c'est que le mot de passe n'est pas valide.

[aminepop]

Where MotDePasse = Text1.Text
au load ?
j'ai pas bien comprie tu peux écrire le code slp

[ProgElecT]

un truc du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Set rc = New ADODB.Recordset
rc.Open "select * from conn Where rc.Fields(0)=  " & Text2.Text , CON, 1, 2
 
If rc. EOF Then
    rc.close
    entrer.Show
    Unload Me
    Else
    MsgBox "Mot de passe invalid ! SVP Réssayez encore une fois.  ",  vbCritical, ".:.:. Connexion .:.:."
    Text2.Text = ""
    Text2.SetFocus
End If

[aminepop]

tu pense que sa

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

rc.Open "select * from conn Where rc.Fields(0)=  " & Text2.Text , CON, 1, 2

sa marche pas
Fonction non définie dans l'expression
rc.fields

[ProgElecT]

Desolé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

rc.Open "select * from conn Where NomDuChampMotDePasse =  " & Text1.Text , CON, 1, 2

[aminepop]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

rc.Open "select * from conn Where NomDuChampMotDePasse =  " & Text1.Text , CON, 1, 2

le nom de mon chang est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

mot_passe

il seras comme sa

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

rc.Open "select * from conn Where mot_passe=  " & Text1.Text , CON, 1, 2

mais c'est un objet requi

[SfJ5Rpw8]

C'est pas text2 .. pour toi ?

faudrai peu-être aussi penser à rajouter des quote : ' autour de ton mot de passe

[aminepop]

comme sa

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

rc.Open "select * from conn Where "mot_passe" = " & Text2.Text, CON, 1, 2

[SfJ5Rpw8]

comme sa

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

rc.Open "select * from conn Where 'mot_passe' = " & Text2.Text, CON, 1, 2

plutôt

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

rc.Open "select * from conn Where mot_passe = '" & Text2.Text & "'", CON, 1, 2

[aminepop]

oui c'est vrais mais il y a une erreur dans se cas il ouvert rien
car on dit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

rc.Open "select * from conn Where mot_passe = '" & Text2.Text & "'", CON, 1, 2

tu vois

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

mot_passe=' "

si je tape rien et je click sur entrer il vas entrer et si je tape un mot de passe parmi les mots de passe de la table conn il donne que le mot de passe est invalide

[SfJ5Rpw8]

oui c'est vrais mais il y a une erreur dans se cas il ouvert rien
car on dit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

rc.Open "select * from conn Where mot_passe = '" & Text2.Text & "'", CON, 1, 2

tu vois

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

mot_passe=' "

si je tape rien et je click sur entrer il vas entrer et si je tape un mot de passe parmi les mots de passe de la table conn il donne que le mot de passe est invalide

tu as testé ? cela donne quoi ?

[aminepop]

oui j'ai testé
quand je laisse la zone de mot de passe vide et je click sur entrer il entre mais quand je tape un mot de passe de la base de donnée il me dis que le mot de passe est invalid

[SfJ5Rpw8]

Tu as vérifié dans ta base de donnée que tu n'as aucun mot de passe "vide" ?

[aminepop]

oui les mots de passe son remplient
il y a trois
am
ami
amin

Si tu as une autre proposition c'est-a-dire un autre code propose moi

[SfJ5Rpw8]

à oui il y as une petite inversion dans le code plus haut:

modifie le test

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
If  rc.EOF Then
 ' ... ici , enregistrement introuvable d'ou mauvais mot de passe
else
' ... ici .. Mot de passe OK
 
endif