15 messaggi dal 19 luglio 2006
Buongiorno ho un problema con una dropdownlist.
Attraverso il metodo "init" che richiama la sub "completalistarassegna" popolo la dropdownlist associata al campo "rassegna" con records estratti da un database:
-----------------------------------------------------------
Protected Sub CompletaListaRassegna()
lstRassegna.Items.Clear()
Dim con2 As New SqlConnection
con2.ConnectionString = "Data Source=localhost;Initial Catalog=database;User ID=user;Password=password"
Dim sqlList As String
sqlList = "Select * from rassegna order by rassegna asc"
Dim cmd As New SqlCommand(sqlList, con2)
Dim listreader As SqlDataReader
Try
con2.Open()
listreader = cmd.ExecuteReader
Do While listreader.Read
Dim newEle As New ListItem
newEle.Text = listreader("rassegna")
newEle.Value = listreader("numero")
lstRassegna.Items.Add(newEle)
Loop
listreader.Close()
Catch ex As Exception
lblMsg.Text = "ERRORE IN FASE DI CARICAMENTO DEI VALORI NELLA CASELLA DI CONTROLLO"
lblMsg.Text &= Err.Description
Finally
If (Not con2 Is Nothing) Then
con2.Close()
End If
End Try
End Sub
----------------------------------------------------
Volendo modificare un record composto da vari campi tra cui "rassegna" lo estraggo e rendo disponibili per la mdifica i relativi valori:
----------------------------------------------------
Protected Sub Button_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button.Click
Dim myCon As SqlConnection
myCon = New SqlConnection
myCon.ConnectionString = "Data Source=localhost;Initial Catalog=database;User ID=user;Password=password"
Dim SQLString As String
SQLString = "SELECT * FROM principale WHERE titolo = '" & Replace(lstArticoli.SelectedItem.Text, "'", "''") & "'"
Dim DBCommand = New SqlCommand(SQLString, myCon)
Try
myCon.Open()
reader = DBCommand.ExecuteReader()
reader.Read()
....

Dim newRass As New ListItem
newRass.Text = reader("rassegna")
lstRassegna.Items.Add(newRass)
lstRassegna.SelectedItem.Text = newRass.Text.ToString
....
reader.Close()
Catch ex As Exception
lblMsg.Text = "ERRORE NELL'ESTRAZIONE DEI DATI"
lblMsg.Text &= Err.Description
Finally
If (Not myCon Is Nothing) Then
myCon.Close()
End If
End Try
End Sub
...........................
L'inconveniente che registro è che il record estratto per la modifica mi "copre" il primo record estratto in precedenza con la sub CompletaListaRassegna mentre vorrei che fosse solo selectedItem ma fossero disponibili tutti i records estratti con la sub per una loro eventuale selezione.
Grazie a chi mi darà una mano.
15 messaggi dal 19 luglio 2006
problema risolto grazie dotnet72

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.