Pagine ASP.NET e database in rete:
uso dei parametri

  Pagine ASP.NET
 

Accesso ai database con ASP.NET
La proprietà Page.IsPostBack
  Scelta di una nazione e selezione delle righe della tabella (comando Select)
 

<%@ 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 = @param1 Order by NomeSocietà "
dbcomm = New OleDbCommand(strSQL, dbconn)
dbcomm.Parameters.Add(New OleDbParameter("@param1", NomeNazione.Text))
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>
  Inserimento di una nuova categoria nel database Northwind
(comando Insert)
 

<%@ Import Namespace="System.data.oledb" %>
<%@ Page Language="VB" Debug="true" %>

<script runat="server">

Dim dbconn As OleDbConnection
Dim dbcomm As OleDbCommand
Dim dbread As OleDbDataReader
Dim strSQL As String
Dim numrec As Integer

Sub Page_Load()
lbl1.Text = "Inserimento nuova categoria"
End Sub

Sub Nuovo(ByVal sender As Object, ByVal e As EventArgs)
dbconn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; data source=" & Server.MapPath("Northwind.mdb"))
dbconn.Open()
strSQL = "Insert into Categorie(NomeCategoria,Descrizione)"
strSQL &= "Values(@param1,@param2)"
dbcomm = New OleDbCommand(strSQL, dbconn)
dbcomm.Parameters.Add(New OleDbParameter("@param1", nome.Text))
dbcomm.Parameters.Add(New OleDbParameter("@param2", descrizione.Text))
numrec = dbcomm.ExecuteNonQuery()
messaggio.Text = "Numero record aggiunti: " & numrec
nome.Text = ""
descrizione.Text = ""
dbconn.Close()
End Sub
</script>

<html>
<body>
<form id="Form1" runat="server">
<p><i><asp:Label ID="lbl1" runat="server"></asp:Label></i></p>
Nome categoria: <asp:TextBox ID="nome" runat="server" MaxLength="15"></asp:TextBox><br /><br />
Descrizione: <asp:TextBox ID="descrizione" runat="server" ></asp:TextBox><br /><br />
<asp:Button ID="Button1" OnClick ="Nuovo" Text="Aggiungi" runat="server" />
<input id="Reset1" type="reset" value="Azzera"/>
<p><asp:label ID="messaggio" runat="server"></asp:label></p>
</form>
</body>
</html>








> Visual Web Developer Express Edition

Download gratuito dal sito Microsoft (versione italiano)
Visual Web Developer 2010