ASP.Net/Components/Help wizard

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

Help wizard form (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 EnableSessionState=true 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) 

   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 _
           ("HelpDeskDB.mdb;"))
       DBCommand = New OleDbDataAdapter _
           ("Select QuestionID, TitleText, TheMessage " _
           & "From HelpDesk Where ParentID = 0", DBConn) 
       DBCommand.Fill(DSPageData, _
           "Question")
       DBCommand = New OleDbDataAdapter _
           ("Select QuestionID, TheChoice " _
           & "From HelpDesk " _
           & "Where ParentID = " _
               & DSPageData.Tables("Question"). _
               Rows(0).Item("QuestionID") _
               ,DBConn) 
       DBCommand.Fill(DSPageData, _
           "Choices")
       lblTitle.Text = "Help Desk - " _
           & DSPageData.Tables("Question"). _
               Rows(0).Item("TitleText")
       lblQuestion.Text = _
           DSPageData.Tables("Question"). _
               Rows(0).Item("TheMessage")
       ddlAnswers.DataSource = _
           DSPageData.Tables("Choices").DefaultView
       ddlAnswers.DataBind()
   End If

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

   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 _
       ("HelpDeskDB.mdb;"))
   DBCommand = New OleDbDataAdapter _
       ("Select QorA, TitleText, TheMessage " _
       & "From HelpDesk Where QuestionID = " _
       & ddlAnswers.SelectedItem.Value,DBConn)
   DBCommand.Fill(DSPageData, _
       "Question")
   lblTitle.Text = "Help Desk - " _
       & DSPageData.Tables("Question"). _
           Rows(0).Item("TitleText")
   lblQuestion.Text = _
       DSPageData.Tables("Question"). _
           Rows(0).Item("TheMessage")
   If DSPageData.Tables("Question"). _
               Rows(0).Item("QorA") = "Q" Then
       DBCommand = New OleDbDataAdapter _
           ("Select QuestionID, TheChoice " _
           & "From HelpDesk " _
           & "Where ParentID = " _
           & ddlAnswers.SelectedItem.Value,DBConn)
       DBCommand.Fill(DSPageData, _
           "Choices")
       ddlAnswers.DataSource = _
           DSPageData.Tables("Choices").DefaultView
       ddlAnswers.DataBind()
   Else
       ddlAnswers.Visible = False
       butOK.Visible = False
   End If

End Sub </script> <HTML> <HEAD> <TITLE>Help Desk</TITLE> </HEAD> <Body LEFTMARGIN="40"> <form runat="server">

<asp:Label 

   id="lblTitle" 
   runat="server"

/>

<asp:Label 

   id="lblQuestion" 
   runat="server"

/>

<asp:dropdownlist 

   id="ddlAnswers" 
   runat=server
   DataTextField="TheChoice" 
   DataValueField="QuestionID">

</asp:dropdownlist>

<asp:button 

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

/> </FORM> </BODY> </HTML> 

      </source>

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

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