那位有备份access的小程序,介绍一个吧,功能:设定时间自动备份到制订目录,可恢复数据库等功能
解决方案 »
- activereport 在同一张纸上打印多个报表,如何实现?
- MSFlexGrid简单的小问题???
- 【问】如何只载入一个页面的源码而不载入其它图片等资源?
- 哪儿有 Office XP 风格的免费的稳定的工具栏控件?
- 有没有办法不让mdi主窗口显示子窗口最小化等按钮?
- 变量的使用
- http://www.curtsoft.com/vbgoodforum/bbs.htm
- 一个菜鸟问题如何在MSHFLEXGRID里删除多行数据
- 求教:如何在access中使用vba实现将查询结果(sql语句)赋值给窗体控件(text文本框)?
- VB 生成的 word表格 没有边框线?还有几个小问题
- 怎样做一个简单的数据报表
- 用VB+ access,把数据库做成服务端+客户端的问题,各位请进!
-----------------
我要吃麻花,给偶拧一个吧:[email protected] 带小数据库哦
-----------------
我要吃麻花,给偶拧一个吧:[email protected] 带小数据库哦
俺呀想要来看看大虾是如何写的:[email protected]
我也发现清理压缩之后access文件小了好多,请问大侠我怎么用程序实现此工作(解决此问题给给50分)
Dim StrBack As String '压缩修复后备份数据库路径和名称
Dim miJRO As JRO.JetEngine
strDB = App.Path & "\db.mdb"
strBack = "d:\dbBack.mdb"
Set miJRO = New JRO.JetEngine
miJRO.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0; " _
& "Data Source=" & strDB & ";" _
& "Jet OLEDB:Database Password=123", _
"Provider=Microsoft.Jet.OLEDB.4.0; " _
& "Data Source=" & StrBack & ";" _
& "Jet OLEDB:Database Password=123"'以上代码要在“工程/引用”菜单下引用 microsoft jet and replicaction objects 2.6