求助：利用代码实现了遍历表然后全部导出为一个数据库现在怎么反过来进行恢复操作呢？怎么操作都没有成功 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

测试没发现问题，肯定是你其它代码有问题。

这个按钮事件只有这一个代码求解

不可能，例子。

列子就是上次那内部数据源的涉密信息管理系统

下图是代码图：

此主题相关图片如下：qq图片20150115174227.jpg

这样整体恢复合并遇见表多的时候那是相当吃劲不可取！

不知道有点甜老师有没有什么好的办法没！

或者有么有办法弄一个进度条事件进行显示

当恢复完毕后才允许使用项目不然容易项目假死

[此贴子已经被作者于2015-1-15 18:32:32编辑过]

以下是引用李孝春在2015-1-15 18:30:00的发言：
这样整体恢复合并遇见表多的时候那是相当吃劲不可取！

不知道有点甜老师有没有什么好的办法没！

或者有么有办法弄一个进度条事件进行显示

当恢复完毕后才允许使用项目不然容易项目假死

[此贴子已经被作者于2015-1-15 18:32:32编辑过]

1、你可以弹出窗口显示进度条；

2、每导入一个表格，进度条就加1即可

http://www.foxtable.com/help/topics/0793.htm

试一下了弄成了如下代码结果进度条不走

求指导

For Each dt As DataTable In DataTables

If dt.Type=1 OrElse dt.Type =3 Then

Dim Names As String() = {dt.name}

Dim p As WinForm.ProgressBar

p = e.Form.Controls("ProgressBar1")

p.Maximum = MainTable.Rows.Count '设置最大值

p.Minimum = 0 '设置最小值

p.Value = 0 '设置当前值

For i As Integer = 0 To Names.Length -1

Names(i) = i

If i Mod 100 = 0 Then

p.Value = i '当前值为已经完成的行数

End If

[此贴子已经被作者于2015-1-15 19:44:05编辑过]

If Connections.Contains("Test") = False Then
    Connections.Add("test","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\data\订单.mdb;Persist Security Info=False")

    Dim lst As List(Of String)
    lst = Connections("test").GetTableNames

    Dim p As WinForm.ProgressBar
    p = forms("窗口1").Controls("ProgressBar1")
    p.Maximum = lst.Count
    p.Minimum = 0 '设置最小值
    p.Value = 0 '设置当前值
    For Each nm As String In lst
        If DataTables.Contains(nm) '如果存在统计表1
            Dim mg As New Merger
            mg.SourcePath = "c:\data\订单.mdb"
            mg.SourceTableName = nm
            mg.DataTableName = nm
            mg.Merge()
        Else
            Dim ip As New Importer
            ip.SourcePath = "C:\data\订单.mdb" '指定数据文件
            ip.SourceTableName = nm '指定要导入的表
            ip.NewTableName =nm '导入后的表名
            ip.Import()
        End If
        p.Value += 1
    Next
End If

运行效果：进度条窗体打开后自动滚动

点按钮事件运行楼上代码

此主题相关图片如下：运行效果.gif

此主题相关图片如下：qq图片20150115200409.png

主题：求助：利用代码实现了遍历表然后全部导出为一个数据库 现在怎么反过来进行恢复操作呢？怎么操作都没有成功

主题：求助：利用代码实现了遍历表然后全部导出为一个数据库现在怎么反过来进行恢复操作呢？怎么操作都没有成功