Base de donnée et ListBox

Version imprimable

Bonjour a tous. Voila j'ai un problème avec l'affichage de ma base de donnée dans une ListBox. J'ai deux ListBox nommé ListeCLient et ListAffaireClient et aussi un TexteBox1 qui me sert temporairement a me donnée le NumeroCLient de ma ListCLient (c'était pour debogger mon programme).

Lors du chargement du programme je viens mettre la liste de mes clients via la database dans ma ListBox "ListeCLient". Puis lorsque je clique sur un client quelconque il m'affiche bien les affaires de mon client mais a l'affichage les affaires s'additionne dans ma ListeBox "ListeAffaireClient".

C'est a dire par exemple, 1er client contient AFF1 puis AFF2, client deux contient AFF3 puis AFF4. Lorsque je clique sur le premier client dans ListeClient, ListeAffaireClient affiche AFF1 et AFF2, puis lorsque je clique sur le deuxième client, il m'affiche AFF3, AFF4, AFF3 et AFF4 qu'alors il n'y en as que deux.Quel serait mon erreur dans mon code que voici
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 Private Sub ListeClient_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListeClient.SelectedIndexChanged If ListeClient.SelectedIndex <> -1 Then TextBox1.Text = CType(ListeClient.SelectedValue, String) End If strSql = "SELECT Affaires.* FROM Affaires" ObjetConnection = New OleDbConnection ObjetConnection.ConnectionString = strConn ObjetConnection.Open() ObjetCommand = New OleDbCommand(strSql) ObjetDataAdapter = New OleDbDataAdapter(ObjetCommand) ObjetCommand.Connection() = ObjetConnection ObjetDataAdapter.Fill(ObjetDataSet, "Affaires") ObjetDataTable = ObjetDataSet.Tables("Affaires") Dim i As Integer For i = 0 To ObjetDataSet.Tables("Affaires").Rows.Count - 1 ListeClient.SelectedItem = ObjetDataSet.Tables("Affaires").Rows ListeAffaireClient.DataSource = ObjetDataSet.Tables("Affaires") ListeAffaireClient.DisplayMember = TextBox1.Text Next i End Sub
Merci pour votre aide

24/01/2014, 22h46
Pol63
Citation:

Envoyé par Loic4891

Quel serait mon erreur dans mon code

je ne vois pas trop, je ne suis pas fan des dataset, mais c'est peut le fait que les variables soient utilisées plusieurs fois
essaye en faisant un nouveau dim sur dataset et datatable

en tout cas c'est pas génial
Code:

1 2 3 Handles ListeClient.SelectedIndexChanged + SELECT Affaires.* FROM Affaires
à chaque clic sur le listbox client tu va chargers toute la table ?

=>

Code:

select que les colonnes nécessaires si possible from Affaires WHERE IdClient = le client sélectionné dans le listbox client

ou alors tu charges toute la table une fois (donc pas ici) et tu filtres au moment de la lecture du datatable
25/01/2014, 12h09
Loic4891

3 pièce(s) jointe(s)

Bonjour et merci pour votre aide voila ce que j'ai actuellement avec mon code voir l'image Description.jpg

Et voici ce que je souhaite affiché, voir l'image Description2.jpg

Voici ma base de donnée, voir l'image Description3.jpg

Et donc je n'arrive a voir ou ce trouve mon erreur ou ce que je ne gère pas mais tous s'ajoute. J'ai essayé d'utiliser la fonction Clear() de ListBox mais il me fait une erreur. Voila

C'est bon, merci pour votre aide, vous aviez raison sur le faite de cliquer a chaque fois sur ma ListBox ListeClient je rechargeais a chaque fois ma Table et je pense que c'était aussi le problème. J'ai donc remonter quasiment tous mon code dans le Load de ma form et donc il me rest plus que :

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 Sub ECLogistique_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source= I:\Auto-Entrepreneur\Electro Concept Logistique\Electro Concept Logistique\ECLogistique.mdb;"
        strSql = "SELECT Client.* FROM Client ORDER BY NomSociete ASC"
        ObjetConnection = New OleDbConnection
        ObjetConnection.ConnectionString = strConn
        ObjetConnection.Open()
        ObjetCommand = New OleDbCommand(strSql)
        ObjetDataAdapter = New OleDbDataAdapter(ObjetCommand)
        ObjetCommand.Connection() = ObjetConnection
        ObjetDataAdapter.Fill(ObjetDataSet, "Client")
        ObjetDataTable = ObjetDataSet.Tables("Client")
 
        ListeClient.DisplayMember = "NomSociete" '& "Numerodeclient"
        ListeClient.ValueMember = "Numerodeclient"
        ListeClient.DataSource = ObjetDataSet.Tables("Client")
 
        strSql = "SELECT Affaires.* FROM Affaires"
        ObjetConnection = New OleDbConnection
        ObjetConnection.ConnectionString = strConn
        ObjetConnection.Open()
        ObjetCommand = New OleDbCommand(strSql)
        ObjetDataAdapter = New OleDbDataAdapter(ObjetCommand)
        ObjetCommand.Connection() = ObjetConnection
        ObjetDataAdapter.Fill(ObjetDataSet, "Affaires")
        ObjetDataTable = ObjetDataSet.Tables("Affaires")
 
        ListeAffaireClient.DataSource = ObjetDataSet.Tables("Affaires")
 
     End Sub
 
Private Sub ListeClient_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListeClient.SelectedIndexChanged
        If ListeClient.SelectedIndex <> -1 Then
            TextBox1.Text = CType(ListeClient.SelectedValue, String)
        End If
 
        ListeAffaireClient.DisplayMember = TextBox1.Text
    End Sub

Maintenant pensez vous qu'il serait possible de mettre dans ma ListeBox ListClient deux informations : NomSociete et Numerodeclient séparer par "-". Dans mon code vous verrez j'ai essayé de faire une concaténation mais il me donnais une erreur :

Code:

ListeClient.DisplayMember = "NomSociete" & "Numerodeclient"

25/01/2014, 16h34
Pol63

dans le select :
col 1 & ' ' & col2 as alias

et dans displaymember mettre alias
25/01/2014, 17h00
Loic4891

Citation:

Envoyé par Pol63

dans le select :
col 1 & ' ' & col2 as alias

et dans displaymember mettre alias

Merci c'est niquel cela fonctionne