Discussion :

[Naevis]

Salut à tous,

Je cherche depuis un bon moment. Sur VB.net, comment créer une page (form) avec un login et un mot de passe.
J'ai une base de donnée access ou j'ai pris des users et des mdp.
Ce que je souhaiterais, c'est pouvoir rentrer un login et un mdp et grâce à un contrôle (bouton), Il y a une vérification qui se fait.
J'ai cherché un peu mais pas de lumière au bout.
Après divers tests, j'ai décidé de tout mettre dans une listbox. et mettre une textbox au dessus.
Le truc qu'y a c'est que je ne sais pas comment faire pour que la textbox puisse lire les données (items) de la listbox et dire si c'est OK.
J'ai regardé rien que avec des textboxs mais sans succès.
Est-ce que quelqu'un pourrait m'aider???

Merci d'avance.

[tomlev]

Tu n'as pas du très bien chercher... c'est une question qui est très souvent posée, fais une recherche dans le forum.

A part ça, je ne comprends pas l'utilité d'une ListBox pour faire ça... a priori il faut juste une TextBox pour le nom, une autre pour le mot de passe, et un bouton "ok" qui va vérifier la validité du user/password. Non ?

[peregna2007]

Sur le forum, si tu veux qu'on puisse t'aider, il faudrait que tu soit le plus explicite possible. Comment on sait exactement ce que tu veux.
Concernant ton problème, je ne sais pas ce que tu veux afficher dans un textbox.

Maintenant je te propose de créér deux textbox(un pour le login et un pour le mot de passe). Ensuite deux boutons CONNECTER et DECONNECTER

Derrière le bouton connecter tu met 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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
Private Sub BtnAjout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAjout.Click
        Dim custConn As OleDb.OleDbConnection = New OleDb.OleDbConnection(connectstr)
        Dim mescomm As New OleDb.OleDbCommand
        Dim readUtilisat As OleDb.OleDbDataReader
 
        Dim Lemenup As New menup
 
        Try
            MonLogin = Trim(TextBox1.Text)
            MonPassWord = Trim(TextBox2.Text)
 
            'Teste du Super Administrateur
            If MonLogin = "SuPerAdmin" And MonPassWord = "MonPassWord" Then
                LaFonction = "Super Administrateur"
                Lemenup.Show()
                TextBox1.Text = ""
                TextBox2.Text = ""
            Else
                MonPassWord = Trim(crypte(TextBox2.Text, "C"))
                custConn.Open()
                mescomm.Connection = custConn
                mescomm.CommandType = CommandType.Text
                mescomm.CommandText = "select typeutilisat,loginutilisat,passwordutilisat from UTILISATEUR where loginutilisat= '" & MonLogin & "' and passwordutilisat= '" & MonPassWord & "'"
                readUtilisat = mescomm.ExecuteReader()
                If readUtilisat.Read Then
                    LaFonction = Trim(readUtilisat!typeutilisat)
                    Lemenup.Show()
                    TextBox1.Text = ""
                    TextBox2.Text = ""
                Else
                    MonCompteur = MonCompteur + 1
                    If MonCompteur = 3 Then
                        Me.Close()
                    Else
                        MsgBox("Revoyez votre login et votre mot de passe S.V.P. Il se peut que l'un soit erroné", MsgBoxStyle.OkOnly, "Vérification du Login et du Mot de passe")
                        TextBox1.Text = ""
                        TextBox2.Text = ""
                    End If
                End If
            End If
 
            custConn.Close()
        Catch
            MsgBox(Err.Description)
        Finally
        End Try
 
    End Sub