Discussion :

[PsychoholicGirl]

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

[Sacha999]

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

Salut,

Tu récupères "NumELocal" et "NumEVisiteur", il te suffit pour chacune de ces "NumE" de faire un "SELECT NomJ FROM Joueur WHERE NomE = " et tu rajoute une fois la 1ere equipe et une fois la 2eme

[PsychoholicGirl]

Salut,

Tu récupères "NumELocal" et "NumEVisiteur", il te suffit pour chacune de ces "NumE" de faire un "SELECT NomJ FROM Joueur WHERE NomE = " et tu rajoute une fois la 1ere equipe et une fois la 2eme

Bonjour Sacha999,

Mon code est t'il correct?

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 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")
    cmd.CommandText = "SELECT NomJ from joueur WHERE 
    NomE= " & (NomELocal.text)
    cmd.CommandText = "SELECT NomJ from joueur WHERE 
    NomE= " & (NumEVisiteur.text)  
    reader = cmd.ExecuteReader
    While reader.Read
    ListBox1.Items.Add(reader.GetString(0))
    ListBox2.Items.Add(reader.GetString(0))
    conn.Close()
 
End While
End Sub

Merci pour votre aide

[hunteshiva]

Personnelement je travaille plus sur les DataSet
*pas très fan de toutes ces requêtes SQL ... *

tu peut faire comme sa aussi

1) tu charge toute ta table dans ton DataSet

2) tu parcours ton DataSet

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
           NbrLignes = tableMatch.Rows.Count
 
 
           For jj As Integer = 1 To NbrLignes
                'Si c'est une équipe locale
                if tableMatch.Rows(jj).Item("NumELocal") = .... then
                    TextBox4.Text = tableMatch.Rows(jj).Item("NumELocal")
                End If
 
                'Si ce sont les visiteurs
                if tableMatch.Rows(jj).Item("NumEVisiteur") = .... then
                    TextBox5.Text = tableMatch.Rows(jj).Item("NumEVisiteur")
                End If
 
            Next

je comprend pas vraiment ta logique sur ta Base ....
tu n'a pas d'équipes? juste un enregistrement de match?

en plus les "TextBox1","TextBox2","TextBox3","TextBox4" .... *c'est vraiment pas térrible pour la lecture du code ...*

tu pourrais mettre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
    txtDateM.Text = tableMatch.Rows(0).Item("DateM")
    txtSaisonM.Text = tableMatch.Rows(0).Item("SaisonM")
    txtNumELocal.Text = tableMatch.Rows(0).Item("NumELocal")
    txtNumEVisiteur.Text = tableMatch.Rows(0).Item("NumEVisiteur")

[PsychoholicGirl]

Un grand merci pour votre explication hunteshiva.

Est ce que j'ai pas besoin d'une ListBox pour remplir la liste de joueurs visiteurs et locaux?

Pouvez-vous m'aider SVP a faire Consulter clic avec DataSet?

Merci

[xian21]

Bonjour,

Je profite de ton post pour te demander comment tu as géré le passage d'une form a l'autre?
Est ce que tu ouvres toutes les forms en meme temps ou ferme tu l'as form1 avant d'ouvrir la form2? Et si oui comment as tu géré ca?

D'avance merci,

[hunteshiva]

Ben je comprend toujours pas comment marche ta Base de donnés ....
*ni même le reste .. c'est pas trés claire pour moi *

tu travaille dans quoi la? Ajouter ou Modifier un match?

tu peut me donner un aperçue de ta base aussi *stp*

je pense que je t'aiderais un peut plus demain *je débauche à 16h15 vive les stages dans le public *