bonsoir a tous
monsouci c'est que je veux afficher les menus d'un mdi selon le type d'utilisateur j'ai fait ça
mais il me gére une erreur de type
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 con.Open() Dim cmd As OdbcCommand cmd = New OdbcCommand("select * from utilisateur where login_user=? and mot_passe_user=?", con) cmd.Parameters.AddWithValue("login_user", login.Text) cmd.Parameters.AddWithValue("mot_passe_user", mot_de_passe.Text) cmd.Connection = con Dim rs As OdbcDataReader rs = cmd.ExecuteReader() If rs.Read() Then MessageBox.Show("vous etes connectez mr " & rs.GetString(4)) 'If rs.GetString(2) = "a" Then ' Me.MdiParent.Menu.MenuItems(1).Visible = True ' Me.MdiParent.Menu.MenuItems(2).Visible = True ' Me.MdiParent.Menu.MenuItems(3).Visible = True ' Me.MdiParent.Menu.MenuItems(4).Visible = True ' Me.MdiParent.Menu.MenuItems(5).Visible = True 'Else ' Me.MdiParent.Menu.MenuItems(3).Visible = True ' Me.MdiParent.Menu.MenuItems(4).Visible = True 'End If Me.MdiParent.Menu.MenuItems(0).MenuItems(0).Text = "Déconnexion" Me.MdiParent.Text = (((Me.MdiParent.Text & " ------- Bienvenue ") + rs.GetString(5) & " ") + rs.GetString(3) & " ") + rs.GetString(4) & " ---------" Me.Close() con.Close() Else MessageBox.Show(Me, "Login ou Mot de passe invalide", "", MessageBoxButtons.OK, MessageBoxIcon.[Error]) End If
et merci d'avance pour vous reponsela réference d'objet n'est pas définit a un instance d'un objet
Partager