Discussion :

[emayen01]

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 :

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
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)