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

Полностью текст сценария MoveInTable.js приведен в листинге 9.7.

/*******************************************************************/

/* Имя: MoveInTable.js */

/* Язык: JScript */

/* Описание: Перемещение по набору записей в обратном порядке */

/*******************************************************************/

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

var

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

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

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

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

s;

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

SSource = "SELECT * FROM Phone";

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

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

SConnect = "DSN=PhoneDS";

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

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

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

RS.CursorType = 3;

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

RS.Open(SSource,SConnect);

//Переходим на последнюю запись

RS.MoveLast();

SOut="ВСЕ ЗАПИСИ ИЗ ТАБЛИЦЫ phone.dbf В ОБРАТНОМ ПОРЯДКЕ:\n";

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

while (!RS.BOF) {

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

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

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

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

s+="\n";

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

SOut+=s;

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

RS.MovePrevious();

}

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

RS.Close();

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

WScript.Echo(SOut);

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

Напомним, что для получения доступа к базе данных мы предварительно создали DSN с именем PhoneDS (рис. 9.9). Однако связываться с базами данных можно и без описания DSN (DSN, Less Database Access). Для этого необходимо в качестве второго параметра метода Openобъекта Recordsetзадать строку, в которой явно будут записаны название нужного драйвера и параметры соединения с базой. Для используемой нами базы данных DBF-формата достаточно указать каталог, в котором находятся нужные таблицы (этот параметр называется DefaultDir). Например, если таблицы расположены в каталоге Tabl на диске С:, то строка SConnс параметрами соединения имеет следующий вид:

SConn="Driver={Microsoft dBase Driver (*.dbf)};DefaultDir=C:\\Tabl";

К положительным моментам доступа к данным без предварительного создания DSN можно отнести то, что строка соединения с базой формируется во время выполнения сценария (имя базы данных можно передавать в качестве параметра) — это позволяет писать более гибкие сценарии. Кроме этого, сценарий, не требующий предварительной настройки ODBC, легче переносить на другие машины. Недостаток этого подхода состоит в невозможности установить контроль над соединением с базой в той мере, в какой это позволяет сделать ODBC (это становится важным при работе с базой данных, находящейся в сети).

В листинге 9.8 приведен сценарий DSN_Less.js, в котором доступ к таблице Phone осуществляется без использования DSN (предполагается, что файл Phone.dbf находится в текущем каталоге).

/*******************************************************************/

/* Имя: DSN_Less.js */

/* Язык: JScript */

/* Описание: Просмотр записей таблицы без использования DSN */

/*******************************************************************/

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

var

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

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

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

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

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

SDefaultDir, //Путь к каталогу, в котором находится таблица Phone

s;

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

WshShell = WScript.CreateObject("WScript.Shell");

//Определяем путь к текущему каталогу, в котором хранится таблица Phone

SDefaultDir=WshShell.CurrentDirectory;

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

SSource = "SELECT * FROM Phone";

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

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

SConnect="Driver={Microsoft dBase Driver (*.dbf)};DefaultDir="+SDefaultDir;

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

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

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