Разработка локальных Web-приложений (на VBScript).

Дата добавления: 2015-07-09; просмотров: 788; Нарушение авторских прав

Аналогичный скрипт, который обеспечивает доступ к базам данных, можно разработать и для Web-среды. Более подробно приемы создания таких скриптов описаны в работе [5].

В данном пособие мы приведем пример простого скрипта, который выполняет те же (см. 6.1) процедуры доступа к учебной базе данных avtoshp.mdb и выводит отчет на экран в форме HTML-файла.

Предполагается, что база данных находится (т.е. локализована) на том же компьютере, что Web-среда, через которую пользователь будет осуществлять доступ к данным. Такой режим доступа к базам данным называется – локальным, а приложение – локальным Web-приложением.

Ниже приведен скрипт, который позволяет вывести отчет по SQL-запросу в окно браузера.

<HTML>

<HEAD>

Sub Test_AvtoShop()

msgbox "ТЕСТ"

'1 - коннекция к базе данных --

'--Создание объекта <ADODB >

Set Db = CreateObject("ADODB.Connection")

'---- формирование стринга для связи с базой данных---

StrOpen = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Учебное пособие по SQL в Access\AvtoShop.mdb"

Db.Open StrOpen

'2 -Выполнение SQL-запроса --

'----- Создание объекта типа <запись> --

Set rs = CreateObject("ADODB.Recordset")

Set rs.ActiveConnection = Db

'------формирование стринга для отбора записей ------

StrSQL = "SELECT * FROM Salespeople;"

'---подготовка набора записей --

rs.Open StrSQL

'3 --Вывод записей в таблицу -

'-- если набор пуст, то товара нет на складе -----

If rs.EOF = True Then

MsgBox "Записей нет"

Exit Sub

End If

'-вывод строки заголовков столбцов ---

Nstr = 1

RabTab = "Лист1"

tt="<HTML><BODY><h2> Отчет </h2><TABLE border=1><TR>"

For Each fl In rs.Fields

tt=tt & "<TD>" & fl.Name & "</TD>"

tt=tt & "</TR>"

'------ вывод тела таблицы -----

Nstr = 2

Do Until rs.EOF = True

tt=tt & "<TR>"

For Each fl In rs.Fields

tt=tt & "<TD>" & fl.Value & "</TD>"

'-----------

rs.MoveNext

Nstr = Nstr + 1

tt=tt & "</TR>"

Loop

tt=tt & "</TABLE></BODY></HTML>"

'------------------------------

document.write (tt)

'------------------------------

End Sub

</SCRIPT>

</HEAD>

<BODY>

<h2>Приемер вывода данных из базы данных</h2>

<hr>

</BODY>

</HTML>

Замечение: Данный скрипт может быть плучен путем простой трансформации скрипта отлаженного в среде VBA (см. 6.1)., путем добавления необходимых тегов и коррекции процедуры «3 –вывода записей в таблицу».

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

<== предыдущая лекция	\|	следующая лекция ==>
Запросы на удаление базы данных	\|	Некоторые приемы ASP-технологии