以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  使用access数据库  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=101809)
--  作者：hbhb
--  发布时间：2017/6/7 15:45:00
--  使用access数据库
大师：帮助中描述：“需要注意的是，压缩项目不会对外部数据表起作用，如果你有数据表来自于外部数据源，例如SQL Server、Access、Oracle，那么请直接在这些软件中执行压缩命令，Access对应的命令是“压缩与修复”，SQL Server对应的命令是“收缩”。”

请问直接用代码如何实现“Access对应的命令是“压缩与修复”，SQL Server对应的命令是“收缩”。”
--  作者：有点色
--  发布时间：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

 
--  作者：有点色
--  发布时间：2017/6/7 17:05:00
--  

http://www.cnblogs.com/fyen/archive/2011/01/18/1938707.html