- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 求创建access数据库的代码 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=28811)
-- 发布时间：2013/2/19 17:00:00
-- 求创建access数据库的代码
我在做一个小财务软件，当第二个年度的时候需要创建新的数据库，需要通过代码来创建access数据库，可是系统
此主题相关图片如下：11.jpg
功能，不能默认路径和文件名-- 发布时间：2013/2/19 18:10:00
--
如下代码
Dim cat As New ADOX.CatalogClass
cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\\test.mdb;Jet OLEDB:Engine Type=5")
msgbox("完成")
[此贴子已经被作者于2013-2-19 18:10:06编辑过]
-- 发布时间：2013/2/19 22:08:00
--
对的，就是这样，非常感谢
-- 发布时间：2013/2/19 22:36:00
--
代码不完整，这样创建完的数据库没办法直接建表，数据库连接没有被关闭
-- 发布时间：2013/2/20 9:27:00
--
以下是引用410109296在2013-2-19 22:36:00的发言：
代码不完整，这样创建完的数据库没办法直接建表，数据库连接没有被关闭
代码不完整，这样创建完的数据库没办法直接建表，数据库连接没有被关闭
嗯嗯，确实是，忘记标注释放了。
Dim cat As New ADOX.CatalogClass
cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\\test.mdb;Jet OLEDB:Engine Type=5")
cat = Nothing
msgbox("完成")
-- 发布时间：2015/2/4 10:36:00
--
太好了，正需要这个