CaricamentoCombo in VB.NEt

[silvia11/12/80]

Ora ho un'altro problema devo fare un'altro progetto in VB_Net ma qui le mie conoscenze sono un pò scarse, ad esempio mi sto impicciando per caricare una stupida combo;

sql = "SELECT * FROM TipollogiaConoscenze"
Dim DataAd As New SqlDataAdapter(sql, Connessione)
Dim dataSet As DataSet
DataAd.Fill(dataSet)
Dim i
For i = 0 To dataSet.Tables(0).Rows.Count - 1
CBB_Tipologia.Items.Add(dataset.Tables(0).Rows(i)( )1)
Next
perchè??

[silvia11/12/80]

Ho trovato l'errore, ora devo sapere come faccio a prendere il valore della combo che seleziono??

[silvia11/12/80]

Questo è il modo in cui ho caricato il combo

Sub CaricaCombo()
Connessione.Open()
sql = "SELECT * FROM TipologiaConoscenze"
Dim DataAd As New SqlDataAdapter(sql, Connessione)
Dim dataSet As New DataSet()
DataAd.Fill(dataSet)
Dim i
For i = 0 To dataSet.Tables(0).Rows.Count - 1
CBB_Tipologia.Items.Add((dataSet.Tables(0).Rows(i) (1))
Next
End Sub
Ora vorrei sapere come faccio a ricavarmi l'id dell'elemento che seleziono, ossia io ora il combo caricato da db e al click di una voce voglio che questo mi ristitutisca l'id di quel valore che è anche l'id di quel valore nel db, io in asp.net facevo cbb.selectitem.value qui come faccio

[Daniele80]

questo quando lo carichi
CBB_Tipologia.DataValueField = "ID"
CBB_Tipologia.DataTextField = "Nome"


poi per recuperare il valore:
CBB_Tipologia.items(CBB_Tipologia.SelectedIndex).V alue

[silvia11/12/80]

grazie tante se mi funziona sei un grande ora provo subito

[silvia11/12/80]

Come non detto non mi riconosce le proprieta DataValueField e dataTextField ma come cavolo devo fare

[Daniele80]

ops dimenticavo che in VB si fa cosi:

Combo1.AddItem valore


risultato = Combo1.ListIndex

cosi però ti prendi l'indice che va da 0 a infinito

[Daniele80]

le combo di .net hanno ti danno la possibilità di settare un DataSource e specificare con DisplayData il campo che vuoi visualizzare e ValueMember il valore da associare a quel campo visualizzato.


+ di questo no nso che dirti

[zampa28]

Sub CaricaCombo()
        Connessione.Open()
        sql = "SELECT * FROM TipologiaConoscenze"
        Dim DataAd As New SqlDataAdapter(sql, Connessione)
        Dim dataSet As New DataSet()
        DataAd.Fill(dataSet)
            
            CBB_Tipologia.DataSource = dataSet.Tables(0)
            CBB_Tipologia.DataValueField = "ID" 
            CBB_Tipologia.DataTextField = "Nome" 

End Sub

            
CBB_Tipologia.SelectedItem.Value 'Recupera l'ID 
CBB_Tipologia.SelectedItem.Text 'Recupera il testo 

[silvia11/12/80]

Grazie Zampa28 ci provo subito