Сайт создан по материалам книги Г. Бучека "Учебный курс по ASP.NET".
Москва: BHV, 2002.
Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов
Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов
Проект Анкета
Проект Подробности
Проект Поиск магазина
В этой процедуре понадобится объект Connection для подсоединения к базе данных:
-
Dim DBConn as OleDbConnection
-
Dim DBCommand As OleDbDataAdapter
-
Dim DSPageData as New DataSet
-
Dim I as Integer
Dim J as Integer
-
Dim TempID as String
-
Application("SurveylD") = 1
-
DBConn - New OleDbConnection("Provider=sqloledb;" _
& "server=localhost;" _
& "Initial Catalog-INETC3;"
& "User Id=sa;"
& "Password=yourpassword;")
-
DBCommand » New OleDbDataAdapter _
("Select SurveyName, Surveylnstructions " _
& "From Surveys Where SurveylD • " _
& Application("SurveylD"), DBConn)
-
DBCommand.Fill (DSPageData, _
"Surveylnfo")
-
IblTitle.Text -"<center>" _
& DSPageData.Tables("Surveylnfo"). _
Rows(0).Item("SurveyName") & "</center>"
-
IblMessage.Text = DSPageData.Tables("Surveylnfo"). _
Rows (0) . Item .("Surveylnstructions")
-
DBCommand - New. OleDbDataAdapter _
("Select SurveyQuestionID, SurveyQuestionLong " _
& "From SurveyQuestions Where SurveylD = " _
& Application("SurveyID"), DBConn)
-
DBCommand.Fill(DSPageData, _
"SurveyQuestions")
-
For I - 0 to DSPageData.Tables("SurveyQuestions"). _
Rows.Count - 1
-
Dim IcHTML - New LiteralControl
-
IcHTML.Text - DSPageData.Tables("SurveyQuestions"). _
Rows(I).Item("SurveyQuestionLong") & "<br>"
-
pnlQuestions.Controls.Add(IcHTML)
-
Dim MyDDL = New DropDownList
-
TempID - DSPageData.Tables("SurveyQuestions"). _
Rows(I).Item("SurveyQuestionID")
 |
 |
|
