备份数据库是利用文件的复制功能,即FileCopy命令。在进行文件备份前,应对VB作如下设置,在“部件”中加入Microsoft Jet and Replication Object 2.5 library,并在适当的位置加入以下程序代码
Set jro = New jro.JetEngine
jro.CompactDatabase"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & file_mdb, " __’来源文件Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & copy_mdb & ";Jet OLEDB:Engine Type=4" ’目的文件
上述代码要在Data Source处加入相应来源文件内容及目的文件的路径。