数据备份恢复问题

Question

那你用相对路径呀magbox app.path

Answer 1

msgbox  app.path  看看就知道了

Answer 2

App.path返回应用程序所在路径，即用户安装路径。可以据此来获取数据库路径，只要将数据库文件安装到应用程序所在目录即可。
覆盖数据库文件，只要用FileCopy即可。不过如果数据库是打开的，则要用Open...For Binary来备份，覆盖也一样。

Answer 3

直接这样就可以的吗？
和安装在什么目录没关系了，是吗？
filecopy的具体用法是？
我没有msdn的

Answer 4

本示例使用 FileCopy 语句来复制文件。示例中假设 SRCFILE 为含有数据的文件。Dim SourceFile, DestinationFile
SourceFile = "SRCFILE" ' 指定源文件名。
DestinationFile = "DESTFILE" ' 指定目的文件名。
Filecopy SourceFile, DestinationFile ' 将源文件的内容复制到目的文件中。

Answer 5

Ctrl+C And Ctrl+V
复制一个文件。语法FileCopy source, destinationFileCopy 语句的语法含有以下这些命名参数：部分 描述
source 必要参数。字符串表达式，用来表示要被复制的文件名。source 可以包含目录或文件夹、以及驱动器。
destination 必要参数。字符串表达式，用来指定要复制的目地文件名。destination 可以包含目录或文件夹、以及驱动器。
说明如果想要对一个已打开的文件使用 FileCopy 语句，则会产生错误。

Answer 6

有个方法可以备份数据库的同时，并压缩数据库。以access2000的数据库为例
需要引用 Microsoft AxtiveX Data Objcets 2.x Library
方法：工程-》引用 Microsoft AxtiveX Data Objcets 2.x LibraryPrivate Sub Command1_Click()    Dim JRO As New JRO.JetEngine
    
    Dim path1 As String '源路径
    'path1=写上 源数据库路径
    Dim path2 As String '目标路径
    'path2 = 用户指定的路径
    Dim DBjet As String '数据库类型
    DBjet = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
    JRO.CompactDatabase DBjet & path1, DBjet & path2
    
End Sub

Answer 7

感谢各位大哥的热心帮助
我觉得FILECOPY也许比较符合我的要求
但也许(极有可能,因为我在窗体载入时连接数据苦,退出时关闭数据库)用户在数据文件打开时备份那该如何??

Answer 8

基本上已经解决问题了
备份时先关掉，完成后再打开就可以了:)
另外commonDilogue的Filter怎么设置