Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub btn_Connect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Connect.Click Dim Conn As New MySqlConnection("Server=102.8.1.35;uid=root;pwd=0000;Database=tcc-rh_vers1") Try Conn.Open() Dim Query As String = "SELECT groupe FROM COMPTE where user='" & txt_User.Text & _ "' AND password='" & txt_Pass.Text & "'" 'A noter que txt_User et txt_Pass sont deux textbox servant à l'authentification. Dim MySqlAdaper As New MySqlDataAdapter(Query, Conn) Dim UsersLevel As New DataTable MySqlAdaper.Fill(UsersLevel) If UsersLevel.Rows.Count = 0 Then MessageBox.Show("Le mot de passe et l'identifiant saisis sont invalides !", _ "Erreur d'authentification", _ MessageBoxButtons.OK, _ MessageBoxIcon.Exclamation) Else 'A noter ici que tu ne renseigne pas le type de données pour ce champ 'Comme tu le dis il y a deux niveau haut et bas, je vais donc considéré le champ comme un type String Dim Level As String = UsersLevel.Rows(0)!niveau If Level = "Haut" Then 'form2.show Else 'form3.show End If End If Catch MessageBox.Show("Echec de connection au server", _ "Echec de connexion", _ MessageBoxButtons.OK, _ MessageBoxIcon.Exclamation) Finally If Conn.State <> ConnectionState.Closed Then Conn.Close() End If End Try End Sub