Программное создание базы данных (ADO)

Прислал: Сонных Дмитрий (aka Joss) sonni-dim@mail.ru

С помощью ADO можно легко изменять структуру данных. Для создания и изменения таблиц, запросов и других объектов данных, например индексов, следует использовать специальную библиотеку ADO, называемую ADOx. Перед использованием ADOx необходимо установить ссылку на библиотеку Microsoft ADO Ext. 2.1 For DDL and Security, выполнив команды меню Tools | References (Сервис | Ссылки) в VBE.
Если ссылка установлена, ADOx готов к использованию.
При использовании ADOx все операции так или иначе связаны с объектом Catalog. Этот объект представляет базу данных. Работая в Access, необходимо всего лишь присвоить свойству ActiveConnection объекта Catalog допустимое значение, соответствующее объекту ADO Command, с которого начинается выполнение.
Создание базы данных
Для создания с помощью ADOx новой пустой базы данных необходимо использовать метод Create объекта Catalog, передав ему значение, содержащее путь и имя создаваемой базы данных.

Sub CreateDataBaseADO(newDB As String)
'Данная процедура создает новую базу данных с использованием возможностей ADOx.
'По материалам книги "Microsoft Access 2000 Development Unleashed" издательства SAMS
'Авторы: Forte, Howe, Ralston
'Объект Catalog в ADOx
	Dim cat As ADOx.Catalog
   	On Error GoTo Proc_Err
   	Set cat = New ADOx. Catalog
   	cat.Create "provider=Microsoft.JET.OLEDB.4.0;data source=" & newDB
   	MsgBox "Database Created!", vbInformation
Proc_Exit:
Exit Sub

Proc_Err:
	MsgBox Err.Description
	Resume Proc_Exit
End Sub

Перед использованием ADOx необходимо установить ссылку на библиотеку Microsoft ADO Ext. 2.X For DDL and Security, выполнив команды меню Tools -> References (Сервис -> Ссылки) в VBE.