Foxtable(狐表)用户栏目专家坐堂 → 使用access数据库


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

主题:使用access数据库

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


加好友 发短信
等级:狐神 帖子:5061 积分:13092 威望:0 精华:0 注册:2014/5/15 21:34:00
使用access数据库  发帖心情 Post By:2017/6/7 15:45:00 [只看该作者]

大师:帮助中描述:“需要注意的是,压缩项目不会对外部数据表起作用,如果你有数据表来自于外部数据源,例如SQL Server、Access、Oracle,那么请直接在这些软件中执行压缩命令,Access对应的命令是“压缩与修复”,SQL Server对应的命令是“收缩”。”

请问直接用代码如何实现“Access对应的命令是“压缩与修复”,SQL Server对应的命令是“收缩”。”

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/6/7 17:03:00 [只看该作者]

Dim objJRO = CreateObject("JRO.JetEngine")
Dim strS As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\foxtable\商业版\CaseStudy\test.MDB"
Dim strD As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\test.MDB"
objJRO.CompactDatabase(strS, strD)
msgbox("ok")

 

或者

 

http://www.foxtable.com/webhelp/scr/1272.htm

 


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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/6/7 17:05:00 [只看该作者]


 回到顶部