listbox textbox et base de donnee local

Version imprimable

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:

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

Citation:

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

MErci pour votre aide

09/04/2011, 20h36
tomlev

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

Code:

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

Merci pour ton aide

voici le code que j'ai modifier

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

09/04/2011, 20h59
tomlev

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 :?
09/04/2011, 22h10
AcideBlood

si je mais le Where sa ne marche pas.
09/04/2011, 22h53
tomlev

Citation:

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

Mais comme je ne sais toujours pas ce que tu veux faire, je ne peux pas te dire quoi mettre dans le Where...
09/04/2011, 23h50
AcideBlood

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
10/04/2011, 00h11
tomlev

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:

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...)

Bonsoir

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

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.

12/04/2011, 21h03
tomlev

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...
12/04/2011, 21h14
AcideBlood

ok , je vire le listbox.select , mais avec le where j'obtiens rien. :s
12/04/2011, 22h00
tomlev
Citation:

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
12/04/2011, 22h21
AcideBlood

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.

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:

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:

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:

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:

1 2 Dim x = CType(listBox1.SelectedItem, DeuxHuitRow) TextBox10.Text = x.info
Au fait, pourquoi ta table s'appelle "DeuxHuit" ? :koi:
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 :?

Salut :)

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

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

13/04/2011, 17h05
AcideBlood

pour les autres informations je n'est pas de clef primaire.
13/04/2011, 17h09
tomlev

Citation:

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
13/04/2011, 17h53
AcideBlood

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

Citation:

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.

:?
13/04/2011, 20h06
tomlev

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.
19/04/2011, 08h05
AcideBlood

Bonjour

Voila sa marche niquel, j'ai refait tout le programme, j'ai mais clefs unique pour mes 2 tables.

Merci pour ton aide.
19/04/2011, 09h40
tomlev

N'oublie pas de marquer le sujet comme :resolu: alors ;)
(bouton en bas de la page)