Bonsoir à tous
Je suis débudante en programmation VB.net et j'aimerais avoir votre coup de main dans mon exercice

Enoncé

Nous proposons d’informatiser seulement une partie du système de gestion de la Fédération Internationale de Football Association (FIFA) pour les matches du coupe du monde.
Soit le modèle Relationnel suivant :

Equipe (NomE, TotalPoint, Classement, DateCreation)
Joueur (NumJ, NomJ, #NomE)
Match (NumM, DateM, #NumELocal, #NumEVisiteur,SaisonM)

Nous nous intéressons seulement à la partie de l’application permettant la gestion des données relatives aux matchs. La figure suivante met en évidence les différentes fonctionnalités assurées par cette partie.

Figure1


Il est évident que les boutons de commande de la form1, permettent la consultation, la modification, la suppression et l’ajout des matchs alors que le bouton quitter permet de revenir à la parie appelante de l’application. La figure2 décrit l’interface du processus Consulter Match suite à un clic sur le bouton Consulter Match, alors que la figure3 décrit l’interface relative à Modifier Match suite à un clic sur le bouton Modifier Match.

Figure2


Au niveau de la form2 (figure 2) l’utilisateur doit saisir le code du match puis cliquer sur Valider afin d’afficher les informations relatives au match en question.

Travail demandé
Ecrire le code nécessaire en vb.net permettant d’assurer cette fonctionnalité suite à un clic sur le bouton Valider.

Au niveau de la form3 (figure 3) l’utilisateur doit sélectionner le code du match dans un combobox (évidemment le combobox doit être rempli avec les codes de tous les matchs au moment du chargement de la form3). Une fois sélectionné, les informations relatives au match sont affichées. L’utilisateur peut alors modifier les champs qu’il veut. Une fois terminé, il peut cliquer sur Valider pour modifier le match ou bien Quitter pour retourner à l’application appelante

Figure 3


Travail demandé
Ecrire le code nécessaire en vb.net permettant d’assurer ces fonctionnalités suite à une sélection d’un code et un clic sur le bouton Valider.


Mon travail

Consulter clic
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
Private Sub Consulter_Click(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles Button1.Click
 
    TextBox1.Text = tableNumMatch.Rows(nbrligne).Item("NumMatch")
    conn.Open()
    cmd.CommandText = "select * from match where NumMatch=" & "'" 
    & TextBox1.Text & "'"
 
    dadapter.SelectCommand = cmd
    dadapter.Fill(dset, "Match")
    tableMatch = dset.Tables("Match")
    TextBox2.Text = tableMatch.Rows(0).Item("DateM")
    TextBox3.Text = tableMatch.Rows(0).Item("SaisonM")
    TextBox4.Text = tableMatch.Rows(0).Item("NumELocal")
    TextBox5.Text = tableMatch.Rows(0).Item("NumEVisiteur")
    conn.Close()
 
End Sub
Form3 Load
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
Private Sub Form3_Load(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles MyBase.Load
 
    Dim strcon As String = "data source=FIFA; user id=system ;password=pass"
    Dim strNumMatch As String = "select * from Match"
    conn = New OracleConnection
    conn.ConnectionString = strcon
    conn.Open()
    cmd = New OracleCommand
    cmd.Connection = conn
    cmd.CommandText = strNumMatch
    reader = cmd.ExecuteReader
    While reader.Read
        ComboBox1.Items.Add(reader.GetString(0))
    End While
    conn.Close()
End Sub
ComboBox
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
Private Sub ComboBox1_SelectedIndexChanged
(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles ComboBox1.SelectedIndexChanged
 
    Dim strcon As String = "data source=FIFA; user id=system ;password=pass"
        objetConnection = New SqlConnection
        objetConnection.ConnectionString = strConn
        objetConnection.Open()
        strsql1 = "select NumMatch from Match"
        objetCommand1 = New SqlCommand(strsql1)
        objetCommand1.Connection() = objetConnection
        objetCommand1.ExecuteScalar()
        objetDataAdapter1 = New SqlDataAdapter(objetCommand1)
        objetDataAdapter1.Fill(objetDataSet, "Match")
        ObjetCommandBuilder = New SqlCommandBuilder(objetDataAdapter1)
        objetConnection.Close()
    End Sub
End class
Modifier clic
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
Private Sub Modifier_Click(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles Button1.Click
 
    ligne = dset.Tables("Match").Rows(0)
    ligne("DateM") = TextBox2.Text
    ligne("SaisonM") = TextBox3.Text
    ligne("NumELocal") = TextBox4.Text
    ligne("NumEVisiteur") = TextBox5.Text
    Builder = New OracleCommandBuilder(dadapter)
    dadapter.Update(dset, "Match")
        MessageBox.Show("Enregistrement du Match Numero " & "'" 
        & TextBox1.Text & "'")
    dset.Clear()
    cmd.CommandText = "select NumMatch from Match"
    dadapter.SelectCommand = cmd
    dadapter.Fill(dset, "table1")
 
End Sub
 
 
Private Sub quitter_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button2.Click
 
    Form1.show()
 
End Sub
Comment afficher la liste des joueurs au niveau de la figure 2?

Merci pour votre aide