有1000多个mdb,每个mdb中有按年月排列的多个表,现在想重新整理数据,将所有的mdb中的表都导入到指定的表格中,由于有的月份数据不存在,所以导入时总出现运行错误,Microsft Jet 数据库引擎找不到输入表或查询xxx,每次都需要关闭提示后方能运行,请各位大神帮忙看一看怎么解决。此外希望能将整理后的数据按月份生成不同的表。(现在出现运行错误:不存在表名为xxx的DataTable)
代码如下:
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 mg As New Merger
mg.SourcePath = fl
Dim name As String
Dim year As Integer
For year = 2019 To 2019 Step 1
Dim month As Integer
For month = 1 To 12 Step 1
If month < 10 Then
name = year
& "0"
& month & "_Memory"
mg.SourceTableName
= name
mg.DataTableName
= name
mg.Merge()
Else If month < 13
name = year
& month & "_Memory"
mg.SourceTableName
= name
mg.DataTableName
= name
mg.Merge()
Continue For
End If
Next
year
= year + 1
Next
Next
End If
[此贴子已经被作者于2020/3/19 14:53:42编辑过]