ASP+数据库操作例子 - -黑客动画吧

<%@ Page Language="VB"%>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.ADO" %>

<script language="VB" runat="server">
Sub Page_Load(Src as object, E as EventArgs)
If rblLTorGT.SelectedIndex = -1 Then rblLTorGT.SelectedIndex = 0
End Sub

Sub btnRunQuery_OnClick(Sender As Object, E As EventArgs)
Dim objConnection As ADOConnection
Dim objDSCommand As ADODataSetCommand
Dim objDataSet As DataSet
Dim strSQLQuery As String

strSQLQuery = "SELECT * FROM sample " & _
"WHERE (Sales " & rblLTorGT.SelectedItem.Value.ToString() & " " &
txtSalesAmount.Text.ToString() & ") " & _
"ORDER BY " & ddlSortBy.SelectedItem.Value.ToString() &
ddlSortOrder.SelectedItem.Value.ToString()

objConnection = New ADOConnection("DBQ=" & Server.MapPath("database.mdb") & ";Driver=
{Microsoft Access Driver (*.mdb)};")

objDSCommand = New ADODataSetCommand(strSQLQuery, objConnection)

objDataSet = New DataSet()
objDSCommand.FillDataSet(objDataSet, "sample")

lblSQLCommandLabel.Text = strSQLQuery

EmployeeDataGrid.DataSource = objDataSet.Tables("sample").DefaultView
EmployeeDataGrid.DataBind()
End Sub
</script>

<html>
<body>

<form action="database.aspx" method="post" runat="server">
<strong>Sales:</strong><br />

<table border="0">
<tr><td>
<asp:RadioButtonList id="rblLTorGT" runat="server">
<asp:ListItem value="<" runat="server">Less Than</asp:ListItem>
<asp:ListItem value=">" runat="server">Greater
Than</asp:ListItem>
</asp:RadioButtonList>
</td><td>
<asp:TextBox id="txtSalesAmount" runat="server" />
<asp:RequiredFieldValidator runat="server"
id="validSalesEntry" controlToValidate="txtSalesAmount"
errorMessage="You must enter a sales amount!"
display="dynamic"
/>
<asp:RangeValidator runat="server"
id="validSalesAmount" controlToValidate="txtSalesAmount"
type="Integer" minimumValue="-32000" maximumValue="+32000"
errorMessage="You must enter an integer!"
display="dynamic"
/>
</td></tr>
</table>

<strong>Sort By:</strong><br />

<asp:DropDownList id="ddlSortBy" runat="server">
<asp:ListItem value="id" >Id</asp:ListItem>
<asp:ListItem value="last_name" >Last Name</asp:ListItem>
<asp:ListItem value="first_name" >First Name</asp:ListItem>
<asp:ListItem value="sales">Sales</asp:ListItem>
</asp:DropDownList>

<asp:DropDownList id="ddlSortOrder" runat="server">
<asp:ListItem value=" ASC" >Ascending</asp:ListItem>
<asp:ListItem value=" DESC">Descending</asp:ListItem>
</asp:DropDownList>

<asp:Button type="submit" id="btnRunQuery" text="Run Query" OnClick="btnRunQuery_OnClick"
runat="server" />
</form>

<p>
<strong>Results of:</strong> <asp:label id="lblSQLCommandLabel" runat="server" />
</p>

<asp:DataGrid id="EmployeeDataGrid" HeaderStyle-Font-Bold="True" ToolTip="This is Cool!" runat="server"
maintainviewstate="false" />

</body>
</html>

原作者：不详
来源：不详

关于本站 - 网站帮助 - 广告合作 - 下载声明 - 网站地图 - 发布教程
	Copyright © 2002-2005 Hack58.Com. All Rights Reserved . 备案编号:粤ICP备05008775号