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

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

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

Sub CreateDatabase()

   Dim cat As New ADOX.Catalog

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

End Sub