Create メソッドの例 (VB)

次のコードでは、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