Windows Scripting - Как создать базу данных Microsoft Access

Подписка на рассылку

Лучше смотреть с Microsoft Internet Explorer 4.0 и выше

Как создать базу данных Microsoft Access?

Создать базу данных Microsoft Access можно с помощью библиотеки ADOX (Microsoft ADO Extensions for Data Definition Language and Security).

В следущем примере мы создадим базу данных phones.mdb, а в ней - таблицу "Phone Book" с двумя текстовыми полями: "Name" и "Phone".

Обратите внимание, что в качестве провайдера OLE DB мы указываем Microsoft Jet, поскольку только этот провайдер полностью поддерживает ADOX. Другие провайдеры могут не поддерживать часть функциональности ADOX.

Например, Microsoft SQL Server OLE DB Provider не поддерживает создание баз данных. При попытке использовать неподдерживаемую функциональность возвращается ошибка 80004002 "No such interface supported".

И еще одно: если база данных уже существует, то при вызове метода Create возникнет ошибка 80040E17 "Database already exists".

Листинг: create_mdb.vbs

Option Explicit

Const DatabaseName = "phones.mdb"

Dim Catalog
Set Catalog = CreateObject("ADOX.Catalog")
Catalog.Create _
	"Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & DatabaseName

Dim Table
Set Table = CreateObject("ADOX.Table")

Table.Name = "Phone Book"

Table.Columns.Append "Name"
Table.Columns.Append "Phone"

Catalog.Tables.Append Table

Set Catalog = Nothing