怎么导入多个mdb中的多个表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim dlg As New OpenFileDialog

dlg.Filter = "Access文件|*.mdb"

dlg.MultiSelect = True '允许选择多个文件

If dlg.ShowDialog =DialogResult.OK Then

For Each fl As String In dlg.FileNames

Dim name As String

Dim year As Integer

For year = 2019 To 2019

Dim month As Integer

For month = 1 To 12

name = year & format(month,"00") & "_Memory"

If DataTables.Contains(name) Then

Dim mg As New Merger

mg.SourcePath = fl

mg.SourceTableName = name

mg.DataTableName = name

mg.Merge()

Else

Dim im As New Importer

im.SourcePath = fl

im.SourceTableName = name

im.NewTableName = name

im.Import

End If

[此贴子已经被作者于2020/3/19 15:35:00编辑过]

Dim im As New Importer

im.SourcePath = fl

im.SourceTableName = name

im.NewTableName = name

im.Import

1、要导入的数据和已有的表结构不一致

2、到菜单里添加列：http://www.foxtable.com/webhelp/topics/0023.htm

要导入的mdb数据库是不是没有这些表？msgbox(name = year & format(month,"00") & "_Memory")

或者是要导入的mdb表的结构和foxtable里的表结构不一致

代码是遍历12个月的，但是数据库里很多都只有5~12月份的表格，导入不存在的表格当然有问题了。

Dim dlg As New OpenFileDialog

dlg.Filter = "Access文件|*.mdb"

dlg.MultiSelect = True '允许选择多个文件

Dim lst As List(Of String)

If dlg.ShowDialog =DialogResult.OK Then

For Each fl As String In dlg.FileNames

If Connections.Contains("test") Then Connections.Delete("test")

Connections.Add("test","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & fl & ";Persist Security Info=False") '动态连接数据库

lst = Connections("test").GetTableNames '获取数据源里所有的表名

Dim name As String

Dim year As Integer

For year = 2019 To 2019

Dim month As Integer

For month = 1 To 12

name = year & format(month,"00") & "_Memory"

If lst.Contains(name ) Then '如果数据库包含这个表

If DataTables.Contains(name) Then

Dim mg As New Merger

mg.SourcePath = fl

mg.SourceTableName = name

mg.DataTableName = name

mg.Merge()

Else

Dim im As New Importer

im.SourcePath = fl

im.SourceTableName = name

im.NewTableName = name

im.Import

End If

主题：怎么导入多个mdb中的多个表