| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 请教同时导出多个表的代码问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=176719) |
| -- 作者：13315253800 -- 发布时间：2022/4/24 14:32:00 -- 请教同时导出多个表的代码问题 请教同时导出多个表的代码 老师您好！如将订单、客户、产品三个表同时导出为Access格式的订单.mdb中，用下面的代码可以吗？还有简化的方式吗 Dim ex as New Exporter Dim ex as New Exporter Dim ex as New Exporter |
| -- 作者：有点蓝 -- 发布时间：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楼我提问错误，我试过了就用您的提示代码就可以了。 再次谢谢蓝老师！
|