[VB.NET]: Problemi di connessione tra Combobox, Listbox e Datagridview

[SanMichele]

Buongiorno ragazzi,
vi chiedo una gentilezza, non riesco ben a capire dove sbaglio.
Ho una combobox con i nomi dei fornitori, una listbox che mi fa vedere tutti i codici del fornitore scelto e poi un datagridview che indica (in dettaglio) l'articolo del codice selezionato in listbox.

Qui di seguito i codici per tutti e tre i controlli.

Combobox:

conn.Open()
        Dim strnet As New OleDbCommand("Select distinct Codice_Articolo_CO from DB_ARTICOLI", conn)
        Dim myreader As OleDbDataReader = strnet.ExecuteReader
        Cbo_utente.Items.Clear()
        Lst_artic.Items.Clear()
While myreader.Read()
            Cbo_utente.Items.Add(myreader("Codice_Articolo_CO"))
            Cbo_utente.Text = ""
        End While
        conn.Close()

ListBox:

 conn.Open()
             Dim strnet1 As New OleDbCommand("Select Articolo from DB_ARTICOLI where  Codice_Articolo_CO='" + Cbo_utente.Text + "'", conn)
            Dim myreader1 As OleDbDataReader = strnet1.ExecuteReader
            Lst_artic.Items.Clear()
            Dtg_disponibilita_pv.Rows.Clear()
            While myreader1.Read()
                Lst_artic.Items.Add(myreader1("Articolo"))
            End While
            conn.Close()

Datagridview:

cmd = New OleDbCommand("Select Distinct * From DB_ARTICOLI Where Articolo='" + Lst_artic.Text + "'", conn)
            cmd.Parameters.AddWithValue("Articolo", Lst_artic.GetItemText(Lst_artic.SelectedValue))
            da.SelectCommand = cmd
            Dim dt3 As New DataTable
            dt3.Clear()
            da.Fill(dt3)
            Dtg_info_disponibilita.DataSource = dt3


            Lbl_totale_articolo.Text = sum.ToString()

Per quanto riguarda ComboBox e ListBox la connessione al DB è perfetto ma nel Datagridview mi fa vedere gli articoli anche di altri fornitori. Dove sbaglio?

Img1.png

Vi mando l'immagine per farvi capire meglio
grazie

[SirJo]

Mi sembra che l'errore sia ovvio
Sulla riga

cmd = New OleDbCommand("Select Distinct * From DB_ARTICOLI Where Articolo='" + Lst_artic.Text + "'", conn)

dov'è il filtro che vai a specificare di quale fornitore vuoi gli articoli ??

Come lo hai scritto tu estrae tutti gli articoli

Poi un altra considerazione:
Nel momento in cui fai le query, che cosa accade se nella variabile Cbo_utente.Text oppure in Lst_artic.Text c'è una stringa che contiene un apice ??
Ad esempio prova con

Cbo_utente.Text = "DALL'ALBA"

e dimmi cosa succede

[SanMichele]

Ciao SirJo
ma scusa il filtro non è già di per sè la listbox dove ci sono elencati i dati della colonna "Articolo"??
Intendo dire che in base all'articolo scelto nella listbox e il fornitore scelto nella combobox mi sembra che di filtri ce ne siano già abbastanza, ho provato piu' volte ma ahimè la mia conoscenza in vb.net è molto limitata e sicuramente, come dici tu, è ovvio ma non riesco a venirne fuori.
Grazie

[optime]

sei sicuro che Lst_artic.Text contenga esattamente l'articolo che ti serve?

[optime]

e poi:

cmd = New OleDbCommand("Select Distinct * From DB_ARTICOLI Where Articolo='" + Lst_artic.Text + "'", conn)
cmd.Parameters.AddWithValue("Articolo", Lst_artic.GetItemText(Lst_artic.SelectedValue))

metti l'articolo in due posti...

[SirJo]

Ciao SirJo
in base all'articolo scelto nella listbox e il fornitore scelto nella combobox mi sembra che di filtri ce ne siano già abbastanza

analizza questa riga:

cmd = New OleDbCommand("Select Distinct * From DB_ARTICOLI Where Articolo='" + Lst_artic.Text + "'", conn)

Stai estraendo dalla tabella DB_ARTICOLI i record che nel campo "Articolo" c'è scritto quello che è selezionato su Lst_artic, per cui li estrae tutti, indifferentemente dal fornitore, non hai messo il filtro che ti deve estrarre solo quelli di un determinatore fornitore.

E poi come ti ha detto giustamente optime devi togliere la riga

cmd.Parameters.AddWithValue("Articolo", Lst_artic.GetItemText(Lst_artic.SelectedValue)

che non serve a nulla

[SirJo]

..... sei riuscito a risolvere ???