I am working on a survey system, but I have a problem im my code, I want help.... :confused:
Partial Class deptcp_Default3
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
If String.IsNullOrEmpty(Request.QueryString("SURVEY_ID")) Then
Else
End If
End If
Dim con As New OracleConnection(ConfigurationManager.ConnectionStrings("orcl").ConnectionString)
Dim comm As New OracleCommand
Dim sur As Integer
sur = Request.QueryString("SURVEY_ID")
Dim par10par As New OracleParameter("par10", sur)
comm.Parameters.Add(par10par)
comm.Connection = con
comm.Connection.Open()
comm.CommandText = "select QUESTION_ID, QUESTION_TEXT,TYPE_OF_QUESTION from SURVEY_QUESTION where SURVEY_ID= :par10"
Dim r As OracleDataReader = comm.ExecuteReader
If r.HasRows Then
While r.Read
Dim a As Label
a = New Label
a.Text = "</br>" & r(("QUESTION_TEXT")) & "<br/>"
Panel1.Controls.Add(a)
If r("TYPE_OF_QUESTION") = "OPEN" Then
Dim r3 As TextBox
r3 = New TextBox
r3.ID = "OPE" & r("QUESTION_ID")
r3.TextMode = TextBoxMode.MultiLine
Panel1.Controls.Add(r3)
End If
Dim ab As New OracleConnection(ConfigurationManager.ConnectionStrings("orcl").ConnectionString)
Dim mm As New OracleCommand
mm.Connection = ab
mm.Connection.Open()
mm.CommandText = "select ANSWER_ID,ANSWER_CH from SURVEY_ANSWER where QUESTION_ID= :par11"
Dim par11par As New OracleParameter("par11", r("QUESTION_ID").ToString())
mm.Parameters.Add(par11par)
Dim r2 As OracleDataReader = mm.ExecuteReader
If r("TYPE_OF_QUESTION") = "ONE CHOICE" Then
Dim dd As New RadioButtonList
dd.DataSource = r2
dd.DataTextField = "ANSWER_CH"
dd.DataValueField = "ANSWER_ID"
dd.ID = "radio_b" & r("QUESTION_ID")
dd.DataBind()
Panel1.Controls.Add(dd)
Else
If r("TYPE_OF_QUESTION") = "MULTIPLE" Then
Dim dd1 As New CheckBoxList
dd1.DataSource = r2
dd1.DataTextField = "ANSWER_CH"
dd1.DataValueField = "ANSWER_ID"
dd1.ID = "check_b" & r("QUESTION_ID")
dd1.DataBind()
Panel1.Controls.Add(dd1)
End If
End If
End While
Else
End If
r.Close()
con.Close()
If String.IsNullOrEmpty(Request.QueryString("SURVEY_ID")) Then
Response.Write("true")
Else
Response.Write("false")
End If
If String.IsNullOrEmpty(Request.QueryString("EMP_ID")) Then
Response.Write("true")
Else
Response.Write("false")
End If
Dim su As Integer
su = (Request.QueryString("SURVEY_ID"))
Dim em As Integer
em = (Request.QueryString("EMP_ID"))
Dim oraconn As New OracleConnection(ConfigurationManager.ConnectionStrings("orcl").ConnectionString)
Dim oraquery As String = "select SURVEY_ID , EMP_ID from EMP_SUR where SURVEY_ID= :par1 and EMP_ID= :par2"
Dim oracommand As OracleCommand = New OracleCommand(oraquery, oraconn)
oraconn.Open()
Dim par1 As New OracleParameter("par1", su)
oracommand.Parameters.Add(par1)
Dim par2 As New OracleParameter("par2", em)
oracommand.Parameters.Add(par2)
Dim reader As OracleDataReader = oracommand.ExecuteReader()
If reader.HasRows Then
Response.Write(" ")
While reader.Read
reader("SURVEY_ID").ToString()
Response.Write(su)
reader("EMP_ID").ToString()
Response.Write(em)
End While
Else
End If
reader.Close()
oraconn.Close()
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ab1 As New OracleConnection(ConfigurationManager.ConnectionStrings("orcl").ConnectionString)
Dim mm1 As New OracleCommand
Dim sur1 As Integer
sur1 = Request.QueryString("SURVEY_ID")
Dim par144par As New OracleParameter("par144", sur1)
mm1.Parameters.Add(par144par)
mm1.Connection = ab1
mm1.Connection.Open()
mm1.CommandText = "select QUESTION_ID, QUESTION_TEXT,TYPE_OF_QUESTION from SURVEY_QUESTION where SURVEY_ID= :par144"
Dim r4 As OracleDataReader = mm1.ExecuteReader
mm1.Parameters.Clear()
mm1.CommandText = "insert into RESULTS(TEXT_OF_ANSWER,QUESTION_ID) values(:FF,:VV) "
If r4.HasRows Then
While r4.Read
If r4("TYPE_OF_QUESTION") = "OPEN" Then
Dim a1 As TextBox = CType(Panel1.FindControl("OPE" & r4("QUESTION_ID")), TextBox)
Dim FFpar As New OracleParameter("FF", a1.Text)
mm1.Parameters.Add(FFpar)
Dim a2 As Integer = r4("QUESTION_ID")
Dim VVpar As New OracleParameter("VV", OracleType.Int32)
VVpar.Value = Integer.Parse(a2)
mm1.Parameters.Add(VVpar)
mm1.ExecutAeNonQuery()
End If
Dim ab2 As New OracleConnection(ConfigurationManager.ConnectionStrings("orcl").ConnectionString)
Dim mm2 As New OracleCommand
mm2.Connection = ab2
mm2.Connection.Open()
If r4("TYPE_OF_QUESTION") = "ONE CHOICE" Then
Dim a7 As RadioButtonList = CType(Panel1.FindControl("radio_b" & r4("QUESTION_ID")), RadioButtonList)
Dim FFApar As New OracleParameter("FFA", a7.SelectedValue)
mm1.Parameters.Add(FFApar)
mm2.CommandText = "update SURVEY_ANSWER set COUNTER =counter + 1 where ANSWER_ID=:FFApar "
mm2.ExecuteNonQuery()
Else
If r4("TYPE_OF_QUESTION") = "MULTIPLE" Then
mm2.CommandText = "update SURVEY_ANSWER set COUNTER =counter + 1 where= ANSWER_ID=QUESTION_ID "
r4.Close()
ab1.Close()
End If
End If
End If
End While
End If
End Sub
End Class