ASP.Net/Components/Survey form

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

Survey 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 Page_Load(ByVal Sender as Object, ByVal E as EventArgs) 

   Application("CurrentQuestion") = 2
   If Not IsPostBack Then
       Dim DBConn as OleDbConnection
       Dim DBCommand As OleDbDataAdapter
       Dim DSPageData as New DataSet
       DBConn = New OleDbConnection( _
           "PROVIDER=Microsoft.Jet.OLEDB.4.0;" _
           & "DATA SOURCE=" _
           & Server.MapPath _
           ("SurveyDB.mdb;"))
       DBCommand = New OleDbDataAdapter _
           ("Select SurveyQuestion From " _
           & "SurveyQuestions Where SurveyQuestionID = " _
           & Application("CurrentQuestion"), DBConn)
       DBCommand.Fill(DSPageData, _
           "TheQuestion")
       lblQuestion.Text = _
           DSPageData.Tables("TheQuestion"). _
           Rows(0).Item("SurveyQuestion")
       DBCommand = New OleDbDataAdapter _
           ("Select SurveyAnswer From " _
           & "SurveyAnswers Where SurveyQuestionID = " _
           & Application("CurrentQuestion"), DBConn)
       DBCommand.Fill(DSPageData, _
           "TheAnswers")            
       ddlAnswers.DataSource = _
           DSPageData.Tables("TheAnswers").DefaultView
       ddlAnswers.DataBind()
   End If

End Sub Sub SubmitBtn_Click(Sender As Object, E As EventArgs) 

   Dim DBConn as OleDbConnection
   Dim DBAdd As New OleDbCommand
   Dim DBCommand As OleDbDataAdapter
   Dim DSPageData as New DataSet
   DBConn = New OleDbConnection( _
       "PROVIDER=Microsoft.Jet.OLEDB.4.0;" _
       & "DATA SOURCE=" _
       & Server.MapPath _
       ("SurveyDB.mdb;"))
   DBAdd.rumandText = "Insert Into Responses " _
       & "(SurveyQuestionID, Response) values (" _
       & Application("CurrentQuestion") & ", " _
       & """ & ddlAnswers.SelectedItem.Text & "")"
   DBAdd.Connection = DBConn
   DBAdd.Connection.Open
   DBAdd.ExecuteNonQuery()
   DBCommand = New OleDbDataAdapter _
       ("Select Response, " _
       & "Count(ResponseID) as [Hit Count] " _
       & "From Responses " _
       & "Where SurveyQuestionID = " _
       & Application("CurrentQuestion") _
       & " Group By Response", DBConn)
   DBCommand.Fill(DSPageData, _
       "TheResponses")            
   dgResponses.DataSource = _
       DSPageData.Tables("TheResponses").DefaultView
   dgResponses.DataBind()
   PanelQuestion.Visible = False
   PanelResponse.Visible = True

End Sub </SCRIPT> <HTML> <HEAD> <TITLE>Survey Page</TITLE> </HEAD> <Body LEFTMARGIN="40"> <form runat="server">

<asp:label 

   id="lblQuestion" 
   font-size="10pt"
   font-name="Lucida Console"
   runat="server"

/>
<asp:panel 

   id="PanelQuestion"
   runat="server"

> <asp:dropdownlist 

   id="ddlAnswers"
   datatextfield="SurveyAnswer" 
   runat="server"

/>

<asp:button 

   id="butOK"
   text="  OK  "
   OnClick="SubmitBtn_Click" 
   runat="server"

/> </asp:panel>

<asp:panel 

   id="PanelResponse"
   runat="server"
   visible="False"

> <asp:datagrid 

   id="dgResponses" 
   runat="server" 
   autogeneratecolumns="True"

/> </asp:panel> </form> </BODY> </HTML> 

      </source>

<A href="http://www.nfex.ru/Code/ASPDownload/SurveyDB.zip">SurveyDB.zip( 11 k)</a>

Источник — «http://nfex.ru/index.php?title=ASP.Net/Components/Survey_form&oldid=1955»