Salve a tutti!!!!
Ho un modulo web,dove ci sono dei controlli List,ora avrei la necessità di rimepire questi campi, e mi sono creato una routine che riempe.Però visto che ho più di un oggetto list,vorrei usare la stessa routine per caricare dinamocamente tutti gli oggetti, list.
Come posso modificarla? Devo fare una funzione?
Mi date un aiutino?
GRAZIE
Public Sub RiempiDropDownList(ByVal NomeTabella As String)
Dim Cn As SqlClient.SqlConnection
Dim Cmd As SqlCommand
Dim Reader As SqlDataReader
Try
Cn = New SqlConnection("Data Source=GLOBALINO;uid=sa;pwd=admin;database=WebGlob al")
Cmd = Cn.CreateCommand
Cmd.CommandText = "SELECT * FROM " & NomeTabella
Cn.Open()
Reader = Cmd.ExecuteReader
While Reader.Read
Dim item As New ListItem()
item.Text = Reader.GetString(0)
lstStatoCivile.Items.Add(item)
End While
Reader.Close()
Finally
Cn.Close()
End Try
End Sub
Rispondi quotando
