Андрей Попов - Windows Script Host для Windows 2000/XP

NomRecs = RS.RecordCount;

SOut="ТАБЛИЦА Phone СОДЕРЖИТ "+NomFields+" ПОЛЯ(ЕЙ):\n\n";

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

for (i=0; i

//Формируем строку с номером и именем поля таблицы

SOut+="Поле N "+i+": "+RS.Fields(i).Name+"\n";

}

SOut+="\nИ "+NomRecs+" ЗАПИСЬ(ЕЙ)";

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

RS.Close();

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

WScript.Echo(SOut);

/************* Конец *********************************************/

Используя предложение ORDER BYв операторе SELECT, можно получить из источника данных записи, отсортированные по какому-либо полю. Например, следующий SQL-запрос

SELECT * FROM Phone ORDER BY LastName

вернет упорядоченный по полю LastNameнабор, содержащий все записи из таблицы Phone (рис. 9.12).

Рис. 9.12.Сортировка записей таблицы Phone по полю LastName

Мы напишем сценарий SortRecords.wsf, с помощью которого можно будет выводить записи из таблицы Phone, отсортированные либо по фамилии (поле LastName), либо по телефону (поле Phone). Выбор осуществляется с помощью ввода соответствующего значения в диалоговом окне (рис. 9.13).

Рис. 9.13.Выбор поля для сортировки

Само диалоговое окно реализуется с помощью VBScript-функции WSHInputBox( Message, Title ):

Function WSHInputBox(Message, Title)

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

WSHInputBox = InputBox(Message,Title)

End Function

Эта функция вызывается из написанной на JScript части сценария следующим образом:

//Формируем текст сообщения в диалоговом окне ввода

SMenu="1 - Сортировка по фамилии\n";

SMenu+="2 - Сортировка по телефону\n";

SMenu+="\n\nКоманда:";

//Выводим диалоговое окно для ввода режима сортировки

Res=WSHInputBox(SMenu, "Работа с базой данных");

Введенное в диалоговом окне значение записывается в переменную Resи анализируется в операторе switch:

//Анализируем введенное значение

switch (Res) {

case "1": {

SSort="LastName";

break;

}

case "2": {

SSort="Phone";

break;

}

default: {

WScript.Echo("Вы ввели неправильное значение!");

WScript.Quit();

}

}

После того как в переменную SSortзанесено имя поля, по которому нужно производить сортировку, мы можем полностью сформировать нужный SQL-запрос к таблице Phone:

//Формируем SQL-запрос к таблице Phone SSource = "SELECT * FROM Phone ORDER BY "+SSort;

Оставшаяся часть сценария взята из сценария ListRecords1.js и комментариев не требует.

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

Имя: SortRecords.wsf

Описание: Сортировка записей таблицы БД по заданному полю

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

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

Function WSHInputBox(Message,Title)

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

WSHInputBox = InputBox(Message,Title)

End Function

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

var

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

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

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

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

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

SSort, //Имя поля таблицы, по которому будет производиться сортировка

SMenu, //Текст сообщения в диалоговом окне ввода

s;

//Формируем текст сообщения в диалоговом окне ввода

SMenu="1 - Сортировка по фамилии\n";

SMenu+="2 - Сортировка по телефону\n";

SMenu+="\n\nКоманда:";

//Выводим диалоговое окно для ввода режима сортировки

Res=WSHInputBox(SMenu,"Работа с базой данных");

//Анализируем введенное значение

switch (Res) {

case "1": {

SSort="LastName";

break;

}

case "2": {

SSort="Phone";

break;

}

default: {

WScript.Echo("Вы ввели неправильное значение!");

WScript.Quit();

}

}

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

SSource = "SELECT * FROM Phone ORDER BY "+SSort;

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

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