创建数据库范例

目录

如下代码显示如何通过 Create 方法创建新的 Jet 数据库。

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