Теоретические сведения.

Данная работа позволяет организовать взаимодействие с базами данных через Интернет. Смысл ее в том, что пользователь может открыть удаленный сайт и «залезть» в базу данных удаленного компьютера, разумеется, при отсутствии ограничений, устанавливаемых браузером. По мере изложения теоретического материала будем «продвигаться» в изучении VBS.

Создадим следующий сайт:

< HTML>

< H3> < Font Color=White> ЛАБА VBS< /Font> < H3>

< HR>

< SCRIPT LANGUAGE=" VBScript" >

<! --

Option Explicit

Dim blnValue, strUserName, xCustomer

sub showAccess

Dim objacc, strConnection, strDataBase, rs, sfio

Set objacc = CreateObject(" ADODB.Connection")

strConnection= " Provider=Microsoft.Jet.OLEDB.4.0; Data Source="

strdataBase=" d: \german\JULIA_CIT_COURSE\ЛАБЫ\my.mdb"

objacc.Open strConnection & strDatabase

Set rs = objacc.Execute(" Select * from stud")

Do until rs.EOF

sfio = rs(" fio")

msgbox sfio

rs.MoveNext

Loop

end sub

-->

< /SCRIPT>

< BODY bgcolor=0x1255AA>

< form name=" frm" >

< br>

< br>

< center>

< br>

< br>

< input type=" Button" name=" b3" value=" ShowACCESS" onClick=" call showAccess" >

< /center>

< /form>

< /BODY>

< /HTML>

Внешний вид этого сайта показан на рисунке:

Мы пишем обработчик для кнопки в скрипте:

sub showAccess

Dim objacc, strConnection, strDataBase, rs, sfio

Set objacc = CreateObject(" ADODB.Connection")

strConnection= " Provider=Microsoft.Jet.OLEDB.4.0; Data Source="

strdataBase=" d: \german\JULIA_CIT_COURSE\ЛАБЫ\my.mdb"

objacc.Open strConnection & strDatabase

Set rs = objacc.Execute(" Select * from stud")

Do until rs.EOF

sfio = rs(" fio")

msgbox sfio

rs.MoveNext

Loop

end sub

База данных ACCESS размещена по адресу

" d: \german\JULIA_CIT_COURSE\ЛАБЫ\my.mdb"

Она содержит таблицу stud с полями fio и age. Для подключения к базе мы используем строку соединения

strConnection= " Provider=Microsoft.Jet.OLEDB.4.0; Data Source="

На основе этого соединения осуществляется выборка записей по команде SELECT.

Теперь мы усовершенствуем свой сайт, разместив в нем другие элементы:

Текст документа приведен ниже:

< HTML>

< H3> < Font Color=White> ЛАБА VBS< /Font> < H3>

< HR>

< SCRIPT LANGUAGE=" VBScript" >

<! --

Option Explicit

Dim blnValue, strUserName, xCustomer, objacc, strConnection, strDataBase, rs, sfio

sub showAccess

Set objacc = CreateObject(" ADODB.Connection")

strConnection= " Provider=Microsoft.Jet.OLEDB.4.0; Data Source="

strdataBase=" d: \german\JULIA_CIT_COURSE\ЛАБЫ\my.mdb"

objacc.Open strConnection & strDatabase

Set rs = objacc.Execute(" Select * from stud")

document.frm.tfio.value=rs(" fio")

document.frm.tage.value=rs(" age")

end sub

-->

< /SCRIPT>

< BODY bgcolor=0x1255AA>

< form name=" frm" >

< H1> Information about collegues< /h1>

< hr>

FIO: < Input type=" TextField" name=" tfio" value=" " size=20>

< br>

AGE< Input type=" TextField" name=" tage" value=" " size=10>

< br>

< center>

< br>

< br>

< table bgcolor=0x55aadd border=2>

< tr>

< td> < input type=" Button" name=" b3" value=" OpenACCESS" onClick=" call showAccess" > < /td>

< td> < input type=" Button" name=" b4" value=" Forward" > < /td>

< td> < input type=" Button" name=" b5" value=" Back" > < /td>

< /tr>

< /table>

< /center>

< /form>

< /BODY>

< /HTML>

Пока все еще работает одна кнопка. Запрограммируем кнопку движения по записям вперед и назад (они по сути идентичны).

Движение вперед:

sub forward

Dim h

on Error resume next

if rs.eof=false then

rs.movenext

if rs.eof=false then

if Err.Number< > 0 then

msgbox Err.Description

exit sub

end if

else

rs.movefirst

end if

else

'rs.movefirst

end if

document.frm.tfio.value=rs(" fio")

document.frm.tage.value=rs(" age")

end sub

Движение вперед выполняет команда rs.movenext. Чтобы двигаться вперед, следует проверить достижение конца набора записей. VBScript (как, собственно и Visual Basic) требует такую проверку выполнять дважды:

if rs.eof=false then

rs.movenext

if rs.eof=false then

Это приводит к усложнению понимания программы, но что поделать? Кнопку движения назад запрограммируйте самостоятельно. Проверка того, что достигнуто начало набора записей реализует метод rs.bof. Команда движения назад – это rs.moveprevious.

Теперь следует добавить в приложение поисковик. Будем искать запись по имени. Для этого несколько переделаем форму:

В таблице появилась новая кнопка, что достигнуто следующей перекодировкой:

< table bgcolor=0x55aadd border=2>

< tr>

< td> < input type=" Button" name=" b3" value=" OpenACCESS" onClick=" call showAccess" > < /td>

< td> < input type=" Button" name=" b4" value=" Forward" onClick=" call forward" > < /td>

< td> < input type=" Button" name=" b5" value=" Back" > < /td>

< /tr>

< tr>

< td colspan=3 align=center> < input type=" Button" name=" b6" value=" Find " > < /td>

< /tr>

< /table>

Заметим, что строка

< td colspan=3 align=center> < input type=" Button" name=" b6" value=" Find " >

объединяет три столбца в один, где мы и помещаем кнопку для поиска.

Программу для кнопки поиска мы реализовали таким образом:

sub findrec

Dim sq

on Error resume next

rs.close

if Err.Number< > 0 then

msgbox Err.Description

exit sub

end if

Set rs=nothing

sq=" Select * from stud where fio=" " " +document.frm.tfio.value+" " " "

Set rs = objacc.Execute(sq)

if Err.Number< > 0 then

msgbox Err.Description

exit sub

end if

document.frm.tfio.value=rs(" fio")

document.frm.tage.value=rs(" age")

end sub

Обратим внимание на обилие двойных кавычек в строке

sq=" Select * from stud where fio=" " " +document.frm.tfio.value+" " " "

Дело в необходимости строковые параметры брать в двойные кавычки, т.е. запрос должен иметь вид

Select * from stud where fio=" peter"

Поэтому чтобы программа правильно нас поняла, следует удваивать двойные кавычки.

ЗАДАНИЕ.

1. Запрограммировать команды вставки и удаления записей из БД

2. Отображать при переходе на новую запись фотографию коллеги в компоненте < img>, изменяя его свойство src. Для этого изменить структуру таблицы и хранить в ней адрес файла с фотографией.

3. Попытайтесь осуществить приближенный поиск по части имени. Используйте для этого функцию InStr(n, S1, S2) которая возвращает позицию подстроки S2 в строке S1, начиная просмотр с позиции n в строке S2. Если функция возвращает значение 0, то это означает, что поиск закончился неудачей.