Windows Script Host для Windows 2000/XP, Попов Андрей Викторович

Windows Script Host для Windows 2000/XP

на обложку

Попов Андрей Викторович

Шрифт:

//Формируем шаблон, по которому будет производиться фильтрация

SFilt="'"+Res+"%'";

//Формируем SQL-запрос к таблице Phone

SSource = "SELECT * FROM Phone WHERE (LastName LIKE "+SFilt+")";

//Формируем строку с параметрами соединения с БД

//(указываем нужный DSN)

SConnect = "DSN=PhoneDS";

Создав объект

Recordset

(переменная

), мы присваиваем значение 3 свойству

CursorType

(это позволит узнать количество записей в наборе

после выполнения SQL-запроса):

//Создаем объект Recordset

RS=WScript.CreateObject("ADODB.Recordset");

//Задаем статический курсор

RS.CursorType = 3;

//Открываем набор записей - результат запроса

RS.Open(SSource, SConnect);

//Определяем число записей в наборе

RS_NomRecs = RS.RecordCount;

Если в наборе RS не окажется ни одной записи (нет фамилий, начинающихся на нужные символы), то будет выведено соответствующее сообщение и произойдет выход из сценария:

if (NomRecs==0) {

WScript.Echo("В таблице Phone нет ни одной фамилии, начинающейся на '"+Res+"'");

WScript.Quit;

}

Если же подходящие записи найдены, то они, как обычно, обрабатываются в цикле

for

. В результате формируется строка

SOut

со значениями полей

LastName

Name

Phone

для этих записей:

SOut="ВСЕГО "+NomRecs+" ЗАПИСЕЙ, НАЧИНАЮЩИХСЯ НА '"+Res+"':\n";

//Перебираем все записи набора данных RS

while (!RS.EOF) {

//Формируем строку со значениями трех полей, которые разделены

//символами табуляции

s=RS.Fields("LastName")+"\t"+RS.Fields("Name")+"\t"+ RS.Fields("Phone");

//В конце строки ставим символ перевода строки

s+="\n";

//Добавляем сформированную строку к переменной SOut

SOut+=s;

//Переходим к следующей записи

RS.MoveNext;

}

В конце сценария объект

Recordset

закрывается, а строка

SOut

выводится на экран:

//Закрываем объект Recordset

RS.Close;

//Выводим на экран строку SOut

WScript.Echo(SOut);

Полностью текст сценария FilterRecords.wsf приведен в листинге 9.6.

Листинг 9.6. Фильтрация записей в таблице

Имя: FilterRecords.wsf

Описание: Фильтрация записей таблицы Phone по первому символу

фамилии

</description>

</runtime>

'Функция для реализации диалогового окна со строкой ввода

'в сценариях JScript

Function WSHInputBox(Message,Title)

'Выводим диалоговое окно со строкой ввода

WSHInputBox = InputBox(Message,Title)

End Function

</script>

//Объявляем переменные

var

RS, //Экземпляр объекта Recordset

SSource, //Текст SQL-запроса к БД

SConnect, //Строка с параметрами соединения с БД

SOut, //Строка, в которой сохраняется выходная информация

Res, //Результат ввода в диалоговом окне

SFilt, //Шаблон, по которому будет производиться фильтрация

NomRecs, //Количество записей в отфильтрованном наборе

//Выводим диалоговое окно для ввода первой буквы фамилии

Res=WSHInputBox("Введите первые буквы фамилии","Работа с базой данных");

//Формируем шаблон, по которому будет производиться фильтрация

SFilt="'"+Res+"%'";

//Формируем SQL-запрос к таблице Phone

SSource = "SELECT * FROM Phone WHERE (LastName LIKE "+SFilt+")";

//Формируем строку с параметрами соединения с БД

//(указываем нужный DSN)

SConnect = "DSN=PhoneDS";

//Создаем объект Recordset

RS=WScript.CreateObject("ADODB.Recordset");

//Задаем статический курсор

RS.CursorType = 3;

//Открываем набор записей-результат запроса

RS.Open(SSource,SConnect);

//Определяем число записей в наборе RS

NomRecs = RS.RecordCount;

if (NomRecs==0) {

WScript.Echo("В таблице Phone нет ни одной фамилии, начинающейся на '" + Res+"'");

WScript.Quit;

}

1-132 133 134 135 136 137 138 139 140 141 142 143 144-188

Родословная. Том 2

Ткачев Андрей Юрьевич

2. Линия крови

Фантастика:

городское фэнтези

аниме

фэнтези

5.00

рейтинг книги

Ненаглядная жена его светлости

Зика Натаэль

Любовные романы:

любовно-фантастические романы

6.23

рейтинг книги

Гамбургский счет: Статьи – воспоминания – эссе (1914–1933)

Шкловский Виктор Борисович

Научно-образовательная:

история

5.00

рейтинг книги

Гамбургский счет: Статьи – воспоминания – эссе (1914–1933)

Кодекс Императора

Сапфир Олег

1. Кодекс Императора