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

Question

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

Answer 1

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

Answer 2

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

Answer 3

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)。

Answer 4

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)。

Answer 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

Answer 6

to henrryzhang(North Wolf) (
有必要用fso么？vba.filecopynamekill可以完成的

Answer 7

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