Discussion :

[snals]

bonjour
il y quelqu'un pour explique cet question
créer un formulaire contenant une grille qui affiche la liste des partis d'une Circonscription avec ,pour chaque parti , le nombre total de candidats enregistrés ; la Circonscription est choisie dans une liste déroulante

Code sql :

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
create table  Region (
idRegion int  primary key identity,
nomRegion varchar(50),
)
create table ProvincePrefecture (
idProvPref int primary key identity,
nomProvPref varchar(50),
idRegion  int  foreign key (idRegion) references  Region(idRegion)
)
create table  Circonscription (
idCirconscription int  primary key  identity,
nomCir varchar(50),
NombreSiege int,
idProvPref  int  foreign key (idProvPref) references  ProvincePrefecture(idProvPref)
)
create table Parti(
idParti  int primary key identity,
nomParti varchar(50) ,
)
create table Candidat (
CINcandidat varchar(20) primary key,
nomCandidat  varchar(50),
prenomCandidat varchar(50),
DateNC date,
adrCandidat varchar(50) ,
idCirconscription  int  foreign key (idCirconscription) references  Circonscription(idCirconscription),
idParti int  foreign key (idParti) references  Parti(idParti),
)
create table Electeur(
CINElecteur varchar(20) primary key,
nomElecteur varchar(50),
prenElecteur varchar(50),
dateNE  date,
adrElecteur varchar(50),
idCirconscription  int  foreign key (idCirconscription) references  Circonscription(idCirconscription),
)

mon essaye

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
Imports System.Data.SqlClient
Imports System.Data.Sql
Public Class Q3
 
    Private Sub Q3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim req As String = ("select *from dbo.Circonscription")
        Dim com As New SqlCommand(req, con)
        con.Open()
        dr = com.ExecuteReader
        While dr.Read
            ComboBox1.Items.Add(dr(0))
        End While
        con.Close()
    End Sub
 
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim req As String = ("select nomParti,count(dbo.Parti.idParti) as nombre_total_candidat_enreg from Parti inner join dbo.Candidat on dbo.Candidat.idParti=Parti.idParti where dbo.Candidat.idparti='" & ComboBox1.SelectedItem & "' group by nomParti")
        If ds.Tables.Contains("parti") Then
            ds.Tables("parti").Rows.Clear()
        End If
        da = New SqlDataAdapter(req, con)
        da.Fill(ds, "parti")
        DataGridView1.DataSource = ds.Tables("parti")
    End Sub
End Class

[Bluedeep]

Bonjour

Et quelle est la question ici ?

[snals]

la question est
créer un formulaire contenant une grille qui affiche la liste des partis d'une
Circonscription avec ,pour chaque parti , le nombre total de candidats enregistrés ; la Circonscription est choisie dans une liste déroulante
mais a ce que mon essayer est correct ou non

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
Imports System.Data.SqlClient
Imports System.Data.Sql
Public Class Q3
 
    Private Sub Q3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim req As String = ("select *from dbo.Circonscription")
        Dim com As New SqlCommand(req, con)
        con.Open()
        dr = com.ExecuteReader
        While dr.Read
            ComboBox1.Items.Add(dr(0))
        End While
        con.Close()
    End Sub
 
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim req As String = ("select nomParti,count(dbo.Parti.idParti) as nombre_total_candidat_enreg from Parti inner join dbo.Candidat on dbo.Candidat.idParti=Parti.idParti where dbo.Candidat.idparti='" & ComboBox1.SelectedItem & "' group by nomParti")
        If ds.Tables.Contains("parti") Then
            ds.Tables("parti").Rows.Clear()
        End If
        da = New SqlDataAdapter(req, con)
        da.Fill(ds, "parti")
        DataGridView1.DataSource = ds.Tables("parti")
    End Sub
End Class