ASP.Net/Components/Database Query
Database query form Demo (VB.net)
<source lang="csharp">
<%-- Code revised from ASP.NET Tips & Techniques (Paperback) by Greg Buczek
- Publisher: McGraw-Hill/Osborne Media; 1st edition (May 21, 2002)
- Language: English
- ISBN: 0072225149
--%>
<%@ Page Language=VB Debug=true %>
<%@ Import Namespace="System.Data" %> <%@ Import Namespace="System.Data.OLEDB" %> <script runat=server> Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
Dim DBConn as OleDbConnection Dim DBCommand As OleDbDataAdapter Dim DSPageData as New DataSet Dim TheQuery as String DBConn = New OleDbConnection( _ "PROVIDER=Microsoft.Jet.OLEDB.4.0;" _ & "DATA SOURCE=" _ & Server.MapPath _ ("EmpDB.mdb;")) TheQuery = "Select " & txtFieldList.Text _ & " From " & txtTableName.Text If txtWhere.Text <> "" Then TheQuery = TheQuery & " Where " _ & txtWhere.Text End If If txtOrder.Text <> "" Then TheQuery = TheQuery & " Order By " _ & txtOrder.Text End If DBCommand = New OleDbDataAdapter(TheQuery, DBConn) DBCommand.Fill(DSPageData, _ "QueryResults") dgQuery.DataSource = _ DSPageData.Tables("QueryResults").DefaultView dgQuery.DataBind()
End Sub
</SCRIPT>
<HTML>
<HEAD>
<TITLE>Raw Query Page</TITLE>
</HEAD>
<Body LEFTMARGIN="40">
<form runat="server">
<asp:label
id="lblMessage2" font-size="10pt" font-name="Lucida Console" text="Enter your query text" runat="server"
/>
Select (Field List)
<asp:textbox
id="txtFieldList" runat="server"
/> <asp:requiredfieldvalidator
id="rfvFieldList" controltovalidate="txtFieldList" display="Dynamic" font-name="Tahoma" font-size="10pt" runat=server> Field list is required!
</asp:requiredfieldvalidator>
From (Table Name)
<asp:textbox
id="txtTableName" runat="server"
/> <asp:requiredfieldvalidator
id="rfvTableName" controltovalidate="txtTableName" display="Dynamic" font-name="Tahoma" font-size="10pt" runat=server> Field list is required!
</asp:requiredfieldvalidator>
Where (Optional)
<asp:textbox
id="txtWhere" runat="server"
/>
Order By (Optional)
<asp:textbox
id="txtOrder" runat="server"
/>
<asp:button
id="butOK" text=" OK " OnClick="SubmitBtn_Click" runat="server"
/>
<asp:datagrid
id="dgQuery" runat="server" autogeneratecolumns="True"
/> </form> </BODY> </HTML>
</source>
<A href="http://www.nfex.ru/Code/ASPDownload/EmpDB.zip">EmpDB.zip( 8 k)</a>