有点甜老师 下述代码在命令窗口中可以完美运行
但是如果在窗体按钮事件中 就无法了 直接关闭项目 求解
目前我的思路是窗体打开后 运行Connections.Add("test","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\data\订单.mdb;Persist Security Info=False")
然后按钮事件 运行这个代码外的其他代码
不知道可行不!
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
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
Next
End If
[此贴子已经被作者于2015-1-15 17:33:30编辑过]