Lettura di un'intera tabella (leggi1.aspx)
<%@ Page Language="VB" %>
<%@ Import Namespace="System.Data.OleDb" %>
<script runat="server">
sub Page_Load
dim dbconn,sql,dbcomm,dbread
dbconn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;data source="
& Server.MapPath("Northwind.mdb"))
dbconn.Open()
sql = "SELECT * FROM Clienti"
dbcomm=New OleDbCommand(sql,dbconn)
dbread=dbcomm.ExecuteReader()
clienti.DataSource = dbread
clienti.DataBind()
dbread.Close()
dbconn.Close()
end sub
</script>
<html>
<body>
<form id="Form1" runat="server">
<p>
<asp:DataGrid id="clienti" runat="server">
</asp:DataGrid>
</p>
</form>
</body>
</html>
Scelta di una nazione e selezione delle righe della tabella (leggi2.aspx)
(Attenzione: questo esempio ha valore didattico; nella pratica presenta problemi di SQLInjection; due soluzioni più efficienti sono presentate di seguito (1) con l'uso di una dropdownbox, (2) con l'uso dei parametri )
<%@ Page Language="VB" %>
<%@ Import Namespace="System.Data.OleDb" %>
<script runat="server">
Sub Page_Load
lbl1.Text = "Ricerca Clienti per Nazione "
End Sub
Sub Submit(sender As Object, e As EventArgs)
Dim dbconn as OleDbConnection
Dim dbcomm as OleDbCommand
Dim dbread as OleDbDataReader
Dim strSQL As String
Dim nome As String
nome = NomeNazione.Text
dbconn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; data source=" & Server.MapPath("Northwind.mdb"))
dbconn.Open()
strSQL = "Select NomeSocietà, Città From Clienti "
strSQL &= "Where Paese = '" & nome & "' Order by NomeSocietà "
dbcomm = New OleDbCommand(strSQL, dbconn)
dbread=dbcomm.ExecuteReader()
clienti.DataSource = dbread
clienti.DataBind()
dbread.Close()
dbconn.Close()
End Sub
</script>
<html>
<body>
<form id="Form1" runat="server">
<p><asp:label id="lbl1" runat="server" font-bold="True" /></p>
<p>
Quale Nazione: <asp:TextBox id="NomeNazione" runat="server" />
</p>
<asp:Button ID="Button1" OnClick="Submit" Text="Cerca" runat="server" />
<p>
<asp:DataGrid id="clienti" runat="server">
</asp:DataGrid>
<p>
</form>
</body>
</html>
Pagina ASP.NET con la scelta da una DropDownList (leggi3.aspx)
<%@ 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("Northwind.mdb"))
dbconn.Open()
sql = "SELECT distinct Paese FROM Clienti"
dbcomm = New OleDbCommand(sql, dbconn)
dbread = dbcomm.ExecuteReader()
If Not Page.IsPostBack Then
combo.DataSource = dbread
combo.DataTextField = "Paese"
combo.DataBind()
End If
dbread.Close()
End Sub
Sub Esegui(ByVal sender As Object, ByVal e As EventArgs)
sql = "SELECT NomeSocietà, Città FROM Clienti where Paese = '" & 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: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>
|
