Discussion :

[Marie_7]

Bonsoir
J'ai 2 formulaires(Form1 et Form2)
-La Form1 contient 2 zones de textes (login et mot de passe)
-La Form2 contient 2 boutons
et j'ai aussi une table access tab1 contenant (login, motpasse, bouton)
Si le login et le mot de passe sont correctes (existent dans la table tab1)---->Accéder à Form2
La première partie marche très bien mais j'ai un problème dans la deuxième partie qui est:
les boutons de la 2e Form sont inactif(enabled=false):
-Le 1e bouton devient actif si la colonne bouton de la table access contient 1(selon le login et le mot de passe tapés dans la Form1)
-et le 2e bouton devient actif si la colonne bouton de la table access contient 2

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        con.Open()
        Dim da As New OleDb.OleDbDataAdapter("select * from tab1 where login= '" & Form1.TextBox1.Text & "' and motpasse= '" & Form1.TextBox2.Text & "'", cnn)
        Dim ds As New DataSet
        da.Fill(ds)
        If Form1.TextBox1.Text = "????????" And Form1.TextBox2.Text = "????????????" Then
            Me.Button1.Enabled = True
        ElseIf Form1.TextBox1.Text = "?????????????" And Form1.TextBox2.Text = "???????????????," Then
            Me.Button2.Enabled = True
        End If
 
    End Sub

Merci de m'aider à resoudre ce problème

[rv26t]

Bonjour,

Il faut utiliser les requêtes paramétrées. Voir Tuto ou Faq.

Ensuite lorsque l'on recherche une seule information, il existe la méthode ExecuteScalar.

Donc ton code devrait ressembler à ceci (la méthode MAJBoutons est appelé dans le load).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Sub MAJBoutons()
        Using cn As New OleDbConnection("PROVIDER=Microsoft.ACE.OLEDB.12.0;Data Source =d:\data\personnes\personnes.accdb"), _
                                        cmd As New OleDbCommand("select LanguageId from personnes where NamePers = ?", cn)
            cmd.Parameters.AddWithValue("?", Me.txtbtn.Text)
            cn.Open()
            Try
                Dim num As Integer = Integer.Parse(cmd.ExecuteScalar())
                btn1.Enabled = (num = 1)
                btn2.Enabled = (num = 2)
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
        End Using
    End Sub

le code présenté est fait sur ma base de test, il faut donc adapter à ton cas, mais tu as le principe.