Discussion :

[Poupou61]

bonjour,

Avant de vous expliquer mon problème il faut que j'explique un bout de ma BDD :
donc j'ai une table fournisseur avec un numFour, CodeFour, RaisonSocialeFour ...
et la clé primaire c'est NumFour et CodeFour (un même fournisseur peu avoir plusieurs CodeFour je comprend pas trop pouquoi mais bon c'est comme sa...) et donc quand je charge la combobox avec RaisonSocialeFour il y a des noms qui reviennent. J'ai donc fais une nouvelle requête dans mon dataset avec un distinct sur le RaisonSocialeFour (Requête qui marche très bien dans Access, mais par contre quand je charge la combobox il n'y a plus rien.

Auriez-vous une idée d'où viens le problème svp ?

[asmduty]

Bonjour,

Ligne 16 dans ton if je présume
Ajoute i++-4


Code ?

[Poupou61]

oui en effet désolé :

Code :

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

1
2
3
4
5
6
7
8
9
        Me._taFournisseur.Fill(MonDataSet1.Fournisseur)
        Dim donneesFour As DataTable = _taFournisseur.GetData()
        Me.CbxFour.Items.Add(New Mylist("", 0))
        For Each Four As DataRow In donneesFour.Rows
            Dim itemlist As New Mylist
            itemlist.Name = Four("RaisonSocialeFour")
            itemlist.ItemData = Four("NumFournisseur")
            Me.CbxFour.Items.Add(itemlist)
        Next

donc sa c'est le code qui marche avec la requête de base de la table fournisseur du dataset mais qui m'affiche la raison sociale de certains fournisseurs en double voir plus.

donc après je créer une nouvelle requête dans mon dataset avec le distinct sur le numFournisseur :

Code :

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

1
2
SELECT Distinct(NumFournisseur), RaisonSocialeFour
from fournisseur

la requête dans access fonctionne très bien.

et donc je change pas grand chose après dans le chargement de la combobox :

Code :

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

1
2
3
4
5
6
7
8
9
        Me._taFournisseur.FillByRSFour(GenourobDataSet1.Fournisseur)
        Dim donneesFour As DataTable = _taFournisseur.GetDataByRSFour()
        Me.CbxFour.Items.Add(New Mylist("", 0))
        For Each Four As DataRow In donneesFour.Rows
            Dim itemlist As New Mylist
            itemlist.Name = Four("RaisonSocialeFour")
            itemlist.ItemData = Four("NumFournisseur")
            Me.CbxFour.Items.Add(itemlist)
        Next

[hunteshiva]

Bonjour,
petite question,
dans ta BDD, les fournisseurs sont-ils en double?
*si c'est le cas je me demande pourquoi *

Sinon c'est que tu ajoute plusieurs fois tes données sans faire attention.

[Poupou61]

la clé primaire est composé de NumFour ET CodeFour donc il y a la Raisonssociale du fournisseur reviens des fois forcement car comme je l'expliquais plus haut certains fournisseurs ont plusieurs CodeFour. donc quand je veux afficher la raisonsocialefour dnas ma combobox il y en a forcement en double et c'est la qu'est le problème.

[wakan]

Bonjour,
Vérifiez la configuration de votre méthode GetDataByRSFour.
Il doit il doit y avoir une propriété à mettre en reader.
Sinon sur le design en faisant click droit sur la méthode dans le datatable on peut avoir un aperçu des données de la requête.
Bonne chance.
A bientôt
wakan

[hariman]

Bonjour,

A mon avis, la requête doit être tout simplement :

Code :

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

SELECT Distinct(RaisonSocialeFour) from fournisseur

[Poupou61]

J'avais déjà essayé cette requête qui marche très bien aussi, et j'ai fais ces deux requête dans l'assistant et avec le générateur de requêtes et regarder les résultats qu'elles donnaient et les deux sont bonnes.
Donc je ne comprend pourquoi sa ne marche pas.