|
<%@ Page Language="VB" %>
<%@ Import Namespace="System.Data.OleDb" %>
<script runat="server">
Dim dbconn, sql, dbcomm, dbread
Sub Page_Load()
dbconn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;data source=" & Server.MapPath("CasaEditrice.mdb"))
dbconn.Open()
sql = "SELECT IDDisciplina, Descrizione FROM Discipline"
dbcomm = New OleDbCommand(sql, dbconn)
dbread = dbcomm.ExecuteReader()
If Not Page.IsPostBack Then
combo.DataSource = dbread
combo.DataTextField = "Descrizione"
combo.DataValueField = "IDDisciplina"
combo.DataBind()
End If
dbread.Close()
End Sub
Sub Esegui(ByVal sender As Object, ByVal e As EventArgs)
sql = "SELECT IDRivista, Titolo, Periodicità, PrezzoUnitario FROM Riviste WHERE CodDisciplina = " & combo.SelectedItem.Value
dbcomm = New OleDbCommand(sql, dbconn)
dbread = dbcomm.ExecuteReader()
griglia.DataSource = dbread
griglia.DataBind()
dbread.Close()
dbconn.Close()
End Sub
</script>
<html>
<head><title></title></head>
<body>
<form id="Form1" runat="server">
<asp:Label ID="Label1" runat="server" Text="Catalogo Riviste" Font-Bold="True" Font-Size="Large" ForeColor="#0000C0"></asp:Label><br />
<br />
<asp:DropDownList ID="combo" runat="server">
</asp:DropDownList>
<asp:Button ID="invia" OnClick="Esegui" runat="server" Text="Scegli" />
<p>
<asp:DataGrid id="griglia" runat="server"
headerstyle-backcolor="#778899"
headerstyle-forecolor="#FFFFFF">
</asp:DataGrid>
</p>
</form>
</body>
</html>
|
