VB.NET Recupéré valeur de la BDD dans zone de liste

**tiph02** · 27/05/2009, 15h02

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** · 27/05/2009, 15h21

une jointure
(INNER JOIN)

**Wapi_gui** · 27/05/2009, 15h28

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** · 28/05/2009, 10h12

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** · 28/05/2009, 10h16

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

**tiph02** · 02/06/2009, 12h33

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** · 02/06/2009, 12h42

"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** · 02/06/2009, 12h46

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** · 02/06/2009, 13h07

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** · 02/06/2009, 13h18

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** · 02/06/2009, 14h00

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

**tiph02** · 02/06/2009, 14h11

Cela affiche bien mes chevaux mais il y a toujours le problème du propriétaire.
Par défaut c'est toujours le premier qui est affiché dans ma zone de liste. Alors que j'aimerai que le Nom du propriétaire s'affiche pour le bon cheval.

**Wapi_gui** · 02/06/2009, 14h29

Ah ben oui, c'est normal, tu ne le demande pas dans ta requete... Essayes donc ça :

Code :

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

1
2
3
4
SELECT NumSire,Nom,NomC,PrenomC,Cavalier.NumLicence 
FROM Cavalier, Cheval 
Where Cheval.NumLicence = Cavalier.Numlicence 
and Cheval.Nom = 'nom_du_cheval'

**tiph02** · 02/06/2009, 14h34

D'accord !
Par contre vu que je travail avec le numero du cheval je fais :

Code :

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

And Cheval.NumSire = idchev

Ou idchev est la variable qui prend le numero du cheval actuelle.
Sauf que je ne pense pas que l'on puisse mettre une variable dans une requête comme cela puisque cela ne marche pas lol.

**Wapi_gui** · 02/06/2009, 14h47

Si, en fait, ce qu'il faut que tu fasses pour envoyer ton paramètre, c'est :

Code :

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

1
2
3
4
5
Dim idchev as integer = 1
sqlcheval = "SELECT NumSire,Nom,NomC,PrenomC,Cavalier.NumLicence "
sqlcheval &= "FROM Cavalier, Cheval "
sqlcheval &= "Where Cheval.NumLicence = Cavalier.Numlicence "
sqlcheval &= "and Cheval.NumSire = " & idchev

**tiph02** · 02/06/2009, 14h53

En l'espace d'une après midi je crois que je vais faire tous les message d'erreur de visual studio lol

j'ai fais comme tu m'as dit et voici le nouveau !!

"Type de donnée incompatible dans l'expression du critère"

**Sarawyn** · 02/06/2009, 15h07

Si cela peut t'aider j'ai fait un programme qui permet de remplir un ComboBox grâce à une requête SQL (à partir d'un serveur MySQL).

En séléctionnant une valeur dans ce premier ComboBox, celle-ci sert de variable pour une seconde requête qui nourrit un second ComboBox :

Ici on choisi un emplacement, puis il fait un inventaire des switch situé dans l'emplacement séléctionné.

Je te laisse voir ma syntaxe de requête puis d'ajout dans un ComboBox car c'est ce que tu cherches à faire je crois.

Alimentation du ComboBox au chargement :

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
 
Public Class Chargement
 
    '---------------------------------------------------------------------
    'Déclaration des variables publiques utilisées pour les requêtes du formulaire
    '---------------------------------------------------------------------
    Dim message As String
    Dim indice As Integer
    Dim myConnection As New System.Data.Odbc.OdbcConnection
    Dim MyCommand As New System.Data.Odbc.OdbcCommand
    Dim enregistrer As New System.Data.Odbc.OdbcCommand
    Dim myReaderType As System.Data.Odbc.OdbcDataReader
 
            '---------------------------------------------------------------------
            'Définition de la chaîne de connection à la base de donnée Intranet
            '---------------------------------------------------------------------
 
            myConnection.ConnectionString = ConfigBDD.lbl_connectstring.Text
 
            '---------------------------------------------------------------------
            'Définition de la requête de séléction des types de switch actifs
            '---------------------------------------------------------------------
 
            MyCommand.CommandText = "select distinct modele_mat from materiel where type_mat ='ELEMENT_ACTIF' and sortie = 0 order by modele_mat asc"
 
            '---------------------------------------------------------------------
            'Execution de la requête de lecture de données et insertion dans le ComboBox Type de Switch
            '---------------------------------------------------------------------
            MyCommand.Connection = myConnection
            MyCommand.Connection.Open()
            myReaderType = MyCommand.ExecuteReader(CommandBehavior.CloseConnection)
            If myReaderType.HasRows = True Then
                While myReaderType.Read
                    Combo_typeselection.Items.Add(myReaderType.GetString(0))
                End While
            End If
            MyCommand.Connection.Close()
 
            '---------------------------------------------------------------------
            'Définition de la requête de séléction des emplacement
            '---------------------------------------------------------------------
            MyCommand.CommandText = "select distinct Localisation from materiel where type_mat ='ELEMENT_ACTIF'and sortie = 0 order by Localisation asc"
 
            '---------------------------------------------------------------------
            'Execution de la requête de lecture de données et insertion dans le ComboBox Emplacement
            '---------------------------------------------------------------------
            MyCommand.Connection = myConnection
            MyCommand.Connection.Open()
            myReaderType = MyCommand.ExecuteReader(CommandBehavior.CloseConnection)
            If myReaderType.HasRows = True Then
                While myReaderType.Read
                    Combo_emplacement.Items.Add(myReaderType.GetString(0))
                End While
            End If
            MyCommand.Connection.Close()

Puis Remplissage du second ComboBox en fonction du premier :

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
 
            '---------------------------------------------------------------------
            'Définition de la requête de séléction des modèles en fonction de l'emplacement
            '---------------------------------------------------------------------
 
            MyCommand.CommandText = "select distinct modele_mat from materiel where type_mat ='ELEMENT_ACTIF' and sortie = 0 and localisation = '" & Combo_emplacement.Text & "' group by modele_mat order by modele_mat asc"
 
            '---------------------------------------------------------------------
            'Execution de la requête de lecture de données et insertion dans le ComboBox typeparLoca
            '---------------------------------------------------------------------
            MyCommand.Connection = myConnection
            MyCommand.Connection.Open()
            myReaderType = MyCommand.ExecuteReader(CommandBehavior.CloseConnection)
            If myReaderType.HasRows = True Then
                While myReaderType.Read
                    Combo_typeparloca.Items.Add(myReaderType.GetString(0))
                End While
            End If
            MyCommand.Connection.Close()

En esperant que la syntaxe pourra t'aider.

Avec cette methode je pense que myReaderType t'aidera à récuperer tes données sans avoir d'erreurs de type.

**tiph02** · 02/06/2009, 15h21

Je ne crois pas que c'est sa sauf si j'ai très mal compris ton application.
Je vais ré-expliquer au cas ou !!
En fait voici mon interface graphique ou je visualise mes chevaux.
Chaque cheval appartient a un propriétaire et en fait ses propriétaire apparaisse donc ma zone de liste.
Pour le moment j'ai 3 chevaux enregistré dans la base de données 2 appartienne au propriétaire Rouzaud et 1 au propriétaire Gauthier. Il m'affiche bien les propriétaire ciblé sauf que c'est toujours le premier qui est affiché par defaut alors que j'aimerai que se soit le bon

**Wapi_gui** · 02/06/2009, 15h21

Envoyé par tiph02

j'ai fais comme tu m'as dit et voici le nouveau !!

"Type de donnée incompatible dans l'expression du critère"

Donc... ça veut dire que ce que tu envois n'est pas du même type que ce que tu reçois. Par exemple, tu envois un integer, et tu attends un string...
Il faut donc :
- que tu vérifies dans ta base de données, le type de données de NumSire
- que tu vérifies que tu envois bien le même type de données
Après si tu trouves rien, ben on cherchera ailleurs...