dimenticavo la procedura
codice:
'-----------------------------------------------------------------------------
'popola un list control da database
'-----------------------------------------------------------------------------
Public Sub FillListControl(ByVal Ctrl As ListControl, ByVal StringConnection$, ByVal TableNameORsql$, ByVal TextField$, ByVal ValueField$, ByVal DefaultItem As ListItem)
Dim Connessione As OleDbConnection = Nothing
Dim Comando As IDbCommand = Nothing
Dim Reader As IDataReader = Nothing
Try
Connessione = New OleDbConnection(StringConnection)
Connessione.Open()
Comando = Connessione.CreateCommand()
If TableNameORsql.ToUpper.IndexOf("SELECT ") = -1 Then
Comando.CommandText = String.Format("SELECT {0}, {1} FROM {2}", TextField, ValueField, TableNameORsql)
Else
Comando.CommandText = TableNameORsql
End If
Reader = Comando.ExecuteReader
Ctrl.DataSource = Reader
Ctrl.DataTextField = TextField
Ctrl.DataValueField = ValueField
Ctrl.DataBind()
Ctrl.Items.Insert(0, DefaultItem)
Catch ex As Exception
Throw
Finally
Try
Reader.Close()
Catch
End Try
If Not (Connessione Is Nothing) Then Connessione.Close()
End Try
End Sub