先引用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"
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
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\new.mdb"
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
您说的“conn.excute "create datebase ...."”,conn是指connection连接对象,而execute "creat database ..."是“Execute 方法 (ADO Connection)”中的“不按行返回的命令字符串”用法,对吗?但我查MSDN,SQL语句中似乎没有create database这样的语句,应该到哪里去查?