以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教同时导出多个表的代码问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=176719)
--  作者：13315253800
--  发布时间：2022/4/24 14:32:00
--  请教同时导出多个表的代码问题

请教同时导出多个表的代码

老师您好！如将订单、客户、产品三个表同时导出为Access格式的订单.mdb中，用下面的代码可以吗？还有简化的方式吗

Dim ex as New Exporter
ex.SourceTableName = "订单" \'指定导出表
ex.filepath = "c:\\Data\\订单.mdb" \'指定目标文件
ex.Export() \'开始导出

Dim ex as New Exporter
ex.SourceTableName = "客户" \'指定导出表
ex.filepath = "c:\\Data\\订单.mdb" \'指定目标文件
ex.Export() \'开始导出

Dim ex as New Exporter
ex.SourceTableName = "产品" \'指定导出表
ex.filepath = "c:\\Data\\订单.mdb" \'指定目标文件
ex.Export() \'开始导出
--  作者：有点蓝
--  发布时间：2022/4/24 14:40:00
--  
for each s as string in {"订单","客户","产品"}
Dim ex as New Exporter
ex.SourceTableName = s \'指定导出表
ex.filepath = "c:\\Data\\订单.mdb" \'指定目标文件
ex.Export() \'开始导出
next
--  作者：13315253800
--  发布时间：2022/4/24 14:43:00
--  
谢谢蓝老师！
--  作者：13315253800
--  发布时间：2022/4/24 14:53:00
--  
蓝老师，合并数据是这样嘛？
For Each s As String In {"订单","客户","产品"}
    Dim mg As New Merger
    mg.SourcePath =  s \'指定导出表
    mg.SourceTableName = "订单"   \'指定要合并的表
    mg.DataTableName = "订单"    \'指定接收数据的表
    mg.SourceTableName = "客户"   \'指定要合并的表
    mg.DataTableName = "客户"    \'指定接收数据的表
    mg.SourceTableName = "产品"   \'指定要合并的表
    mg.DataTableName = "产品"    \'指定接收数据的表  
    mg.Merge()   \'开始合并
 
--  作者：有点蓝
--  发布时间：2022/4/24 15:00:00
--  
For Each s As String In {"订单","客户","产品"}
    Dim mg As New Merger
    mg.SourcePath =  "c:\\Data\\订单.mdb" \'指定导出表
    mg.SourceTableName = s   \'指定要合并的表
    mg.DataTableName = s   \'指定接收数据的表
    mg.Merge()   \'开始合并
next
--  作者：13315253800
--  发布时间：2022/4/24 15:08:00
--  

蓝老师，将 s 替换成  "订单","客户","产品"   可以吗？还是{"订单","客户","产品"}
--  作者：13315253800
--  发布时间：2022/4/24 15:24:00
--  
蓝老师，6楼我提问错误，我试过了就用您的提示代码就可以了。
再次谢谢蓝老师！