checkbox dans un formulaire en vb.net

Version imprimable

2 pièce(s) jointe(s)

Bonjour,
dans un formulaire de gestion de salles je veux faire un test de 2 radio bouttons , et que le 1er soit coché par defaut (tt en affichant la liste des salles ), genre le 1er qui s'appele internes soit coché par defaut et quand je clique sur le 2eme (externes) ca m'affiche la liste des salles externes , je travaille sur SQL server 2008 et Visual Studio 2005 .

matable est dbo.tblsalle avec (idSalle, Salle, Capacite, estExterne, ordre, dateStart, dateEnd )

donc en gros je veux faire le test de chechbox et afficher les infos suivantes ( Salles externes, capacité , dateDèbut , dateFin)dans un DataGridView

est ce que je dois faire l'affichege deja de ces infos ou bien je fais le test d'abord , comment dois-je faire ? des solutions .

Sinon j'ai deja commencé ca :

Code:

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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
 
Imports System.Data.SqlClient
Imports System.data
 
Public Class frmGestionSalles
    'variables de connexion
    Public connexion As New SQLConnexion
    Public commande As New SQLCommande
 
    'variables indiquant par la suite si on clique sur ajouter ou modifier
    Public ajouter As Boolean = False
    Public modifier As Boolean = False
 
 
    Dim formLoad As Boolean
    Dim dtreader As SqlDataReader
    Dim cRow As Integer = 0
    Dim tsi As Integer = 0
    ' Dim formLoad As Boolean
 
 
    Private Sub frmGestionSalles_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 
 
        'connexion.connexion()
        formLoad = True
        dtreader = commande.requete("SELECT idsalle, Salle, Capacite FROM dbo.tblSalle ORDER BY Nom ASC", connexion)
 
        Dim DTtable As New DataTable("table_liste_salles")
 
        Try
 
            DTtable.Load(dtreader)
            DGV_liste_salles.DataSource = DTtable
 
            DGV_liste_salles.Columns(0).Visible = False
 
            dtreader.Close()
            initialise_salle()
            formLoad = False
 
        Catch e1 As Exception
            Console.WriteLine("L'erreur suivante a été rencontrée :e1:" & e1.Message)
 
        End Try
 
 
    End Sub
    Private Sub Panel_liste_salles_click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        initialise_salle()
    End Sub
 
 
    Private Sub initialise_salle()
 
 
        If formLoad = True Then
            cRow = 0
            tsi = 0
        Else
            ' on regarde quelle est la ligne de la liste
            If DGV_liste_salles.CurrentRow Is Nothing Then
                cRow = 0
                tsi = Tableau.SelectedIndex
            Else
                cRow = DGV_liste_salles.CurrentRow.Index
                tsi = Tableau.SelectedIndex
            End If
        End If
 
 
 
    End Sub
 
    Private Sub DGV_liste_salles_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DGV_liste_salles.Click
 
    End Sub
 
 
    Private Sub Bt_fermer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_fermer.Click, Bt_fermer.Click
 
        Application.Exit() ' Fermer l'application
 
    End Sub
 
 
 
    Private Sub Bt_ajouter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_ajouter.Click
 
 
    End Sub
 
    Private Sub Bt_modifier_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_modifier.Click
 
    End Sub
 
    Private Sub Bt_supprimer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_supprimer.Click
 
    End Sub
 
 
 
 
    Private Sub Rb_internes_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rb_internes.CheckedChanged
        ' Rb_internes : salles internes
 
        Dim Salles_internes As Boolean
 
        Salles_internes = Rb_internes.Checked
        connexion.connexion()
    End Sub
 
 
    Private Sub Rb_externes_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rb_externes.CheckedChanged
        ' Rb_internes : salles externes
        Dim Salles_externes As Boolean
 
        Salles_externes = Rb_externes.Checked
        connexion.connexion()
    End Sub
 
 
End Class

PS : images expliquant tous (check radio bouttons)

Salut,

Pour que ton RadioBouton "Interne" soit coché au démarrage, il aut que tu fasses :
Code:

1 2 3 4 5 Private Sub frmGestionSalles_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load RbInterne.checked = True End Sub

03/06/2009, 16h38
emayen01
Citation:
Envoyé par Wapi_gui

Salut,

Pour que ton RadioBouton "Interne" soit coché au démarrage, il aut que tu fasses :

Code:

1 2 3 4 5 Private Sub frmGestionSalles_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load RbInterne.checked = True End Sub
Salut merci mais la j'ai un probleme , j'arrive pas a afficher la liste des salles dans le datagridview ?

Citation:

Envoyé par emayen01

Salut merci mais la j'ai un probleme , j'arrive pas a afficher la liste des salles dans le datagridview ?

je viends aux nouvelles , j'ai reussi a afficher mes données de la BDD dans mon datagridview mais j'arrive pas a faire le test des radio bouttons pour les salles internes et salles externes :(

Code:

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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
Imports System.Data.SqlClient
Imports System.data
 
Public Class frmGestionSalles
    'variables de connexion
    Public connexion As New SQLConnexion
    Public commande As New SQLCommande
 
    'variables indiquant par la suite si on clique sur ajouter ou modifier
    Public ajouter As Boolean = False
    Public modifier As Boolean = False
 
 
    Dim dtreader As SqlDataReader
    Public connec As New SQLConnexion
    Dim currentid As Integer
 
    Private Sub frmGestionSalles_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 
        Rb_internes.Checked = True
               afficher()
 
    End Sub
 
 
 
    Private Function getCurrentId() As Integer
        Dim crow As Integer 'le numéro de la ligne courante
        crow = DGV_liste_salles.CurrentRow.Index
        'récupèree l'id de la ligne sélectionnée
        currentid = DGV_liste_salles.Rows(crow).Cells(1).FormattedValue.ToString().ToUpper
        Return currentid
 
    End Function
 
    Private Sub afficher()
 
        Dim DTtable As New DataTable("datatable")
        Try
 
            dtreader = commande.requete("SELECT  Salle, Capacite, estExterne as 'Salles externes', dateStart as 'Date début', dateEnd as 'Date Fin' FROM dbo.tblSalle ", connec)
            DTtable.Load(dtreader)
            DGV_liste_salles.DataSource = DTtable
 
 
            dtreader.Close()
 
        Catch ex As Exception
            MsgBox("Erreur au chargement")
        End Try
 
    End Sub
 
    Private Sub Bt_fermer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_fermer.Click, Bt_fermer.Click
 
        Application.Exit()
 
    End Sub
 
 
 
    Private Sub Bt_ajouter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_ajouter.Click
 
 
    End Sub
 
    Private Sub Bt_modifier_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_modifier.Click
 
    End Sub
 
    Private Sub Bt_supprimer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_supprimer.Click
 
    End Sub
 
 
 
End Class

Merci d'avance

04/06/2009, 14h23
Wapi_gui

Excuses-moi, mais je n'ai pas compris où se situe ton problème... dans l'affichage des données, ou bien au niveau de tes RadioButton... Pourrais-tu en dire un peu plus, s'il te plait ?

Citation:

Envoyé par Wapi_gui

Excuses-moi, mais je n'ai pas compris où se situe ton problème... dans l'affichage des données, ou bien au niveau de tes RadioButton... Pourrais-tu en dire un peu plus, s'il te plait ?

Bonjour,
j'ai corrigé pas mal d'erreurs , et j'ai résolu l'affichage des données dans mon DataGridView , par contre quand j'ajoute une salle , je dois preciser dans la procedure ajouter s'il s'agit d'une salle interne ou externe , je sais pas comment faire , sinon mes deux bouttons "modifier" et "supprimer" ne marchent pas , il reste juste un petit peu et ca marchera , merci

voila mon code :

Code:

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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
 
Imports System.Data.SqlClient
Imports System.data
 
Public Class frmGestionSalles
    'variables de connexion
    Public connexion As New SQLConnexion
    Public commande As New SQLCommande
 
    'variables indiquant par la suite si on clique sur ajouter ou modifier
    Public ajouter As Boolean = False
    Public modifier As Boolean = False
 
 
    Dim dtreader As SqlDataReader
    Public connec As New SQLConnexion
    Dim currentid As Integer
    Dim i_modifier As Integer = 0
 
    Private Sub frmGestionSalles_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Rb_internes.Checked = True
        afficher()
    End Sub
 
 
    Private Function getCurrentId() As Integer
        Dim crow As Integer = 1 'le numéro de la ligne courante
        crow = DGV_liste_salles.CurrentRow.Index
        'récupèree l'id de la ligne sélectionnée
        currentid = DGV_liste_salles.Rows(crow).Cells(1).FormattedValue.ToString().ToUpper
        Return currentid
 
    End Function
 
    Private Sub afficher()
 
        Dim DTtable As New DataTable("datatable")
        Try
 
            dtreader = commande.requete("SELECT salle as 'Salle internes', capacite, dateStart as 'Date Debut', dateEnd as 'Date Fin' FROM dbo.tblSalle where estExterne=0 ", connec)
            DTtable.Load(dtreader)
            DGV_liste_salles.DataSource = DTtable
 
            dtreader.Close()
            ' il faut rajouter une condition sur estExterne quand on coche salles externes
        Catch ex As Exception
            MsgBox("Erreur au chargement")
        End Try
 
    End Sub
 
    Private Sub Bt_fermer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_fermer.Click, Bt_fermer.Click
 
        Me.Close()
 
    End Sub
 
 
 
    Private Sub Bt_ajouter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_ajouter.Click
 
        Try
            Dim texte As String = Tb_salles.Text
            dtreader = commande.requete("INSERT dbo.tblSalle ( salle) VALUES ('" + texte + "')", connec)
            dtreader.Close()
            MsgBox("Une salle insérée")
            afficher()
        Catch ex As Exception
            MsgBox("Veuillez insérer une salle ")
        End Try
 
 
    End Sub
 
    Private Sub Bt_modifier_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_modifier.Click
 
        currentid = getCurrentId()
        Dim salle As String = ""
        If i_modifier = 0 Then
 
            Try
                dtreader = commande.requete("SELECT Salle FROM dbo.tblSalle WHERE idSalle=" & currentid, connec)
                Do While dtreader.Read
                    salle = dtreader.GetString(0)
                Loop
 
 
                DGV_liste_salles.Enabled = False
                Bt_ajouter.Enabled = False
                Bt_supprimer.Enabled = False
                Bt_fermer.Enabled = False
 
                Tb_salles.Text = salle
                i_modifier = 1
                dtreader.Close()
                Exit Sub
            Catch ex As Exception
                MsgBox("Erreur de modification")
            End Try
 
        ElseIf i_modifier = 1 Then
 
 
            Try
                salle = Tb_salles.Text
                dtreader = commande.requete("UPDATE dbo.tblsalle SET salle='" + salle + "' WHERE idSalle =" & currentid, connec)
                dtreader.Close()
                MsgBox("Updated successfully")
 
                afficher()
 
                DGV_liste_salles.Enabled = True
                Bt_supprimer.Enabled = True
                Bt_fermer.Enabled = True
                Bt_ajouter.Enabled = True
 
                i_modifier = 0
 
            Catch ex As Exception
                MsgBox("Error on update")
 
            End Try
        End If
 
    End Sub
 
    Private Sub Bt_supprimer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_supprimer.Click
 
        Try
            currentid = getCurrentId()
 
            dtreader = commande.requete("DELETE  FROM dbo.tblSalle WHERE idSalle = " & currentid, connec)
            dtreader.Close()
            MsgBox(" une salle a été supprimée")
            afficher()
        Catch ex As Exception
            MsgBox(" Veuillez sélectionner une salle")
        End Try
 
 
    End Sub
 
 
    Private Sub Rb_internes_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rb_internes.CheckedChanged
 
        Dim dtreader2 As SqlDataReader
        Dim dttable2 As New DataTable
        dtreader2 = commande.requete("SELECT salle as 'Salle internes', capacite ,dateStart as 'Date Debut', dateEnd as 'Date Fin' FROM dbo.tblSalle  WHERE estExterne=1 ", connexion)
        Dim DTtable As New DataTable("table_liste_salles_internes")
        Try
 
            DTtable2.Load(dtreader2)
            DGV_liste_salles.DataSource = DTtable2
            dtreader2.Close()
        Catch e2 As Exception
            Console.WriteLine("L'erreur suivante a été rencontrée :" & e2.Message)
 
        End Try
 
    End Sub
 
 
    Private Sub Rb_externes_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rb_externes.CheckedChanged
        Dim dtreader2 As SqlDataReader
        Dim dttable2 As New DataTable
        dtreader2 = commande.requete("SELECT salle as 'Salle externes', capacite ,dateStart as 'Date Debut', dateEnd as 'Date Fin' FROM dbo.tblSalle  WHERE estExterne=0 ", connexion)
        Dim DTtable As New DataTable("table_liste_salles_internes")
        Try
 
            DTtable2.Load(dtreader2)
            DGV_liste_salles.DataSource = DTtable2
            dtreader2.Close()
        Catch e2 As Exception
            Console.WriteLine("L'erreur suivante a été rencontrée :" & e2.Message)
 
        End Try
    End Sub
 
 
End Class

04/06/2009, 15h55
Wapi_gui

Tu ne peux pas mettre deux RadioButton à côté de ton textBox qui permet d'insérer une nouvelle salle ? En fonction du RadioButton coché, tu insert soit une salle interne, soit une salle externe... Non ?
04/06/2009, 16h09
emayen01

Citation:

Envoyé par Wapi_gui

Tu ne peux pas mettre deux RadioButton à côté de ton textBox qui permet d'insérer une nouvelle salle ? En fonction du RadioButton coché, tu insert soit une salle interne, soit une salle externe... Non ?

En fait pour le test des 2 radio-bouttons ca marche bien , mon probleme c'est que je veux quand j'insere une nouvelle salle dans "Private Sub Bt_ajouter_Click" , ajouter une condition dans ma requete :

Citation:

dtreader = commande.requete("INSERT dbo.tblSalle ( salle) VALUES ('" + texte + "')", connec)

je rapelle que dans ma table salle (idSalle, Salle, Capacite, estExterne, ordre, dateStart, dateEnd ) , le type de champ "estExterne " egale à "0" donc salle interne ou "1" donc salle externe .

voila