Сайт создан по материалам книги Г. Бучека "Учебный курс по ASP.NET".
Москва: BHV, 2002.
Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов
Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов
Проект Управление баннерами
Проект Отправка файлов
Проект Доска сообщений
Вначале извлекается первая запись из таблицы Messages. Обратите внимание на использование подзапроса для извлечения минимального значения поля MessagelD:
-
DBCommand = New OleDbDataAdapter _
("SELECT MessagelD, MessageTitle, "
& "MessageText Frpm Messages " _
& "Where MessagelD = (Select Min(MessagelD) From " _
& "Messages)", DBConn)
-
DBCommand.Fill(DSPageData, _
"CurrentMessage")
Session("CurrentMessagelD") = _
DSPageData.Tables("CurrentMessage"). _
Rows(O).Item{"MessagelD")
-
Session("CurrentMessagelD") = _
DSPageData.Tables("CurrentMessage"). _
Rows(0).Item("MessagelD")
-
IblTitle.Text = "Доска сообщений — " _
& DSPageData.Tables("CurrentMessage"). _
Rows(O).Item("MessageTitle")
-
IblMessage.Text = DSPageData.Tables("CurrentMessage"). _
Rows (0) .ItemC'MessageText")
-
DBCommand = New OleDbDataAdapter _
("SELECT MessagelD, MessageTitle " _
& "from Messages " _
& "Order By MessageTitle", DBConn)
-
DBCommand.Fill(DSPageData, _
"Messages")
-
ddlMessages.DataSource = _
DSPageData.Tables("Messages").DefaultView
ddlMessages.D ataBindO
-
Sub ViewThread_Click(Sender as Object, E as EventArgs)
Dim DBConn as OleDbConnection
Dim DBCommand As OleDbDataAdapter
Dim DSPageData as New DataSet
DBConn - New OleDbConnection("Provider-sqloledb;" _
& "server=localhost;" _
& "Initial Catalog=INETC7;" _
& "User Id=sa;" _
& "Password=yourpassword;")
DBCommand = New OleDbDataAdapter _
("SELECT MessagelD, MessageTitle, " _
& "MessageText From Messages " _
& "Where MessagelD = " _
& ddlMessages.Selectedltem.Value, DBConn)
DBCommand.Fill(DSPageData, _
"CurrentMessage")
Session ("CurrentMessagelD") = _
ddlMessages.Selectedltem.Value
IblTitle.Text = "Доска сообщений = " _
& DSPageData.Tables("CurrentMessage"). _
Rows(O).Item("MessageTitle")
IblMessage.Text » DSPageData.Tables("CurrentMessage"). _
Rows(O).Item("MessageText")
End SUb
-
DBCommand = New OleDbDataAdapter _
("SELECT MessagelD, MessageTitle, " _
& "MessageText From Messages " _
& "Where MessagelD = " _
& ddlMessages.Selectedltem.Value, DBConn)
DBCommand.Fill(DSPageData, _
"CurrentMessage")
-
Session("CurrentMessagelD") =_
ddlMessages.Selectedltem.Value
 |
 |
|
