Discussion :

[atifo]

je realiser une application et je veux maintenant construire un form pour le user/login

le tableau utilisateur(nom_utilisateur, pwd_utilisateur)
dans le bouton ok_click j'ecrire ce 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
15
16
 
Set CnDATA = New ADODB.Connection
Set rst = New ADODB.Recordset
CnDATA.ConnectionString = "Provider=MSDASQL;DSN=INVENTAIRE_ENA;Description=SQL Server sur le serveur ATEF;UID=sa;PWD=sa;APP=Visual Basic;WSID=ATEF;DATABASE=INVENTAIRE_ENA;AutoTranslate=No"
CnDATA.Open
requete = "select * from T_INTERVENANT where NOM_INTERVENANT=' " & cbo_nom_intervenant.Text & "' and PWD_INTERVENANT='" & txt_mot_passe.Text & "'"
rst.Open requete, CnDATA
    If rst.EOF = True Then
        MsgBox "error user or login"
    cbo_nom_intervenant.Text = ""
    txt_mot_passe.Text = ""
    Else
         MDIForm1.Show
         Unload Me
 
    End If

mais toujours le programme affiche le message error user or login

[pc75]

Bonjour,

Pourquoi les espaces ?

Sinon :

Code :

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

1
2
 
requete = "select * from T_INTERVENANT where uCase(NOM_INTERVENANT) ='" & uCase(cbo_nom_intervenant.Text) & "' and uCase(PWD_INTERVENANT)='" & uCase(txt_mot_passe.Text) & "'"

[atifo]

APRES LA modification avec le reponse precedent
une autre message d'erreur m'affiche
"ucase n'est pas une foction connue"

[atifo]

je reussi dans ce probleme et 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
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub command1_Click()
Dim compteur  As Integer
 
CnDATA.ConnectionString = "Provider=MSDASQL;DSN=INVENTAIRE_ENA;Description=SQL Server sur le serveur ATEF;UID=sa;PWD=sa;APP=Visual Basic;WSID=ATEF;DATABASE=INVENTAIRE_ENA;AutoTranslate=No"
CnDATA.Open
Adodc1.CursorType = adOpenDynamic
Adodc1.CursorLocation = adUseClient
Adodc1.Refresh
sql = "select * from T_INTERVENANT where NOM_INTERVENANT ='" & cbo_nom_intervenant.Text & "' AND PWD_INTERVENANT='" & txt_mot_passe.Text & "'"
rs.Open sql, CnDATA
   If rs.EOF = True Then
 
            MsgBox "Verifier Votre nom et votre mot de passe ", 48, "Erreur"
    cbo_nom_intervenant.Text = ""
    txt_mot_passe.Text = ""
    rs.Close
    compteur = compteur + 1
      If compteur = 2 Then End
Else
 MDIForm1.Show
Unload Login
rs.Close
End If
CnDATA.Close
 
End Sub

mais maintenant je veux preciser le nombre de fois pour le saisie incorrecte par 2
j'ai creer un compteur qui incremente mais tjrs aucune action par cette compteur

merci de votre aide

[ProgElecT]

La variable compteur est remise a zéro à chaque entrée dans la Sub, donc elle ne peut pas atteindre 2.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Option Explicit
Dim compteur  As Integer
 
Private Sub Command1_Click()
'ou bien declarer la variable ici en static
'Static compteur  As Integer
CnDATA.ConnectionString = "Provider=MSDASQL;DSN=INVENTAIRE_ENA;Description=SQL Server sur le serveur ATEF;UID=sa;PWD=sa;APP=Visual Basic;WSID=ATEF;DATABASE=INVENTAIRE_ENA;AutoTranslate=No"
CnDATA.Open
Adodc1.CursorType = adOpenDynamic
Adodc1.CursorLocation = adUseClient
Adodc1.Refresh
sql = "select * from T_INTERVENANT where NOM_INTERVENANT ='" & UCase(cbo_nom_intervenant.Text) & "' AND PWD_INTERVENANT='" & UCase(txt_mot_passe.Text) & "'"
rs.Open sql, CnDATA
If rs.EOF = True Then
    MsgBox "Verifier Votre nom et votre mot de passe ", 48, "Erreur"
    cbo_nom_intervenant.Text = ""
    txt_mot_passe.Text = ""
    compteur = compteur + 1
    If compteur = 2 Then End
    Else
    MDIForm1.Show
    Unload Login
End If
rs.Close
CnDATA.Close
 
End Sub

[iclic]

Bonjour ProgElecT et atifo.

ProgElecT à raison,mais la façon de coder ,moi,je n'aime pas.
Je m"excuse atifo

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
If rs.EOF = True Then
    MsgBox "Verifier Votre nom et votre mot de passe ", 48, "Erreur"
    cbo_nom_intervenant.Text = ""
    txt_mot_passe.Text = ""
    compteur = compteur + 1
    If compteur = 2 Then End
    Else
    MDIForm1.Show
    Unload Login
End If

1.D'abord tu n'auras jamais 2
2. Un peu court de faire 'end sur un compteur de mot de passe simpliste
3.Ce n'est pas sur un msgbox que l'on teste mais sur un textbox où on peut mieux controler les entrées.

C'est mon avis, tu en fais ce que tu veux.

A+ cordialement

[pc75]

Re,

APRES LA modification avec le reponse precedent
une autre message d'erreur m'affiche
"ucase n'est pas une foction connue"

Un extrait de MSDN :

UCase, fonction


Renvoie une valeur de type Variant (String) contenant la chaîne indiquée, convertie en majuscules.

Syntaxe

UCase(string)

L'argument string peut être touteexpression de chaîne valide. Si l'argument string contient une valeur de typeNull, Null est renvoyé.

Remarques

Seules les lettres minuscules peuvent être converties en majuscules. Toutes les lettres majuscules et les caractères qui ne sont pas des lettres demeurent inchangés.