我们利用远程数据库存储数据非常方便,这样不管在那里都可以访问,但这种方式也存在很大风险,如果云端数据库服务终止或者崩溃了,你的宝贵数据也就完蛋了,所以备份数据和备份项目一样重要甚至更重要。
一、利用exporter备份项目的方法
Dim t As String
Dim c As Integer = DataTables.Count
Dim i As Integer = 0
For Each dt As DataTable In DataTables
Dim ex As New Exporter
ex.FilePath = ProjectPath & "backup\" & Today & ".mdb"
ex.SourceTableName = dt.Name
i= i + 1
StatusBar.Message3= "正在备份" & dt.name & i &"/" & c
StatusBar.ProgressBar.Visible =True
StatusBar.ProgressBar.Value = i/c
t = dt.LoadFilter
If t <> "" Then
dt.LoadFilter= ""
dt.load
ex.Export()
dt.LoadFilter = t
dt.load
Else
ex.Export()
End If
Next
上面的方法 我利用了一个循环遍历所有的表 一个个导出,这样效率很低,反映很慢,客户以为死机了,而且我设置的动态进度条和状态显示也没有用。这是为什么呢?
如果export有个选项支持一次导出整个数据库就好了。
做好了备份 下一步就是恢复,恢复如果靠导入来实现的话,导入之前需要先 清空原有数据,这个清空怎么做?
[此贴子已经被作者于2013-3-18 14:52:36编辑过]