不看会后悔的Windows XP之经验谈	简单快捷DIY实用家庭影院

vb连access怎样实现备份功能?

楼主nydelphi（程序狂人）2002-12-02 21:48:03 在 VB / 数据库(包含打印，安装，报表) 提问

请给出例子问题点数：20、回复次数：13Top

1 楼nydelphi（程序狂人）回复于 2002-12-02 21:57:49 得分 0

up
up
up
upTop

2 楼starry（Eric）回复于 2002-12-03 13:25:07 得分 5

access没有备份机制，自己编程拷贝备份吧Top

3 楼ba_saner（老张）回复于 2002-12-03 14:42:33 得分 0

ACCESS这样的桌面数据库，备份.MDB文件就可以了
VB内的文件操作应该没问题吧Top

4 楼of123（）回复于 2002-12-03 15:16:44 得分 10

DAO:
DBEngine.CompactDatabase olddb, newdb, locale, options, password

olddb 、newdb 字符串（可含路径）
locale 可选。指定排序语言。例如：dbLangChineseSimplified。
此参数中还可以新建口令：
dbLangSpanish & ";pwd=NewPassword"
如果语言不变，只加口令：
";pwd=NewPassword"
options 可选。一些选项常数。
password 可选。当数据库有口令时使用：";pwd=NewPassword"
Top

5 楼of123（）回复于 2002-12-03 15:30:02 得分 0

ADO:
引用Microsoft Jet and Replication Objects X.X library
Dim jro As jro.JetEngine
Set jro = New jro.JetEngine
jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\oldDB.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\newDB.mdb;Jet OLEDB:Engine Type=4"

Jet OLEDB:Engine Type=4 指定 Jet 3.x 格式 MDB 文件（Access 97)。如果忽略此值，数据库自动升级到 4.0 版 (Jet OLEDB:Engine Type=5, Access 2000)。Top

6 楼of123（）回复于 2002-12-03 15:30:40 得分 0

7 楼henrryzhang（North Wolf）回复于 2002-12-03 16:24:33 得分 5

'先关掉数据库
If ConnMdb.State = 1 Then ConnMdb.Close

'用FSO的方法备份MDB文件就行了
If BackupOriginal = True Then
strBackupFile = App.Path & "\backup.mdb"
If Len(Dir(strBackupFile)) Then Kill strBackupFile
FileCopy Location, strBackupFile
End If
Top

8 楼nydelphi（程序狂人）回复于 2002-12-03 17:02:58 得分 0

谢了
各位Top

9 楼heipifeng（黑披风）回复于 2002-12-03 18:32:04 得分 0

看不大懂，学习Top

10 楼laihua（背着石头过河）回复于 2002-12-22 16:21:55 得分 0

有恢复的吗？？Top

11 楼chenyu5188（来自东方的狼）回复于 2002-12-23 00:02:58 得分 0

UPTop

12 楼shawls（VB Fan)(QQ:9181729）回复于 2002-12-23 00:10:49 得分 0

to henrryzhang(North Wolf) (

有必要用fso么？

vba.filecopy

name

kill

可以完成的Top

13 楼chanet（牧师）回复于 2002-12-23 00:10:58 得分 0

复制和导出两种方法！Top

14 楼yanger007（乐乐）回复于 2002-12-24 15:10:46 得分 0

filecopy 就可以了，但一定要记得先关闭数据库！特别是数据库还原时！Top