Foxtable(狐表)用户栏目专家坐堂 → 求创建access数据库的代码


  共有5313人关注过本帖树形打印复制链接

主题:求创建access数据库的代码

帅哥哟,离线,有人找我吗?
410109296
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:157 积分:2159 威望:0 精华:0 注册:2011/8/1 14:23:00
求创建access数据库的代码  发帖心情 Post By:2013/2/19 17:00:00 [只看该作者]

我在做一个小财务软件,当第二个年度的时候需要创建新的数据库,需要通过代码来创建access数据库,可是系统
图片点击可在新窗口打开查看此主题相关图片如下:11.jpg
图片点击可在新窗口打开查看功能,不能默认路径和文件名

 回到顶部
帅哥哟,离线,有人找我吗?
lin_hailun
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
410109296
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:157 积分:2159 威望:0 精华:0 注册:2011/8/1 14:23:00
  发帖心情 Post By:2013/2/19 22:08:00 [只看该作者]

对的,就是这样,非常感谢


 回到顶部
帅哥哟,离线,有人找我吗?
410109296
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:157 积分:2159 威望:0 精华:0 注册:2011/8/1 14:23:00
  发帖心情 Post By:2013/2/19 22:36:00 [只看该作者]

代码不完整,这样创建完的数据库没办法直接建表,数据库连接没有被关闭

 回到顶部
帅哥哟,离线,有人找我吗?
lin_hailun
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By: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("完成")

 回到顶部
帅哥哟,离线,有人找我吗?
九易六
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:184 积分:1800 威望:0 精华:1 注册:2009/3/16 14:05:00
  发帖心情 Post By:2015/2/4 10:36:00 [只看该作者]

太好了,正需要这个


 回到顶部