listbox textbox et base de donnee local

**AcideBlood** · 09/04/2011, 18h27

bonjour voila j'ai un problème

j'ai une base de donnée un textbox1 et texbox2.

je tape une valeur dans mon textbox1 je clic sur le bouton qui exécute le code pour me connecter a ma DB et qui m'affiche la valeur qui correspond , maintenant je sélectionne cette item qui ce trouve dans ma listbox pour récupérer d'autre info qui se trouve dans ma DB mais je n'arrive pas a trouver le code a mettre pour faire celas ( sa fait 3 jour que je suis dessus).

voici le code entier:

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
Imports System.Data.Linq
Imports System.Data
Imports System.Data.DataSet
Imports System.Data.SqlClient
Imports System.Data.Common
 
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ListBox1.Items.Clear()
        'Extraction des données et chargement du DataSet
        DeuxHuit1TableAdapter1.Fill(Base1DataSet1.DeuxHuit)
        Dim query = From Article In Base1DataSet1.DeuxHuit.AsEnumerable() Where Article.Article = TextBox5.Text
        For Each P In query
            ListBox1.Items.Add(P.Nom.ToString)
        Next
    End Sub
 
    Private Sub ListBox1_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedValueChanged
        'Extraction des données et chargement du DataSet
        ListBox1.SelectedValue = ("")
        Dim query = From info In Base1DataSet1.DeuxHuit.AsEnumerable() Where info.Info.ToString
        For Each P In query
            TextBox10.Text = (P.info.ToString)
        Next
    End Sub
End Class

dans l’événement listbox1_selected sa me retourne sa comme erreure

La conversion de la chaîne "500 g" en type 'Boolean' n'est pas valide.

MErci pour votre aide

**tomlev** · 09/04/2011, 20h36

Bah la condition Where doit renvoyer une valeur booléenne (true/false), mais toi tu as écrit :

Code :

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

Where info.Info.ToString

ce qui n'a pas de sens... info.Info.ToString est une chaine de caractères, pas un booléen. Il doit manquer un bout de ta condition

**AcideBlood** · 09/04/2011, 20h52

Merci pour ton aide

voici le code que j'ai modifier

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
Imports System.Data.Linq
Imports System.Data
Imports System.Data.DataSet
Imports System.Data.SqlClient
Imports System.Data.Common
 
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ListBox1.Items.Clear()
        'Extraction des données et chargement du DataSet
        DeuxHuit1TableAdapter1.Fill(Base1DataSet1.DeuxHuit)
        Dim query = From Article In Base1DataSet1.DeuxHuit.AsEnumerable() Where Article.Article = TextBox5.Text
        For Each P In query
            ListBox1.Items.Add(P.Nom.ToString)
        Next
    End Sub
 
    Private Sub ListBox1_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedValueChanged
        Dim FPTableAdapter = New base1DataSetTableAdapters.DeuxHuitTableAdapter
        FPTableAdapter.Fill(Base1DataSet1.DeuxHuit)
        Dim query = From info In Base1DataSet1.DeuxHuit.AsEnumerable Select info
        For Each P In query
            TextBox10.Text = (P.info.ToString)
        Next
    End Sub
End Class

cette foie il me retourne une valeur mais le problème c'est qu'il me retourne mais 3 valeur de ma table Info et pas la valeur de l'item sélectionner dans ma listbox.

**tomlev** · 09/04/2011, 20h59

Ben là tu as complètement enlevé le Where, donc la requête renvoie toutes les lignes... je comprends pas ce que tu cherches à faire en fait

**AcideBlood** · 09/04/2011, 22h10

si je mais le Where sa ne marche pas.

**tomlev** · 09/04/2011, 22h53

Envoyé par AcideBlood

si je mais le Where sa ne marche pas.

Ca marche pas parce que ta condition n'est pas complète.

Enlever complètement le Where, c'est pas la solution : il n'était pas là pour faire joli je suppose... C'est comme si ton vélo avait un pneu crevé, et que plutôt que de réparer, tu enlevais la roue

Mais comme je ne sais toujours pas ce que tu veux faire, je ne peux pas te dire quoi mettre dans le Where...

**AcideBlood** · 09/04/2011, 23h50

bonsoir merci encore de ton aide

en fait je cherche a faire ceci :

je rentre une référence dans mon textbox1 qui recupére la ligne corespondante dans la base de donnée et qui m'affiche la Valeur Nom dans ma ListBox ( jusque la sa marche enfin je pense) une foie le listbox charger avec mais Nom, je sélectionne un item qui me Renvoie les Autre Valeur de ma database dans un Autre Texbox (pour le moment).

voila

**tomlev** · 10/04/2011, 00h11

Je suppose que pour toi c'est très clair, mais pour quelqu'un qui ne connait pas ton projet ça reste assez flou...

Enfin, si j'ai bien compris ce que tu veux faire, il faut que dans ta requête tu utilises la valeur sélectionnée de la ListBox

Donc ta requête dans le SelectedIndexChanged serait quelque chose comme ça :

Code :

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

Dim query = From info In Base1DataSet1.DeuxHuit.AsEnumerable() Where info.Info.ToString() = listBox1.SelectedItem.ToString()

(mais sans avoir plus de détails sur ton projet, je sais même pas si ce que j'ai écrit a un sens...)

**AcideBlood** · 12/04/2011, 20h11

Bonsoir

j'ai un peut avancé
voici les modif apporter a mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        DeuxHuitTableAdapter1.Fill(Base1DataSet1.DeuxHuit)
        Dim query = From DeuxHuit In Base1DataSet1.DeuxHuit.AsEnumerable() Select DeuxHuit.Info, ListBox1.SelectedItem Distinct
        Dim moncompteur As Int32 = 0
        For Each P In query
            TextBox10.Text = (P.Info.ToString())
            moncompteur += 1
        Next
        MessageBox.Show(moncompteur.ToString & " boucles")
    End Sub

j'obtiens 50g avec 2 boucles(les 2 boucles correspond a mais 2 Item dans ma listbox) mon problème c'est que si je sélectionne le première item il devrait juste afficher 500g avec 1 boucle ou 50g avec 1 boucle si le 2eme item est sélectionner. la il me liste les 2 ligne en même temps.

**tomlev** · 12/04/2011, 21h03

Si tu ne tiens pas compte de ce que je te dis je ne peux pas grand chose pour toi... Il n'y a toujours pas de Where dans ta requête, donc ça prend toutes les lignes. Et ça sert à rien de mettre le ListBox1.SelectedItem dans le Select, tu connais déjà sa valeur...

**AcideBlood** · 12/04/2011, 21h14

ok , je vire le listbox.select , mais avec le where j'obtiens rien. :s

**tomlev** · 12/04/2011, 22h00

Envoyé par AcideBlood

ok , je vire le listbox.select , mais avec le where j'obtiens rien. :s

bah c'est que ta condition doit pas être la bonne... mais je n'ai toujours pas les éléments pour savoir ce qu'il faut mettre exactement comme condition.

Bref, pour avancer, il faudrait que tu précises :

ce qu'il y a dans la ListBox
ce qu'il y a dans la table DeuxHuit
quel est le lien entre les 2

**AcideBlood** · 12/04/2011, 22h21

voici ma base de donnée:

RefCat nvarchar(100)
Nom nvarchar(100)
Client nvarchar(100)
RefExt nvarchar(100)
Article nvarchar(100)
Lieu nvarchar(100)
info nvarchar(100)

ils y a 3 ligne dans ma base( pour le moment)

ce qui ce trouve dans ma listbox c'est en fonction de ce que je demande via mon TextBox5, je rentre une référence d'un produit et il me sort la liste et quand je sélectionne ce produit dans la liste normalement il devrait me sortir les information lié a ce produit dans mon Textbox10 ( le problème que je rentre en ce moment)

Merci pour ton aide.

**tomlev** · 12/04/2011, 22h58

OK... Donc si j'ai bien compris la ListBox contient des noms de produit. Il faut donc que tu cherches dans ta table un produit dont le nom correspond à l'élément sélectionné :

Code :

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

1
2
3
4
Dim query = From p In Base1DataSet1.DeuxHuit.AsEnumerable() _
             Where p.Nom = listBox1.SelectedItem.ToString()
             Select p.Info
TextBox10.Text = query.FirstOrDefault()

Mais bon, d'une manière générale tu t'y prends vraiment de travers... Déjà, c'est pas génial de chercher par nom, vu qu'a priori le nom n'est pas unique. Quelle est la clé primaire de ta table ? RefCat ?

En supposant que ce soit RefCat, voilà ce que tu devrais faire :

- pour remplir la LIstBox, n'ajoute pas des chaines une par une. Utilise le data binding, ça permet d'ajouter automatiquement à la ListBox les données de la source, et ça permet aussi de garder toutes les infos des éléments, pas seulement le nom. Utilise DisplayMember pour indiquer la colonne à afficher, et ValueMember pour indiquer quel colonne sert d'identifiant :

Code :

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

1
2
3
4
Dim query = From Article In Base1DataSet1.DeuxHuit.AsEnumerable() Where Article.Article = TextBox5.Text
ListBox1.DataSource = query.ToLis()
ListBox1.DisplayMember = "Nom"
ListBox1.ValueMember = "RefCat"

- Ensuite, pour retrouver la référence de l'élément sélectionné, tu peux utiliser SelectedValue plutôt que SelectedItem : puisque ValueMember = "RefCat", SelectedValue renverra le RefCat de l'élément sélectionné.

Ensuite tu peux modifier la requête comme ça dans SelectedIndexChanged, de façon à chercher par la clé primaire plutôt que par le nom:

Code :

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

1
2
3
4
5
Dim refCat = CString(ListBox1.SelectedValue)
Dim query = From p In Base1DataSet1.DeuxHuit.AsEnumerable() _
             Where p.RefCat = refCat
             Select p.Info
TextBox10.Text = query.FirstOrDefault()

Soit dit en passant, en fait tu n'as même pas besoin d'une nouvelle requête, puisque les éléments de la liste sont déjà des produits :

Code :

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

1
2
Dim x = CType(listBox1.SelectedItem, DeuxHuitRow)
TextBox10.Text = x.info

Au fait, pourquoi ta table s'appelle "DeuxHuit" ?

Elle devrait pas plutôt s'appeler Article ou Produit ?

Et puis donne des vrais noms à tes contrôles, parce que les TextBox5, ListBox1, TextBox10 etc c'est vraiment pas très parlant

**AcideBlood** · 13/04/2011, 16h11

Salut

Héhé tu est mon sauveur ^^ sa marche niquel.

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
Imports System.Data
Imports System.Data.Linq
Imports System.Data.DataSet
Imports System.Data.SqlClient
Imports System.Data.Common
 
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Création d'un TableAdapter
        Dim FPTableAdapter = New base1DataSetTableAdapters.DeuxHuitTableAdapter
        'Extraction des données et chargement du DataSet
        FPTableAdapter.Fill(Base1DataSet1.DeuxHuit)
 
        ListBox1.Items.Clear()
        Dim query = From Article In Base1DataSet1.DeuxHuit.AsEnumerable() Where Article.Article = TextBox5.Text
        ListBox1.DataSource = query.ToList()
        ListBox1.DisplayMember = "Nom"
        ListBox1.ValueMember = "RefCat"
        ListBox1.ValueMember = "Client"
        ListBox1.ValueMember = "RefExt"
        ListBox1.ValueMember = "Article"
        ListBox1.ValueMember = "Lieu"
        ListBox1.ValueMember = "Info"
 
    End Sub
 
    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
 
        Dim x = CType(ListBox1.SelectedItem, base1DataSet.DeuxHuitRow)
        TextBox10.Text = x.info
    End Sub
End Class

je sélectionne l'un ou l'autre j'ai mais valeur distinct pour l'un ou l'autre.

Merci à Toi , c'est vrais que mon code ou ma base est pas très bien définit mais je revoie tout sa bientôt.

MErci encore à toi.

**AcideBlood** · 13/04/2011, 17h05

pour les autres informations je n'est pas de clef primaire.

**tomlev** · 13/04/2011, 17h09

Envoyé par AcideBlood

pour les autres informations je n'est pas de clef primaire.

Ben tu devrais y remédier en vitesse, c'est indispensable... D'une part ça garantit l'unicité des identifiants, et d'autre part ça permet d'accéder rapidement à chaque ligne. Sans ça, quand le volume de ta base va devenir plus important, les performances vont être catastrophiques

**AcideBlood** · 13/04/2011, 17h53

je vient de mètre ma colonne Article en clef Unique est j'ai sa comme message d'erreur

Impossible d'activer les contraintes. Une ou plusieurs lignes contiennent des valeurs qui violent les contraintes de type non null, unique ou de clé externe.

**tomlev** · 13/04/2011, 20h06

Bah ça veut dire que tu charges plusieurs lignes avec la même clé primaire dans ta DataTable... et que tu avais donc déjà des doublons ! Ils étaient déjà là avant, mais tu ne les détectais pas, ce qui n'est pas génial non plus comme situation. Si la colonne Article est supposée être unique, il faut que tu nettoies tes données pour que ce soit le cas.

D'ailleurs il faut définir la clé primaire dans la BDD, pas seulement dans la DataTable.