codice:
If Page.IsPostBack = True Then
Exit Sub
End If
Dim connectionstring As String = "Provider=Microsoft.Jet.OLEDB.4.0; Ole DB Services=-4; Data Source=" & Server.MapPath("villa.mdb")
Dim Connessione As New OleDbConnection(connectionstring)
' /// <prendo pagatori>
Dim Sql As String = "Select * from pagatori order by idente"
' /// </prendo pagatori>
Dim MyAdapter As OleDbDataAdapter = New OleDbDataAdapter(Sql, Connessione)
Dim Dataset As DataSet = New DataSet()
MyAdapter.Fill(Dataset, "pagatori")
sceltaente.DataSource = Dataset.Tables("pagatori")
sceltaente.DataValueField = "idente"
sceltaente.DataTextField = "entepagatore"
sceltaente.DataBind()
Connessione.Close()
Connessione.Dispose()
codice:
<asp:DropDownList id="sceltaente" style="Z-INDEX: 103; LEFT: 40px; POSITION: absolute; TOP: 128px" runat="server" Height="8px" Width="144px" AutoPostBack="True" CssClass="controlli"></asp:DropDownList>