السلام عليكم اريد حل لمشكلة الكود وهل هو صح ؟؟؟؟؟ :unsure:
المشكلة انا ابغى لمن اضغط على زر ابغى يدخل الاجوبة في الاتا بيس وزيد counter+1 على الاجابة اللي انا اخترتها
ارجوكم ساعدوني ؟؟؟؟؟؟؟؟؟؟؟ :wacko:
Imports System.Data.OracleClient
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
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)
' Try
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.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.DataBind()
Panel1.Controls.Add(dd1)
End If
End If
End While
Else
' Response.Redirect("Error.aspx")
End If
r.Close()
con.Close()
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
If r4.HasRows Then
While r4.Read
If r4("TYPE_OF_QUESTION") = "OPEN" Then
mm1.CommandText = "insert into RESULT(TEXT_OF_ANSWER) values(:FF) " 'qid
Dim FFpar As New OracleParameter("text", "OPE" & r4("QUESTION_ID"))
mm1.Parameters.Add(FFpar)
End If
Dim ab2 As New OracleConnection(ConfigurationManager.ConnectionStrings("orcl").ConnectionString)
Dim mm2 As New OracleCommand
mm2.Connection = ab2
mm2.Connection.Open()
Dim r8 As OracleDataReader = mm2.ExecuteReader
If r8("TYPE_OF_QUESTION") = "ONE CHOICE" Then
Dim dd As New RadioButtonList
mm2.CommandText = "update COUNTER set COUNTER =counter + 1 where= ANSWER_ID=dd "
dd.DataSource = r8
dd.DataTextField = "ANSWER_CH"
dd.DataValueField = "ANSWER_ID"
dd.DataBind()
Panel1.Controls.Add(dd)
Else
If r8("TYPE_OF_QUESTION") = "MULTIPLE" Then
Dim dd1 As New CheckBoxList
mm2.CommandText = "update COUNTER set COUNTER =counter + 1 where= ANSWER_ID=dd1 "
dd1.DataSource = r8
dd1.DataTextField = "ANSWER_CH"
dd1.DataValueField = "ANSWER_ID"
dd1.DataBind()
Panel1.Controls.Add(dd1)
r4.Close()
ab1.Close()
End If
End If
End While
End If
End Sub
End Class
تكفون ساعدوني ؟؟؟؟؟