Catlog 对象

可以生成数据库。

Set connection = CreateObject("ADOX.Catalog")
属性/方法 意义
Create(连接字符串) 根据连接字符串生成数据库，同 Connection 对象
ActiveConnection 活动连接的 Connection 对象
可以直接设为 连接字符串 自动打开

生成 ACCESS 数据库并建表的示例：

Sub CreateMDB(mdb)
    Dim cat As New ADOX.Catalog
    Dim cn As New ADODB.Connection

    cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;data source=" & mdb
    Set cn = cat.ActiveConnection
    cn.Execute "create table abc ( a integer, b integer )"
    Set cat = Nothing
End Sub

.