主题：数据库备份与还原

 

备份结束后，把提示窗口关闭，即可。

哪提示窗口显示时间设多长呢？长的话备份完数据了还在显示，如果设置短了，备份还没完呢，他就关闭了，怎么就能同步呢？

 

不用设置显示时间多长，打开窗口后，开始备份，在备份结束后（备份代码后面）把窗口关闭即可。

老师，函数怎么写呀？实例中函数是有时间的，到设置时间点就关闭窗体了，可是我是要实现备份完数据、还原晚数据后就关闭该窗体，备份还原数据时间又不是固定的，怎么设呢？不知道怎么调用这个窗体？

 不明白你的意思，你使用哪个例子？你可以把函数的设置时间的代码去掉。

 

 上传实例说明。

http://www.foxtable.com/bbs/viewFile.asp?BoardID=2&ID=69539

上传你自己的例子。

想实现打开数据备份与恢复窗体，单击数据备份或者数据恢复按钮，执行一个等待窗体，当备份数据或恢复数据完成后，等待窗体就关闭了。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:pos机进销存管理系统.zip

压缩备份与还原怎么调用等待窗体呀？

 

 

我的压缩备份代码如下：

Dim dlg As new SaveFileDialog
dlg.Filter = "压缩文件|*.zip"
dlg.FileName = format(Date.now, "yyyyMMddHHmmss") & ".zip"
If dlg.ShowDialog = DialogResult.OK Then
    Dim zip As New zipFile
    zip.Create(dlg.FileName)
    zip.AddFolder(ProjectPath)
    zip.Close()
End If

 

我的还原代码如下：

Dim dlg As new OpenFileDialog
dlg.Filter = "压缩文件|*.zip"
If dlg.ShowDialog = DialogResult.OK Then
    Dim zip As New zipFile
    zip.Open(dlg.FileName)
    zip.ExtractAll(ProjectPath)
    zip.Close()
    msgbox("已恢复")
    'Application.restart
End If