創(chuàng)建數(shù)據(jù)庫范例

創(chuàng)建數(shù)據(jù)庫范例

如下代碼顯示如何通過 Create 方法創(chuàng)建新的 Jet 數(shù)據(jù)庫。

Sub CreateDatabase()

   Dim cat As New ADOX.Catalog

   cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\new.mdb"

End Sub