13. Применение ADO и работа с базами данных

Работа с базами данных при помощи ADO из VBScript: самостоятельная работа

Упражнение 1. Запись информации в базу данных

Задание:

создайте на своем компьютере файл базы данных Access c:\software.mdb (или скопируйте ее из каталога Templates и снимите флажок «Только для чтения». Если вы ее скопировали, то создавать в ней таблицу не надо).

создайте в этой базе данных таблицу SoftwareInv со следующими полями:

o       поле ItemNumber с типом данных Счетчик

o       поле Caption с типом данных Текстовый и размером 50

o       поле Description с типом данных Текстовый и размером 100

o       поле PackageCache с типом данных Текстовый и размером 100

o       поле Vendor с типом данных Текстовый и размером 50

o       поле Version с типом данных Текстовый и размером 20

Сделайте поле ItemNumber ключевым.

3) найдите в каталоге Templates скрипт SoftwareInventory.vbs, просмотрите его и запустите на выполнение. Этот скрипт выводит информацию о программах, установленных у вас на компьютере, в консоль вывода.

4) измените этот скрипт таким образом, чтобы он прописывал эту информацию вместо текстового файла в таблицу SoftwareInv созданной вами базы данных Access. Сохраните скрипт как SoftwareInventoryADO.vbs.

Примечание. Если этот скрипт запускается на компьютере под управлением Windows Server 2003, то, скорее всего, возникнет ошибка, поскольку объект Win32_Product по умолчанию в Windows Server 2003 не устаналивается. Необходимо доустановить его вручную. Для этого в панели управления нужно воспользоваться оснасткой Add/Remove Programs, нажать на кнопку Add/Remove Windows Components и в контейнере Management and Monitoring Tools установить WMI Installer Provider.

Код скрипта SoftwareInventory.vbs выглядит так:

Dim cn, rs, strComputer

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colSoftware = objWMIService.ExecQuery _
("Select * from Win32_Product")

For Each objSoftware In colSoftware
WScript.Echo objSoftware.Caption
WScript.Echo objSoftware.Description
WScript.Echo objSoftware.PackageCache
WScript.Echo objSoftware.Vendor
WScript.Echo objSoftware.Version
WScript.Echo vbCrlf
Next

Ответ к упражнению 1. Запись информации в базу данных

Код скрипта SofwareInventoryADO может быть таким:

Dim cn, rs, strComputer

Set cn = CreateObject("ADODB.Connection")

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\software.mdb"

cn.Open

Set rs = CreateObject("ADODB.Recordset")

rs.CursorType = 3

rs.LockType = 3

rs.Open "SoftwareInv", cn

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _

    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colSoftware = objWMIService.ExecQuery _

    ("Select * from Win32_Product")

For Each objSoftware in colSoftware

            rs.AddNew

            rs.Fields("Caption").Value = objSoftware.Caption

            rs.Fields("Description").Value =  objSoftware.Description

            rs.Fields("PackageCache").Value =  objSoftware.PackageCache

            rs.Fields("Vendor").Value =  objSoftware.Vendor

            rs.Fields("Version").Value =  objSoftware.Version

Next

rs.Update

Получить учебные материалы по этому курсу