ASP.Net/Components/Database Query

Материал из .Net Framework эксперт
Перейти к: навигация, поиск

Database query form Demo (VB.net)

   <source lang="csharp">

<%-- Code revised from ASP.NET Tips & Techniques (Paperback) by Greg Buczek

  1. Publisher: McGraw-Hill/Osborne Media; 1st edition (May 21, 2002)
  2. Language: English
  3. 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>