怎么在vb6里面建access2000的数据库？？

Question

Public Sub CreateDatabaseX(ByRef dataBaseName As String)
    On Error Resume Next
   Dim wrkDefault As Workspace
   Dim dbsNew As Database
   Dim prpLoop As Variant
   Set wrkDefault = DBEngine.Workspaces(0)
   If Dir(dataBaseName) <> "" Then Kill dataBaseName
   Set dbsNew = wrkDefault.CreateDatabase(dataBaseName, dbLangGeneral, dbEncrypt)
   dbsNew.Close
End Sub

Answer 1

什么？解释的清楚一点好么？
我的意思是
是不是装个vb的补丁就可以在
可视化数据管理器里直接建access2000
还是其他办法

Answer 2

就算装了补丁，也不能在可视化数据管理器里直接建access2000
只有用代码了

Answer 3

好象要装个vb sp5。不过我没试过，你不妨试试！

Answer 4

VB自带的可视化数据管理器不支持ACCESS2000的，但是VB支持代码操作2000的数据库的

Answer 5

use dao or adox jdo.....

Answer 6

'需要引用 Microsoft ADO Ext 2.x for DDL and Security
Sub CreateDatabase()
   Dim cat As New ADOX.Catalog
   cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\new.mdb"
End Sub

Answer 7

你可以在Access2000的数据库建立一个以文件的形式在VB的语言中写入就可以 了呀
也可以用插入控件的方法呀