Использование библиотек ADO для работы с базами данных ACCESS

Next

For Each f1 in fc

Dim fso, f, f1, fc, s

Работа с информацией файловой системы в языке VBS. Коллекции.

Система Microsoft Visual Basic Scripting Edition для создания объектов, работающих с файловой системой использует библиотеку классов с именем Scripting (файл …\windows\system32\ Scrrun.dll).

Для дальнейшего понимания назначения объектов, их свойств и методов необходимо знание английской компьютерной терминологии. Главный объект библиотеки классов Scripting системы Microsoft Visual Basic Scripting Edition – Scripting.FileSystemObject, который имеет вложенные объекты Drive, Folder, File и TextStream.

Методы объекта FileSystemObject: BuildPath CopyFile CopyFolder CreateFolder CreateTextFile DeleteFile DeleteFolder DriveExists FileExists FolderExists GetAbsolutePathName GetBaseName GetDrive GetDriveName GetExtensionName GetFile GetFileName GetFolder GetParentFolderName GetSpecialFolder GetTempName MoveFile MoveFolder OpenTextFile VarType. Объект имеет одно свойство – Drives, возвращающее ссылку на коллекцию объектов Drive – дисковых устройств в системе.

Коллекция – упорядоченное множество однотипных объектов.

Любая коллекция имеет свойство Count (количество объектов в коллекции).

Ссылки на коллекции возвращает также метод GetFolder: на коллекцию SubFolders (объекты Folder) и на коллекцию Files (объекты File).

Свойства объекта Drive: AvailableSpace DriveLetter DriveType FileSystem FreeSpace IsReady Path RootFolder SerialNumber ShareName TotalSize VolumeName. Методов объект не имеет.

Методы объектов Folder и File: Copy Delete Move OpenAsTextStream.

Свойстваобъектов Folder и File: Attributes DateCreated DateLastAccessed DateLastModified Drive Name ParentFolder Path ShortName ShortPath Size Type.

Методы объекта TextStream: Close Read ReadAll ReadLine Skip SkipLine Write WriteLine WriteBlankLines.

Свойстваобъекта TextStream: AtEndOfLine AtEndOfStream Column Line.

Пример. Информация о папках (результат исполнения – рисунок 5.31).

Set fso = CreateObject("Scripting.FileSystemObject")

s = "C:\inetpub"

Set f = fso.GetFolder(s)

Set fc = f.SubFolders 'коллекция объектов SubFolders

s = s & ", папки: " & vbLF

s = s & f1.name & vbLF 'папки в коллекции SubFolders

MsgBox s, "Коллекция SubFolders"

85. Различия языков программирования VBS и VBA Существенные отличия – в правилах написания имен и в работе с типами данных:

1) В именах (идентификаторах) в языке VBA в русской версии Microsoft Office могут использоваться русские буквы. Нельзя использовать пробел, точку, символы!, @, &, $, #. Первый символ в имени – обязательно буква.

2) Переменные и массивы могут быть объявлены с указанием их типа, как показано в описании синтаксиса массивов.

Типы данных – те же, что и подтипы для VBScript. Особенность этого типа – его нельзя использовать в опи­сании данных, в этот тип можно преобразовать тип Va­riant с использованием функции Cdec().

Категория	Ключевые отличия
Select Case	Выражения могут использовать ключевой слово Is Выражения могут использовать ключевой слово To для задания диапазона значений
Традиционный файловый ввод/вывод Basic	Открыть файл: Open <pathname> For mode [Access access] [lock] As [#]filenumber [Len=reclength], где mode - Append, Binary, Input, Output, or Random; access - Read, Write, or Read Write; Чтение из файла: Input #filenumber, varlist Запись в файл: Print #filenumber, [outputlist]
Date и Time	Задают текущую системную дату и время
Динамический обмен данными (DDE)	LinkExecute, LinkPoke, LinkRequest, LinkSend
Доступ к элементам объектов с!	Например, MyCollection!Count
Перечисления Enum, в отличии от коллекций каждый элемент перечисления имеет имя	[Public | Private] Enum <name> <membername> [= <constantexpression>] ... End Enum Имеют методы Add, Remove и свойства Count, Item. Обращение к методам и свойствам с использованием символа!: <name>! <membername>
Массивы	Индекс с любой заданной нижней границей: Dim [WithEvents] <varname>[([subscripts])] [As [New] <type>] [, [WithEvents] <varname>[([subscripts])][As [New] <type>]]... Где subscripts имеет синтаксис: [<lower> To] <upper> [, [<lower> To] <upper>]...
Обработка ошибок	Erl, Error, Resume, Resume Next
Объекты	Clipboard, Collection
Объявления	Declare (для библиотек DLL) Optional ParamArray Static
Операции	Like
Отладка	Debug.Print End, Stop
Параметры	Option Base, Option Compare, Option Private Module
Задание типов для имен, начинающихся с заданных букв	Deftype Например, DefStr P-T DefInt I-N DefDec A-F
TypeOf для сравнения типов объектов	If TypeOf MyControl Is CommandButton Then …
Type используется для описания типа пользователя	[Private | Public] Type <varname> <elementname> [([subscripts])] As <type1> [<elementname> [([subscripts])] As <type2>]... End Type

Для выполнения сложных расчетных операций с данными таблиц базы данных в системе Access необходимо использовать библиотеки ADO (Microsoft ActiveX Data Objects) или DAO (Microsoft Data Access Objects), о которых упоминалось ранее, как о библиотеках, обеспечивающих подключение к базам данных и выполнение операций с их данными из самых разных программных систем (см. раздел 5.3.1.12 Работа с объектами). Библиотека ADO более современная, чем DAO, считается, что она содержит более развитые возможности работы с данными. Основы работы в этих двух системах очень близки, главным объектом в них на уровне базы данных является Recordset (набор записей).

Если при исполнении данной программы или последующих появляется сообщение об ошибке компиляции "User-defined type not defined", значит Вы не подключили библиотеку ADO (см. рисунок 5.57).

Библиотека ADO (Microsoft ActiveX Data Object) служит для доступа к базам данных различных типов и предоставляет объектный программный интерфейс к интерфейсу OLE DB, который предлагается компанией Microsoft как альтернатива интерфейсу ODBC. Объектная модель ADO реализована на базе технологии COM (Component Object Model).

Библиотека ADO может быть использована в любых средах, которые в состоянии выступить в роли OLE-клиента, например, в MS Office (VBA), 1C:Предприятии, административных скриптах Windows (.vbs и.js) и т.д. Примеры кода в настоящей статье будут приводиться на языке VBScript для административных скриптов Windows. С помощью библиотеки ADO можно обратиться к огромному количеству типов баз данных, например, dBASE, Access, Excel, Oracle, Paradox, MS SQL Server, Sybase, текстовые файлы, FoxPro, Active Directory Service, Microsoft Jet, Interbase, Informix, PostgreSQL, MySQL и т.д., необходимо только наличие установленного соответствующего OLE-провайдера ("драйвера" соответствующего типа базы данных, который устанавливается в систему как правило из дистрибутива этой же базы данных). Примеры кода в настоящей статье будут приводиться только для MS SQL Server, т.к. невозможно объять необъятное. Перечень свойств и методов ADO, приведённый в этой статье, не является исчерпывающим (в некоторых случаях и описание некоторых свойств и методов не является полным). Полное описание объектной модели библиотеки ADO вы можете получить в MSDN или в файле "ADO210.CHM", который входит в поставку MS Office. Однако материала данной статьи достаточно, чтобы начать работать с ADO.

Основными объектами библиотеки ADO являются объекты Connection, Command и Recordset.

Дата добавления: 2015-04-24