Create new database : Microsoft Jet « Access « VBA / Excel / Access / Word






Create new database

 
Sub CreateDatabase()
    Dim cat As New ADOX.Catalog
    cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _
       "Data Source=C:\mydb.mdb;"
End Sub

 








Related examples in the same category

1.Include the database version information with the JetOLEDB:Engine Type property
2.connect to JET
3.Read table schema
4.Connection String to Access database
5.Use Recordset.Support to check the supported features
6.Open a worksheet through OLEDB
7.Opening a Microsoft Jet Database in Read/Write Mode
8.Sub addJetSqlUser()
9.A Simple Connection Example