VB et Access

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:

---

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

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:

---

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.