doublons dans combobox

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 ?

Bonjour,

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


Code ?

oui en effet désolé :

Code:

---

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:

---

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:

---

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

---

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

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

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.

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

Bonjour,

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

Code:

---

SELECT Distinct(RaisonSocialeFour) from fournisseur

---

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.

Moi aussi je pense que cela provient de la requête, ce n'est pas parce qu'elle marche de Acces qu'elle fonctionnera avec un autre driver (j'ai eu le problème en passant d'OleDb à un fournisseur IBM IDB2)

Personnellement je n'ai jamais mi de parenthèse sur un distinct, donc je le ferais comme ceci :

Code:

---

1 2	SELECT DISTINCT NumFournisseur, RaisonSocialeFour from fournisseur

---

Sinon concernant le code, j'utilise une méthode plus simple pour lier la datatable au combobox :

Code:

---

1 2 3 4

Me._taFournisseur.Fill(MonDataSet1.Fournisseur) Dim donneesFour As DataTable = _taFournisseur.GetData() Me.CbxFour.DataSource = donneesFour Me.CbxFour.DisplayMember = "NumFournisseur"

---

Pour la requête sql j'ai fais aussi sans parenthèse et sa ne change rien mais quand je fais ma requête avec le générateur de requête du dataset, et que j'exécute la requête le résultat est bon.
Pour ce qui est du code c'est vrai que c'est plus simple mais malheureusement sa ne change rien :(.

Bonjour,
j'ai fait un petit test sur la fameuse Northwind 2007.accdb.
J'ai choisi la table "Commandes" où les mêmes expéditeurs reviennent souvent.
La requête, directement sur la colonne voulue, comme le dit hariman, fonctionne bien et apparemment il n'y a pas de doublons dans le ComboBox.
Ici on passe par un DataView en se connectant à la BDD.

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

Private m_ConnectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\Northwind 2007.accdb;"   Public Function selectdistinct(ByVal Table As String) As DataView   Dim daTable As New OleDbDataAdapter Dim dtTable As New DataTable Dim sqlstring As String = "SELECT DISTINCT [Nom expédition] FROM " & Table   Using connection As New OleDbConnection(m_ConnectionString)   Dim command As New OleDbCommand(sqlstring, connection)   ' Open the connection and execute the insert command. Try connection.Open() command.ExecuteNonQuery()   daTable.SelectCommand = command daTable.Fill(dtTable)   Return New DataView(dtTable)   Catch ex As Exception Console.WriteLine(ex.Message) MessageBox.Show(ex.Message) Return Nothing   End Try End Using   End Function   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click   Me.CbxFour.DataSource = selectdistinct("Commandes") Me.CbxFour.DisplayMember = "Nom expédition"   End Sub

---

Après je ne sais pas si il faut passer par un DataSet ?

oui moi je fonctionne avec un dataset.

Il faudrait déjà voir si votre table contient des données pour savoir si c'est un problème de donnée ou de liaison au composant :

Code:

---

Debug.WriteLine("La table contient {0} lignes " & donneesFour.Rows.count)

---

Sinon je vous conseille fortement cette partie du cour du Dr P. Lasserre (et de le lire en entier) :
http://plasserre.developpez.com/cour...ees2#LXVII-F-1