以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助：别人生成的ACCESS文件（多个表），如何一次导入到我们的软件环境中？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101110)
--  作者：zhimin
--  发布时间：2017/5/25 9:26:00
--  求助：别人生成的ACCESS文件（多个表），如何一次导入到我们的软件环境中？
如题！我现在的方式是，一个一个表格分别导入，比较麻烦，请问各位老师如何实现一次性导入？别人生成ACCESS的环境和我要导入的环境是相同的。
谢谢！
--  作者：有点蓝
--  发布时间：2017/5/25 10:31:00
--  
用代码导

Dim dlg As New OpenFileDialog
dlg.Filter= "数据库文件|*.mdb"
If dlg.ShowDialog = DialogResult.OK Then
    Dim tns(0) As String  = {"表1","表2","表3"}
    For Each tn As String In tns
        Dim mg As New Merger
        mg.SourcePath = dlg.FileName
        mg.SourceTableName = tn
        mg.DataTableName = tn
        mg.Merge()
    Next
End If
--  作者：有点色
--  发布时间：2017/5/25 10:53:00
--  
Dim dlg As  new OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
    If Connections.Contains("test") Then Connections.Delete("test")
    Connections.Add("test","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dlg.FileName & ";Persist Security Info=False")
    For Each tn As String In Connections("test").GetTableNames
        Dim ip As New Importer
        ip.SourcePath = dlg.FileName \'指定数据文件
        ip.SourceTableName = tn \'指定要导入的表
        ip.NewTableName =tn \'导入后的表名
        ip.Import()
    Next
End If
--  作者：zhimin
--  发布时间：2017/5/25 13:08:00
--  
谢谢两位！
--  作者：wyz20130512
--  发布时间：2017/5/25 13:12:00
--  
也可直接添加外部数据源和表呀！