- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何将access中不同表的相关数据一次性导出到另一access数据库中？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=171310)
-- 发布时间：2021/8/25 19:04:00
-- 如何将access中不同表的相关数据一次性导出到另一access数据库中？
请教老师：如何将access中不同表的相关数据一次性导出到另一access数据库中？
如下图所示：
此主题相关图片如下：如何将表1及相关数据导入另一access数据库中.png
我想完成的任务是：将access数据库1中表1的参加项目1的记录及其表2、表3的相关记录一次性导出到access数据库2中。
我写的代码如下：
此主题相关图片如下：11111.png
以上代码表1中项目1的相关记录都能导出，但是表2和表3只能导出表1中最后一条的相关记录。
请老师赐教！
-- 发布时间：2021/8/26 8:33:00
--
代码不要发截图，请直接发文字，方便别人修改
-- 发布时间：2021/8/26 8:59:00
--
-- 发布时间：2021/8/26 9:05:00
--
那就放到记事本里，然后上传文件
-- 发布时间：2021/8/26 9:11:00
--
Dim dlg as New SaveFileDialog
dlg.Filter= “Access文件|*.mdb”
If dlg.ShowDailog = DialogResult.OK Then
Dim ex As New Exporter
Ex.SourceTableName = “表1“
Ex.filepath = dlg.FileName
Ex.Filter = “[项目编号] = ‘项目1’”
Ex.Export()
Ex = New Exporter
Ex.SourceTableName = “表2“
Ex.filepath = dlg.FileName
For Each blh as DataRow In DataTables(“表1”).DataRows
Ex.Filter = “[ID] = ‘” & blh(“ID”) & ”’”
Next
Ex.Export()
Ex = New Exporter
Ex.SourceTableName = “表3“
Ex.filepath = dlg.FileName
For Each dr as DataRow In DataTables(“表1”).DataRows
Ex.Filter = “[ID] = ‘” & dr(“ID”) & ”’”
Next
Ex.Export()
End If
-- 发布时间：2021/8/26 9:13:00
--
-- 发布时间：2021/8/26 9:18:00
--
Ex = New Exporter
Ex.SourceTableName = “表2“
Ex.filepath = dlg.FileName
dim s as string = DataTables(“表1”).GetComboListString("ID",“[项目编号] = ‘项目1’”)
Ex.Filter = “[ID] in (‘” & s.replace("|","\',\'") & ”’)”
Ex.Export()
-- 发布时间：2021/8/26 11:16:00
--