Discussion :

[tiph02]

Bonjour,
Je fais un programme qui permet de gérer des concours d'équitation.
J'ai deux tables :
Cavalier(NumLicence, NomC, PrenomC, AdrC, TelC, DateNC)
Cheval(NumSire, Nom, NumLicence#)

NumLicence clé etrangère de Cheval en relation avec NumLicence clé primaire de cavalier.

J'ai un formulaire qui permet de visualiser mes Chevaux, de modifier et supprimer.
Mais j'ai un problème.
A la visualisation je n'arrive pas a cibler le propriétaire qui correspond au cheval.
J'arrive a afficher toutes mes informations sauf le nom du proprio qui correspond.
Par contre j'arrive très bien a afficher tous les propriétaire dans cette zone de liste. Mais pour tous les chevaux ca affiche le premier propriétaire

J'arrive parfaitement a me connecter a ma base de données et a recupéré les données.

Voici ma méthode qui affiche mes chevaux :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Ecrirechevaux(ByVal numchev As Integer, ByVal numlicence As Integer)
        chevalenreg = maDTChev.Rows(numchev)
        Txtbnomchev.Text = chevalenreg("NumSire")
        Txtbnumsiret.Text = chevalenreg("Nom")
        proprioenreg = maDTProprio.Rows(numlicence)
        Cbxpropriochev.Text = proprioenreg("NomC")
 
    End Sub

Et voici le code qui permet de recupéré les données du cheval et du cavalier au chargement du formulaire:

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
Private Sub FrmVisuChevaux_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'CHARGEMENT DU FORMULAIRE
        Try
            maConnexion.Open()
            MsgBox("ok")
 
            sqlcheval = "select NumSire , Nom , NumLicence from Cheval"
            maCommandCheval.CommandText = sqlcheval
            maCommandCheval.Connection = maConnexion
            monDACheval.SelectCommand = maCommandCheval
            monDACheval.Fill(datasetcheval, "liste des chevaux")
            maDTChev = datasetcheval.Tables("liste des chevaux")
 
            sqlproprio = "select NumLicence , NomC , PrenomC from Cavalier"
            maCommandProprio.CommandText = sqlproprio
            maCommandProprio.Connection = maConnexion
            monDAProprio.SelectCommand = maCommandProprio
            monDAProprio.Fill(datasetproprio, "liste des proprio")
            maDTProprio = datasetproprio.Tables("liste des proprio")
            Cbxpropriochev.DataSource = maDTProprio
            Cbxpropriochev.ValueMember = "NumLicence"
            Cbxpropriochev.DisplayMember = "NomC"
 
            Ecrirechevaux(idchev, numlicence)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        maConnexion.Close()
    End Sub

Merci de vos reponses !

[Pol63]

une jointure
(INNER JOIN)

[Wapi_gui]

Bonjour,

En fait, quand tu fais ta requete pour afficher le nom du cavalier, tu ne donnes pas de condition. Essais quelque chose comme :

Code :

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

1
2
3
Select NumLicence, NomC, PrenomC 
From Cavalier inner join Cheval on Cheval.NumLicence = Cavalier.NumLicence
Where NumSire = numchev

[Sarawyn]

Voilà la requête qui affichera correctement les données voulues :

Code :

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

1
2
3
SELECT NumSire,Nom,NomC,PrenomC                          'Selection des champs à afficher
FROM Cavalier , Cheval                                   'Selection des tables concernées
Where Cheval.NumLicence = Cavalier.Numliscence           'Jointure entre les deux tables

Si un proprietaire possède plusieurs chevaux tu peux regrouper par propriétaires :

Code :

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

1
2
3
4
SELECT Cavalier.NumLicence,NomC,PrenomC,NumSire,Nom                          'Selection des champs à afficher
FROM Cavalier , Cheval                                   'Selection des tables concernées
WHERE Cheval.NumLicence = Cavalier.Numliscence           'Jointure entre les deux tables
GROUP BY Cavalier.NumLicence

Il ne te reste plus qu'a attribuer dans les chaînes tout en prennant soin bien sûr de tirer les commentaires :p

[Pol63]

n'empeche qu'un INNER JOIN c'est toujours mieux qu'un bricolage à l'ancienne dans le WHERE ...

[tiph02]

Bonjour,
Tous d'abord désolé de repondre aussi tard :s !
Ensuite j'ai opté pour la clause where !
Cela me donne sa !!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
sqlcheval = "SELECT NumSire,Nom,NomC,PrenomC FROM Cavalier, Cheval Where Cheval.NumLicence = Cavalier.Numlicence"
            maCommandCheval.CommandText = sqlcheval
            maCommandCheval.Connection = maConnexion
            monDACheval.SelectCommand = maCommandCheval
            monDACheval.Fill(datasetcheval, "liste des chevaux")
            maDTChev = datasetcheval.Tables("liste des chevaux")
 
            Cbxpropriochev.DataSource = maDTChev
            Cbxpropriochev.ValueMember = "NumLicence"
            Cbxpropriochev.DisplayMember = "NomC"
 
            Ecrirechevaux(idchev, numlicence)

Le problème est que j'ai besoin de 'NumLicence' dans mon select pour mon 'ValueMember', j'ai donc rajouter se champs dans mon select.

Le soucis est que quand je lance mon application il me met un message d'erreur qui est celui ci :

"Le champs spécifié 'NumLicence' peut désigner plusieurs tables listées dans la clause FROM de votre instriction SQL"

Merci de vos reponses

[Sarawyn]

"Le champs spécifié 'NumLicence' peut désigner plusieurs tables listées dans la clause FROM de votre instriction SQL"

En gros l'avertissement dit qu'il existe un champ 'NumLicence' dans plusieurs tables. Quand il éxecute la requête, le champ est ambigüe car il ne sais pas celui de quelle table prendre. Précise juste le nom de la table

Exemple : NumLicence de la table cavalier = Cavalier.NumLicence

Il suffit donc de remplacer

Code :

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

Cbxpropriochev.ValueMember = "NumLicence"

par

Code :

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

Cbxpropriochev.ValueMember = "Cavalier.NumLicence"

[tiph02]

D'accord merci de tes explications !!! : D

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
sqlcheval = "SELECT NumSire,Nom,NomC,PrenomC,NumLicence FROM Cavalier, Cheval Where Cheval.NumLicence = Cavalier.Numlicence"
            maCommandCheval.CommandText = sqlcheval
            maCommandCheval.Connection = maConnexion
            monDACheval.SelectCommand = maCommandCheval
            monDACheval.Fill(datasetcheval, "liste des chevaux")
            maDTChev = datasetcheval.Tables("liste des chevaux")
 
            Cbxpropriochev.DataSource = maDTChev
            Cbxpropriochev.ValueMember = "Cavalier.NumLicence"
            Cbxpropriochev.DisplayMember = "NomC"
 
            Ecrirechevaux(idchev, numlicence)

J'ai fais comme tu me l'a dit mais il est toujours pas content. Il m'affiche le même message d'erreur... :/

[Sarawyn]

Si c'est toujours le même message d'erreur, c'est toujours une ambiguité.

Le seul endroit restant ou il peut y en avoir une est dans ton select.

Code :

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

sqlcheval = "SELECT NumSire,Nom,NomC,PrenomC,NumLicence FROM Cavalier, Cheval Where Cheval.NumLicence = Cavalier.Numlicence"

Comme tu fais ici la jointure, dans ton select tu devras aussi préciser la table :

Essaye de remplacer :

Code :

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

SELECT NumSire,Nom,NomC,PrenomC,NumLicence FROM Cavalier, Cheval Where Cheval.NumLicence = Cavalier.Numlicence

Par :

Code :

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

SELECT NumSire,Nom,NomC,PrenomC,Cavalier.NumLicence FROM Cavalier, Cheval Where Cheval.NumLicence = Cavalier.Numlicence

(J'ai souligné les modifications)
Si cela ne marche pas, j'avoue que je sèche sur l'erreur d'ambiguité

[tiph02]

Je me suis effectivement dit la même chose que toi !
Et j'ai rajouter Cavalier.NumLicence

Et.........

Un nouveau message d'erreur !!! Différent par contre.

"Impossible de créer une liste enfant pour le champ Cavalier."

Et quand je "valide le message d'erreur" il m'affiche mon interface graphique ou il est sensé m'afficher mes chevaux et dans la zone de liste de mes propriétaire il y a "System.Data.DataRowView"

Si sa peut t'aider :s

[Wapi_gui]

Oui, en fait, il faut que tu mettes

Code :

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

SELECT NumSire,Nom,NomC,PrenomC,Cavalier.NumLicence FROM Cavalier, Cheval Where Cheval.NumLicence = Cavalier.Numlicence

puis

Code :

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

1
2
3
Cbxpropriochev.DataSource = maDTChev
Cbxpropriochev.ValueMember = "NumLicence"
Cbxpropriochev.DisplayMember = "NomC"

Parce qu'il y a ambiquïté uniquement dans ta requete, pas dans la définition de ta combo...