<%-- 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" %> 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
Raw Query Page
id="lblMessage2" font-size="10pt" font-name="Lucida Console" text="Enter your query text" runat="server" />
Select (Field List)
id="txtFieldList" runat="server" /> id="rfvFieldList" controltovalidate="txtFieldList" display="Dynamic" font-name="Tahoma" font-size="10pt" runat=server> Field list is required!
From (Table Name)
id="txtTableName" runat="server" /> id="rfvTableName" controltovalidate="txtTableName" display="Dynamic" font-name="Tahoma" font-size="10pt" runat=server> Field list is required!
Where (Optional)
id="txtWhere" runat="server" />
Order By (Optional)
id="txtOrder" runat="server" />
id="butOK" text=" OK " OnClick="SubmitBtn_Click" runat="server" />