Информатика и выч. техника \ Алгоритмизация и программирование

Работа с базами данных в Internet. Оператор, осуществляющий переход от одной записи набора к следующей

Страницы работы

Уважаемые коллеги! Предлагаем вам разработку программного обеспечения под ключ.

Опытные программисты сделают для вас мобильное приложение, нейронную сеть, систему искусственного интеллекта, SaaS-сервис, производственную систему, внедрят или разработают ERP/CRM, запустят стартап.

Сферы - промышленность, ритейл, производственные компании, стартапы, финансы и другие направления.

Языки программирования: Java, PHP, Ruby, C++, .NET, Python, Go, Kotlin, Swift, React Native, Flutter и многие другие.

Всегда на связи. Соблюдаем сроки. Предложим адекватную конкурентную цену.

Заходите к нам на сайт и пишите, с удовольствием вам во всем поможем.

Содержание работы

1.3.9. – 1.3.10 Работа с базами данных в Internet

Применяется ряд технологий для работы с базами данных в Internet. Одна из них -ASP технология создания серверного сценария. Основные действия по реализации этой технологии на стороне сервера следующие. Разрабатывается серверный сценарий, реализованный в ASP файле (HTML код с включением объектов Microsoft ActiveX Data Objects (ADO) работы с базами данных(ADODB), скриптов на языке сценариев). В HTML страницу добавляются объекты ADO (открыть базу, прочитать данные таблицы, поместить прочитанные данные в HTML страницу для передачи клиенту). База данных и ASP страница помещаются в соответствующий каталог Web-сервера. Обеспечивается HTTP доступ клиентов к ASP странице, выполнение запросов к базе данных (клиентского приложения) и вывод результатов запросов в виде HTML страницы.

Рассмотрим пример исходного текста такой ASP страницы.

<% openstr = "driver={Microsoft Access Driver (*.mdb)};" & _

"dbq=" & Server.MapPath("critters.mdb")

Set cn = Server.CreateObject("ADODB.Connection")

cn.Open openstr

sql = "SELECT jersey, fname, sname, position " & _

"FROM roster " & _

"ORDER BY jersey; "

Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open sql, cn, 3, 3

On Error Resume Next

rs.MoveFirst

Do While Not rs.EOF

Response.Write Server.HTMLEncode(_

rs.Fields("jersey") & ", " & _

rs.Fields("fname") & " " & _

rs.Fields("sname") & ", " & _

rs.Fields("position")) & " " & vbCrLf

rs.MoveNext

Loop

rs.Close

Set rs = Nothing

cn.Close

Set cn = Nothing

%></body></html>

Для подготовки представленной ASP страницы необходимо выполнить следующие шаги.

1. Запустите HTML-редактор. Это может быть простой текстовый редактор, такой как Notepad, WYSIWYG-редактор, подобный Microsoft FrontPage или Microsoft Visual InterDev, либо какой-нибудь другой.

2. Если вы выбрали WYSIWYG-редактор, переключитесь в режим отображения HTML-кода.

3. Создайте новый файл. Если следующие операторы в файле отсутствуют, добавьте их. Регистр значения не имеет.

4. Введите следующий код между тегами <body> и </body>: <% %>

Первая и четвертая строки задают начало и конец абзаца HTML. Вторая и третья строки отмечают блок кода VBScript, который будет выполняться на Web-сервере, когда посетитель обратится к странице.

5. Чтобы прочитать базу данных, Вы должны сначала открыть ее. Для этого введите следующий код между тегами <% и %>:

OpenStr = "driver={Microsoft Access Driver (*.mdb)};" & _

"dbq=" & Server.MapPath("critters.mdb") Set с = Server.CreateObject("ADODB.Connection") cn.Open openStr

Здесь будет вставлен код для открытия и чтения таблицы.

cn.Close

Set on = Nothing

6. Оператор амперсанда (&) в Visual Basic объединяет две строки. Следующие выражения являются эквивалентными:

"а" & "Ь" "ab"

Оператор подчеркивания (_) продолжает строку, т.е. предписывает Visual Basic игнорировать остаток строки, следующий после знака подчеркивания.

Первые две строки задают строку соединения для открытия базы данных. Часть driver= сообщает, что это база данных Access; часть dbq= задает местонахождение файла. Эти составляющие содержат информацию, необходимую ADO для открытия базы данных.