Connexion Application

Question

Je souhaite faire une application avec une connexion avec mot de passe et nom de login.
Je veux v&#233;rifier si le nom de login existe dans une table de ma base Access.
Je n'arrive pas &#224; ce que ca marche voici mon code : 

   Private Sub cmdOK_Click()
    Dim adoConnection As ADODB.Connection
    Dim adoRecordset As ADODB.Recordset
    Dim connectString As String
    Dim selection As String
    Dim wUser As String
    
    Set adoConnection = New ADODB.Connection
    Set adoRecordset = New ADODB.Recordset
    
    connectString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=\halley\gp$\GestionDeParc.mdb"
        
    adoConnection.Open connectString
    adoRecordset.Open "select NomIntervenant from Intervenant where NomIntervenant = '& txtUserName.Text &' ", adoConnection
    
    MsgBox "select"
 
    If Not (adoRecordset.RecordCount) Then
    MsgBox (txtUserName)
    'If txtUserName = "martin" Then
        'V&#233;rifie si le mot de passe est correct.
        If txtPassword = "password" Then
            ' Placer le code ici pour signaler
            ' &#224; la proc&#233;dure appelante la r&#233;ussite de la fonction.


             'D&#233;finir une variable globale est plus facile.
           LoginSucceeded = True
           Me.Hide
           Menu.Show
        Else
            MsgBox "Mot de passe non valide, r&#233;essayez !", , "Connexion"
            txtPassword.SetFocus
            SendKeys "{Home}+{End}"
        End If
        Else
            MsgBox "Nom d'utilisateur incorrect, r&#233;essayez"
    End If
    adoConnection.Close
    'adoRecordset.Close
End Sub

J'ai l'impression que le SELECT ne se fait pas bien et ne retourne rien. Peu importe le nom de login que je tape ce n'est jamais bon.J'ai chang&#233; &#224; plusieurs reprises le test mais je pense que le probl&#232;me se situe au niveau de la req&#234;te SQL.
Si vous avez une id&#233;e.
Merci

Starec · Answer

Salut,
 
1 - adoRecordset.Open "select NomIntervenant from Intervenant where NomIntervenant = "'& txtUserName.Text &' ", adoConnection : il manque d&#233;j&#224; une guillemet, 
je ferais :  

adoRecordset.Open "SELECT NomIntervenat FROM Intervenant WHERE NomIntervenat = '" & me.txtUserName.Text & "';",adoConnection

2 - Tu ouvres ton recordset sans avoir au pr&#233;alable dit que txtUserName.Text d'o&#249; il vient, donc automatiquement tu test sur une chaine vide, donc pas de donn&#233;es correspondante :
 
c'est une premi&#232;re approche

Starec

cs_guitooo · Answer

Merci,

En fait je voudrais tester si txtUserName que l'on rentre au clavier correspond au nom  d'intervenant que j'ai dans ma table mais je n'arrive pas &#224; savoir comment faire...

Tu saurais pas comment faire??

cs_guitooo · Answer

Salut,

Tes 2 syntaxes ne marchent pas il y a toujours une erreur.

Il n'y aurait pas quelqu'un qui a une id&#233;e...

Merci

Connexion Application

3 réponses

Discussions similaires