ADO-ADOX: как создать mdb-базу?

[hasuhands]

Обрыскал помойку-MSDN. Может руки кривые, может совсем дурак, но так и не нашел примера того, как можно программно на ADO-ADOX создать mdb-базу, внутри нее таблицу с определенной структурой.

Может быть приведете пример?
У таблицы - 2 поля. Одно - текстовое, другое - числовое. Это, к примеру.

Вполне устроит ссылочка на что-нибудь, что подробно осветит этот вопрос.

Пасибо

[alibek]

Код: Выделить всё

Public Function CreateDB(ByVal FileName As String) As ResultCodes
Dim res As ResultCodes
Set cat = New ADOX.Catalog
On Error Resume Next
cat.Create "Provider=" & dbProvider & ";Data Source=" & FileName
If Err = 0 Then CreateDB = rcOK
On Error GoTo 0
Set cat = Nothing
End Function

[hasuhands]

Нашел еще:

Код: Выделить всё

Dim oCat As ADOX.Catalog
Dim oTable As ADOX.Table
Dim oColumn As ADOX.Column
Dim oKey As ADOX.Key

' Delete any previous temp file
On Error Resume Next
Kill ".\new35.mdb"
On Error GoTo 0

' Create a new database in 3.5 format (Access 97)
Set oCat = New ADOX.Catalog
oCat.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source=.\new35.mdb;" & _
            "Jet OLEDB:Engine Type=4;"

' Create a new Table
Set oTable = New ADOX.Table
oTable.Name = "WebSite"
oCat.Tables.Append  oTable

' Create a new AutoNumber ID Column
Set oColumn = New ADOX.Column
With oColumn
    .Name = "WebSiteID"
    .Type = adInteger
    Set .ParentCatalog = oCat ' Must set before setting properties
    .Properties("Autoincrement") = True
End With
oCat.Tables("WebSite").Columns.Append  oColumn

' Create a new Primary Key for the table
Set oKey = New ADOX.Key
With oKey
    .Name = "PrimaryKey"
    .Type = adKeyPrimary
    .RelatedTable = "WebSite"
    .Columns.Append "WebSiteID"
End With
oCat.Tables("WebSite").Keys.Append  oKey


Может кому-то пригодиться

ps http://www.able-consulting.com/ADOX_Faq.htm

[hasuhands]

Господа, подскажите какие properties могут быть у Column'а?

Мне нужно сделать поле, в котором допускаются пустые значения. Как?
With oColumn
.Properties("???") = True
End With

[alibek]

Они разные могут быть, надо смотреть по конкретному провайдеру.
Для Jet.4 это задается так:

Код: Выделить всё

objColumn.Attributes = objColumn.Attributes Or adColNullable