VBS Expert

1. Файловая система
   1. Текстовые файлы
   2. Двоичные файлы
   3. Каталоги
   4. Zip-архивы
2. Регулярные выражения
   1. Функция TestString
   2. Функция ExecRegexp
   3. Функция FindAll
   4. Функция rgReplace
3. Базы данных
   1. Объект Recordset
   2. Объект Command
4. Двоичные данные
   1. Функция StrToUTF8
   2. Функция BStrToBinStr
   3. Функция BStrToHexStr
   4. Функция BinStrToHexStr
   5. Функция HexStrToBinStr
5. Полезные функции
   1. Буфер обмена
   2. Процедура Echo
   3. Процедура Include
   4. Хеш-функция MD5
   5. Функция getUserName
   6. Функция PadLeft

Базы данных и объект Command

В отличие от объекта Recordset, позволяющего делать простые текстовые запросы к БД, объект ADODB.Command имеет коллекцию Parameters, содержащую множество параметров Sql-запроса. Объект Command может инкапсулировать в себе запросы на добавление, получение, обновление и удаление записей в таблицах базы данных.

Для создания нового параметра используется метод объекта Command – CreateParameter, принимающий на вход имя, тип, длину (актуально для строковых типов данных) и значение параметра. Далее созданный параметр необходимо с помощью метода Append добавить в коллекцию Parameters нашего объекта Command. В тексте Sql-запроса, на месте, где должно располагаться значение параметра, ставится знак вопроса.

В данном примере извлекаются продукты категории 'SeaFood', цена которых не превышает 30$.

Set cmd = CreateObject("ADODB.Command")

cmd.CommandText =  "SELECT ProductName, UnitPrice & '$' FROM  products INNER JOIN categories " & _ 
                    "ON products.CategoryID=categories.CategoryID " & _
                    "WHERE categories.CategoryName = ? AND products.UnitPrice <= ? ORDER BY 1"

Const maxPrice = 30
Const CategoryName = "SeaFood"

Set parm1 = cmd.CreateParameter("", adChar, adParamInput, Len(CategoryName), CategoryName)
Set parm2 = cmd.CreateParameter("", adInteger, adParamInput,, maxPrice)

Call cmd.Parameters.Append(parm1)
Call cmd.Parameters.Append(parm2)

cmd.ActiveConnection = ConnectStr'открытие соединения

Set objRecordSet = cmd.Execute()

If Not objRecordSet.EOF Then

	WScript.Echo objRecordSet.GetString()

Else

	WScript.Echo "No records in recordset!"

End If

Call cmd.ActiveConnection.Close()

Boston Crab Meat	18,4$
Escargots de Bourgogne	13,25$
Gravad lax	26$
Inlagd Sill	19$
Jack's New England Clam Chowder	9,65$
Konbu	6$
Nord-Ost Matjeshering	25,89$
Rod Kaviar	15$
Rogede sild	9,5$
Spegesild	12$

Примечание: вместо команды SELECT аналогичным образом можно использовать команды INSERT, UPDATE, DELETE.