建立ACCESS資料庫

2010-06-28

1805
0
資料庫相關

建立ACCESS資料庫

若是Access2000以後的格式直接用CreateObject的方式就可以。

Dim CreaStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DataSource
Dim Catalog As Object = CreateObject("ADOX.Catalog")
Catalog.Create(CreaStr)

若是Access97的格式如以下程式碼，但必須加入一個Interop.ADOX.dll，Google一下就有了。

            Dim ado As New ADOX.Catalog
            ado.Create("Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & DataSource)

回首頁