Discussion :

[AcideBlood]

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]

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]

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]

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]

si je mais le Where sa ne marche pas.

[tomlev]

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