Survey form Demo (VB.net) : Survey form « Components « ASP.Net

ASP.Net
1. ADO.net Database
2. Ajax
3. Asp Control
4. Collections
5. Components
6. Data Binding
7. Development
8. File Directory
9. HTML Control
10. Language Basics
11. Login Security
12. Mobile Control
13. Network
14. Page
15. Request
16. Response
17. Server
18. Session Cookie
19. Sitemap
20. Theme Style
21. User Control and Master Page
22. Validation by Control
23. Validation by Function
24. WebPart
25. WPF
26. XML
Java
Java Tutorial
Java Source Code / Java Documentation
Java Open Source
Jar File Download
Java Articles
Java Products
Java by API
Photoshop Tutorials
Maya Tutorials
Flash Tutorials
3ds-Max Tutorials
Illustrator Tutorials
GIMP Tutorials
C# / C Sharp
C# / CSharp Tutorial
C# / CSharp Open Source
ASP.NET Tutorial
JavaScript DHTML
JavaScript Tutorial
JavaScript Reference
HTML / CSS
HTML CSS Reference
C / ANSI-C
C Tutorial
C++
C++ Tutorial
Ruby
PHP
Python
Python Tutorial
Python Open Source
SQL Server / T-SQL
SQL Server / T-SQL Tutorial
Oracle PL / SQL
Oracle PL/SQL Tutorial
PostgreSQL
SQL / MySQL
MySQL Tutorial
VB.Net
VB.Net Tutorial
Flash / Flex / ActionScript
VBA / Excel / Access / Word
XML
XML Tutorial
Microsoft Office PowerPoint 2007 Tutorial
Microsoft Office Excel 2007 Tutorial
Microsoft Office Word 2007 Tutorial
ASP.Net » Components » Survey form 
Survey form Demo (VB.net)

<%--
Code revised from 

ASP.NET Tips & Techniques (Paperback)
by Greg Buczek 


# Publisher: McGraw-Hill/Osborne Media; 1st edition (May 212002)
# Language: English
# 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.CommandText = "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">
<BR><BR>
<asp:label 
    id="lblQuestion" 
    font-size="10pt"
    font-name="Lucida Console"
    runat="server"
/>
<BR>
<asp:panel
    id="PanelQuestion"
    runat="server"
>
<asp:dropdownlist
    id="ddlAnswers"
    datatextfield="SurveyAnswer" 
    runat="server"
/>
<BR><BR>
<asp:button 
    id="butOK"
    text="  OK  "
    OnClick="SubmitBtn_Click" 
    runat="server"
/>
</asp:panel>
<BR><BR>
<asp:panel
    id="PanelResponse"
    runat="server"
    visible="False"  
>
<asp:datagrid
    id="dgResponses" 
    runat="server" 
    autogeneratecolumns="True"
/>
</asp:panel>
</form>
</BODY>
</HTML>
           
       
SurveyDB.zip( 11 k)
Related examples in the same category
www.java2java.com | Contact Us
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.