dim objcmd as new oledbdataadapter ("select distinct anno_scolastico from intervalli ", objconn)
dim ds as dataset=new dataset()
objcmd.fill (ds,"intervalli")
Dim strSQL as String = "select distinct anno_scolastico from intervalli"
Dim objCmd2 as OleDbCommand
objConn.Open()
objCmd2 = new OleDbCommand(strSQL, objConn)
dim MyCommand As New OledbDataAdapter(strSQL,objConn)
ds = new DataSet()
MyCommand.Fill(ds, "anno_scolastico")
objConn.Close
anno_scolastico.DataTextField="anno_scolastico" ' campo visualizzato
anno_scolastico.DataValueField="anno_scolastico" ' campo di valore
anno_scolastico.DataBind()
anno_scolastico.DataSource=ds
anno_scolastico.DataMember="anno_scolastico"
anno_scolastico.DataTextField="anno_scolastico" ' campo visualizzato
anno_scolastico.DataValueField="anno_scolastico" ' campo di valore
anno_scolastico.DataBind()