Проект Анкета
Проект Подробности
Проект Поиск магазина

MyDDL.ID = "Q". & TempID

DBCommand = New OleDbDataAdapter _
("Select SurveyAnswer " _
& "From SurveyAnswers Where SurveyQuestionID = " _
& TempID, DBConn) и поместить их в объект DataSet:
DBCommand.Fill(DSPageData, _
TempID)

For J = 0 tO DSPageData.Tables (TempID) . _
Rows.Count - 1

Dim Myltem = New Listitem
Myltem.Text = DSPageData.Tables(TempID). _
Rows(J).Item("SurveyAnswer")

MyDDL.Items.Add(Myltem)

Next

pnlQuestions.Controls.Add(MyDDL)

lcHTML2 = New LiteralControl
lcHTML2.Text="<br><br>"
pnlQuestions.Controls.Add(lcHTML2)

Next

Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
Dim DBConn as OleDbConnection
Dim DBInsert As New OleDbCommand
Dim DBCommand As OleDbDataAdapter
Dim DSPageData as New DataSet
Dim MyControl as Control
Dim MyDDL as DropDownList
DBConn - New OleDbConnection("Provider=sqloledb;" _
& "server=localhost;" _
& "Initial Catalog=INETC3;" _
& "User Id=sa;" _
& "Password-yourpassword;")
DBInsert.Connection = DBConn
DBInsert.Connection.Open
For Each MyControl in pnlQuestions.Controls
If MyControl.GetTypeO.FullName = _
"System.Web.Ul.WebControls.DropDownList" Then
MyDDL = MyControl
DBInsert.CommandText = "Insert Into SurveyResponses " _
& "(SurveyQuestionlD, SurveyResponse) " _
& "values (" _
& Mid(MyDDL.ID, 2) & ", " _
& " ' "
& Replace (MyDDL. Selectedl tern. Text, "'", "''")
s "')"
DBInsert.ExecuteNonQuery()
End If
Next
DBCommand - New OleDbDataAdapter _
("Select SurveyResponse " _
& "From Surveys Where SurveylD = " _
& Application("SurveylD"), DBConn)
DBCommand.Fill(DSPageData, _ "Surveylnfo")
IblMessage.Text = DSPageData.Tables("Surveylnfo"). _
Rows(0).Item("SurveyResponse")
pnlQuestions.Visible - False
butOK,Visible - False
End Sub
</script>

Dim DBConn As OleDbConnection
Dim DBInsert As New OleDbCommand
Dim DBCommand As OleDbDataAdapter
Dim DSPageData As New DataSet