请问各位高手：怎样用ADO创建一个DATABASE(不是TABLE或RECORDSET)？

Question

conn.excute "create datebase ...."

Answer 1

先引用microsoft ado ext 2.x for ddl and securityDim cat As New ADOX.Catalog
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\new.mdb"

Answer 2

Private Sub CREATEDATA(DATAPATH As String)
    Dim wrkDefault As Workspace
    Dim dbsNew As Database
    Set wrkDefault = DBEngine.Workspaces(0)
    If Dir(DATAPATH) <> "" Then Kill DATAPATH
    Set dbsNew = wrkDefault.CreateDatabase(DATAPATH, dbLangGeneral, dbEncrypt)
    dbsNew.Close
    Set dbsNew = Nothing
    wrkDefault.Close
    Set wrkDefault = Nothing
End Sub

Answer 3

to csdnmcfroo(pigger):
　　您说的“conn.excute "create datebase ...."”，conn是指connection连接对象，而execute "creat database ..."是“Execute 方法 (ADO Connection)”中的“不按行返回的命令字符串”用法，对吗？但我查MSDN，SQL语句中似乎没有create database这样的语句，应该到哪里去查？