先用用DAO好啦!建立进行数据处理的时候,再去用ADO调用!
Public Sub create_db(dbname As String) 'bakname ------ 备份文件的路径及文件名
Dim aaa As String
Dim db As Database
Set db = DBEngine.Workspaces(0).CreateDatabase(dbname, dbLangGeneral)
Set db = Nothing
end sub如果非要用ADO建立也可以,用MSADOX.DLL就行了,相关的资料在WINDOWS的PROGRAMFILES\COMMON下可以看到帮助文件!
Public Sub create_db(dbname As String) 'bakname ------ 备份文件的路径及文件名
Dim aaa As String
Dim db As Database
Set db = DBEngine.Workspaces(0).CreateDatabase(dbname, dbLangGeneral)
Set db = Nothing
end sub如果非要用ADO建立也可以,用MSADOX.DLL就行了,相关的资料在WINDOWS的PROGRAMFILES\COMMON下可以看到帮助文件!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货