race2
20-04-2002, 00:06
Ho scritto il seguente codice:
Private Sub btnCreaCategoria_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCreaCategoria.Click
conn.Open()
Dim comm1 As New SqlCommand("SELECT * FROM Categorie", conn)
Dim read As SqlDataReader
read = comm1.ExecuteReader
While read.Read()
cmb.Items.Add(read("Categoria"))
a = read("Categoria")
End While
conn.Close()
End Sub
Private Sub cmb_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb.SelectedIndexChanged
MessageBox.Show(a)
End Sub
E' un ComboBox il quale viene implementato dei suoi Items da un Database,
al momento della selezione dell'Item "cmb_SelectedIndexChanged", deve visualizzare un MessageBox.Show(a), "a" sarebbe la variabile che associo a read(), " a = read("Categoria") " in modo che ad ogni ciclo di While gli associa un valore differente che trova nel Database.
I problemi sono 2:
1)Ogni volta che clicco nel bottone "btnCreaCategoria_Click" il ComboBox non mi si svuota e quindi gli Item mi si aggiungono a quelli gia stampati prima, se inserisco un "cmb = Nothing" al secondo click mi da errore.
2)Nell'evento "cmb_SelectedIndexChanged" mi da la finestrina di dialogo MessageBox.Show(a) con visualizzato sempre l'ultimo Item e mai quello che seleziono io, dato che il While valorizza sempre la solita variabile poi mi stampa l'ultima valorizzata.
Come posso scampare a questi due problemi???
Private Sub btnCreaCategoria_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCreaCategoria.Click
conn.Open()
Dim comm1 As New SqlCommand("SELECT * FROM Categorie", conn)
Dim read As SqlDataReader
read = comm1.ExecuteReader
While read.Read()
cmb.Items.Add(read("Categoria"))
a = read("Categoria")
End While
conn.Close()
End Sub
Private Sub cmb_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb.SelectedIndexChanged
MessageBox.Show(a)
End Sub
E' un ComboBox il quale viene implementato dei suoi Items da un Database,
al momento della selezione dell'Item "cmb_SelectedIndexChanged", deve visualizzare un MessageBox.Show(a), "a" sarebbe la variabile che associo a read(), " a = read("Categoria") " in modo che ad ogni ciclo di While gli associa un valore differente che trova nel Database.
I problemi sono 2:
1)Ogni volta che clicco nel bottone "btnCreaCategoria_Click" il ComboBox non mi si svuota e quindi gli Item mi si aggiungono a quelli gia stampati prima, se inserisco un "cmb = Nothing" al secondo click mi da errore.
2)Nell'evento "cmb_SelectedIndexChanged" mi da la finestrina di dialogo MessageBox.Show(a) con visualizzato sempre l'ultimo Item e mai quello che seleziono io, dato che il While valorizza sempre la solita variabile poi mi stampa l'ultima valorizzata.
Come posso scampare a questi due problemi???