> 
- Home Page
- > Script VB.Net
- > Script VB.Net - Database
- > Query parametriche
Query parametriche - << VERSIONE C# >>
Eseguire delle query parametriche
<%@ Import Namespace="System.Data.OleDb" %>
<%@ Import Namespace="System.Data" %>
<HTML>
<script language="VB" runat="server">
Private Sub btnFiltra_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim DS As DataSet
Dim MyConnection As OleDbConnection
Dim MyCommand As OleDbDataAdapter
Dim SelectCommand As String = "select * from utenti where cognome = @cognome"
MyConnection = New OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0; Data Source=" & _
Server.MapPath("database/utenti.mdb"))
MyCommand = New OleDbDataAdapter(SelectCommand, MyConnection)
MyCommand.SelectCommand.Parameters.Add(New OleDbParameter("@cognome", 2))
MyCommand.SelectCommand.Parameters("@cognome").Value = tbFiltro.Text
DS = New DataSet
MyCommand.Fill(DS, "utenti")
MyDataGrid.DataSource = DS.Tables("utenti").DefaultView
MyDataGrid.DataBind()
End Sub
</script>
<body>
<form id="Form1" method="post" runat="server">
<asp:TextBox id="tbFiltro" runat="server">pippo</asp:TextBox>
<asp:Button id="btnFiltra" runat="server" Text="Filtra Cognome" OnClick="btnFiltra_Click"></asp:Button>
<BR><BR>
<ASP:DataGrid id="MyDataGrid" runat="server" Width="700px" CellPadding="4" BackColor="White"
BorderColor="#CC9966"
BorderStyle="None" BorderWidth="1px" Font-Names="Verdana"
Font-Name="Verdana" Font-Size="8pt"
HeaderStyle-BackColor="#aaaadd" EnableViewState="False">
<FooterStyle ForeColor="#330099" BackColor="#FFFFCC"></FooterStyle>
<SelectedItemStyle Font-Bold="True" ForeColor="#663399" BackColor="#FFCC66"></SelectedItemStyle>
<ItemStyle ForeColor="#330099" BackColor="White"></ItemStyle>
<HeaderStyle Font-Bold="True" ForeColor="#FFFFCC" BackColor="#990000"></HeaderStyle>
<PagerStyle HorizontalAlign="Center" ForeColor="#330099" BackColor="#FFFFCC"></PagerStyle>
</ASP:DataGrid></form>
</body>
</HTML>
