用ADOX创建一个新的access2000数据库

时　间:2005-01-25 00:00:00
作　者:竹笛   ID：8  城市：上海  QQ：2851379730
摘　要:用ADOX创建一个新的ACCESS2000数据库 
正　文:

利用ADOX的Catalog对象的Create方法创建一个新的ACCESS2000数据库,在窗体中某个按钮事件中写下述代码：

Dim strPathToFile As String
Dim strConn As String
Dim cat As New ADOX.Catalog
strPathToFile = CurrentProject.Path + "\new.mdb"
strConn = "provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & strPathToFile & ";"
Set cat = New ADOX.Catalog
cat.create strConn

注意：要引用 Microsoft ADO Ext.2.7 for Dll and security(或2.8),不是ADO（Microsoft Activex Data Objects）