|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic.Net (Banco de Dados)
|
|
 |
Título da Dica: Querying data com ADO.Net
|
 |
|
|
|
Postada em 10/2/2004 por messohal
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SQL" %>
<html>
<script language="VB" runat="server">
Sub GetAuthors_Click(Sender As Object, E As EventArgs)
Dim DS As DataSet
Dim MyConnection As SQLConnection
Dim MyCommand As SQLDataSetCommand
Dim SelectCommand As String = "SELECT * FROM Authors WHERE state = @State"
MyConnection = New SQLConnection("server=YOUR-SERVER;uid=joeuser;pwd=joeuser;database=pubs")
MyCommand = New SQLDataSetCommand(SelectCommand, MyConnection)
MyCommand.SelectCommand.Parameters.Add(New SQLParameter("@State", SQLDataType.VarChar, 2))
MyCommand.SelectCommand.Parameters("@State").Value = MySelect.Value
DS = new DataSet()
MyCommand.FillDataSet(DS, "Authors")
MyDataGrid.DataSource=DS.Tables("Authors").DefaultView
MyDataGrid.DataBind()
End Sub
</script>
<body style="font: 10pt verdana">
<form runat="server">
<h3><font face="Verdana">Parameterized Select to a DataGrid Control</font></h3>
Select a State:
<select id="MySelect" runat="server">
<option>CA</option>
<option>IN</option>
<option>KS</option>
<option>MD</option>
<option>MI</option>
<option>OR</option>
<option>TN</option>
<option>UT</option>
</select>
<input type="submit" OnServerClick="GetAuthors_Click" Value="Get Authors" runat="server"/><p>
<ASP:DataGrid id="MyDataGrid" runat="server"
Width="700"
BackColor="#ccccff"
BorderColor="black"
ShowFooter="false"
CellPadding=3
CellSpacing="0"
Font-Name="Verdana"
Font-Size="8pt"
HeaderStyle-BackColor="#aaaadd"
MaintainState="false"
/>
</form>
</body>
</html>
|
|
|
|
|
