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

Version imprimable

Voir 40 message(s) de cette discussion en une page

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:

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:

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 !

27/05/2009, 15h21
Pol63

une jointure
(INNER JOIN)
27/05/2009, 15h28
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:

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

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

Code:

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:

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

28/05/2009, 10h16
Pol63

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

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

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 :

Citation:

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

Merci de vos reponses :)

02/06/2009, 12h42
Sarawyn

Citation:

"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:

Cbxpropriochev.ValueMember = "NumLicence"

par

Code:

Cbxpropriochev.ValueMember = "Cavalier.NumLicence"

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

Code:

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

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

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:

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

Par :

Code:

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é :(
02/06/2009, 13h18
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.

Citation:

"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
02/06/2009, 14h00
Wapi_gui
Oui, en fait, il faut que tu mettes

Code:

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

puis
Code:

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...
02/06/2009, 14h11
tiph02

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.

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

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'

02/06/2009, 14h34
tiph02

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

Code:

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.

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

Code:

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

02/06/2009, 14h53
tiph02

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

Citation:

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

:(

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:

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:

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.

02/06/2009, 15h21
tiph02

1 pièce(s) jointe(s)

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
02/06/2009, 15h21
Wapi_gui

Citation:

Envoyé par tiph02

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

Citation:

"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...:D
02/06/2009, 15h37
tiph02

Et bien tu avais raison mes types de données n'étaient pas les mêmes :/
Cependant nouveau problème :aie:!!
quand je lance mon application il me dit que :

Citation:

"Aucune ligne à la position 1"

:x

(Si tu veux que je te remette certain morceaux de code dit le moi !!!)

Voir 40 message(s) de cette discussion en une page