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

Windows Script Host для Windows 2000/XP

на обложку

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

Шрифт:

//Инициализируем константы для диалоговых окон

var vbInformation=64,vbOkOnly=0;

//Определение значения тега tgName XML-элемента obj

function GetTagVal(obj, tgName) {

var ElemList;

//Создаем коллекцию дочерних для obj элементов, которые

//задаются тегом tgName

ElemList=obj.getElementsByTagName(tgName);

//Проверяем, есть ли в коллекции ElemList элементы

if (ElemList.length>0)

//Возвращаем значение тега tgName

return ElemList.item(0).text

else return "";

}

//Вставка в таблицу одной записи

function PersonToTable(XNode) {

var SSQL=""; //Переменная для формирования текста SQL-запроса

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

SSQL+="'"+GetTagVal(XNode,"LastName")+"',";

SSQL+="'"+GetTagVal(XNode,"Name")+"',";

SSQL+="'"+GetTagVal(XNode,"Phone")+"',";

SSQL+="'"+GetTagVal(XNode,"Street")+"',";

SSQL+="'"+GetTagVal(XNode,"House")+"',";

SSQL+="'"+GetTagVal(XNode,"App")+"',";

SSQL+="'"+GetTagVal(XNode,"Note")+"'";

//Формируем текст SQL-запроса для вставки записи

SSQL="INSERT INTO Phone (LastName,Name,Phone,Street,House,App,Notes) VALUES ("+SSQL+")";

//Выполняем подготовленный SQL-запрос (добавляем запись в таблицу)

Connect.Execute(SSQL);

}

//Копирование данных из XML-файла в таблицу Phone

function XMLToBase {

var XML,Root,NomRec,CurrNode,i;

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

XML = WScript.CreateObject("Msxml.DOMDocument");

//Загружаем XML-документ из файла

XML.load(PathBook);

//Сохраняем в переменной Root ссылку на корневой элемент документа

Root=XML.documentElement;

//Перебираем все дочерние элементы первого уровня вложенности

//для корневого элемента

for (i=1; i<=Root.childNodes.length-1;i++) {

//Выделяем в коллекции XML-элементов i-й элемент

CurrNode=Root.childNodes.item(i);

//Вставляем новую запись в таблицу Phone

PersonToTable(CurrNode);

}

//Основная запускная функция

function Main {

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

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

//Путь к XML-файлу с данными

PathBook=WshShell.CurrentDirectory+"\\book.xml";

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

Connect=WScript.CreateObject("ADODB.Connection");

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

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

SConnect="DSN=PhoneDS";

//Устанавливаем связь с БД

Connect.Open(SConnect);

//Копируем данные из XML-файла в таблицу БД

XMLToBase;

//Выводим сообщение об окончании переноса данных

WshShell.Popup("Данные из XML-файла в таблицу перенесены!", 0,

"Работа с базой данных",vbInformation+vbOkOnly);

}

/******************* Начало **********************************/

Main;

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

Просмотр записей в таблице

После того как мы произвели копирование записной книжки в таблицу Phone.dbf, возникает естественное желание просмотреть из сценария введенные записи. Напишем для этой цели сценарий ListRecords1.js, результат работы которого представлен на рис. 9.10.