| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 请教两表导出到同一文件中的代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=185347) |
| -- 作者：13315253800 -- 发布时间：2023/2/17 17:23:00 -- 请教两表导出到同一文件中的代码 请教两表导出到同一文件中的代码 1、两个订单表导出到同一销售管理.mdb里，请教如何修改代码 将订单表导出为Access格式： Dim ex as New Exporter ex.SourceTableName
= "订单2"
\'指定导出表 ex.Export() \'开始导出 但结果是，导出后只有“订单2”表 2、 假如销售管理.mdb有"订单"和"订单2"上面的代码怎样修改呢？ 合并access文件： Dim mg As New Merger |
| -- 作者：有点蓝 -- 发布时间：2023/2/17 17:29:00 -- 1、多看看帮助呗 ex.SourceTableName = "订单" \'指定导出表 ex.NewTableName= "订单2" \'指定导出表 |
| -- 作者：13315253800 -- 发布时间：2023/2/17 19:55:00 -- 蓝老师下面的代码实现了我的要求，还能简化吗 \'将订单表导出为Access格式： Dim ex As New Exporter ex.SourceTableName
= "订单" \'指定导出表 ex.NewTableName = "订单" \'指定导出后的新表的名称 ex.filepath = "d:\\Data\\销售管理.mdb" \'指定目标文件 ex.Export() \'开始导出 ex.SourceTableName
= "订单2" \'指定导出表 ex.NewTableName = "订单2" \'指定导出后的表的名称 ex.filepath = "d:\\Data\\销售管理.mdb" \'指定目标文件 ex.Export() \'开始导出 |
| -- 作者：13315253800 -- 发布时间：2023/2/17 20:02:00 -- \'同时合并两个订单表 Dim mg As New Merger mg.SourcePath = "d:\\data\\销售管理.mdb" mg.SourceTableName = "订单" \'指定要合并的表 mg.DataTableName = "订单" \'指定接收数据的表 mg.Merge()\'开始合并 mg.SourcePath = "d:\\data\\销售管理.mdb" mg.SourceTableName = "订单2" \'指定要合并的表 mg.DataTableName = "订单2" \'指定接收数据的表 mg.Merge()\'开始合并
|
| -- 作者：13315253800 -- 发布时间：2023/2/17 20:36:00 -- 应该是这样吧 \'同时合并两个订单表 Dim mg As New
Merger mg.SourcePath
= "d:\\data\\销售管理.mdb" mg.SourceTableName
= "订单" \'指定要合并的表 mg.DataTableName
= "订单" \'指定接收数据的表 mg.Merge()\'开始合并 Dim mg1 As
New Merger Mg1.SourcePath
= "d:\\data\\销售管理.mdb" Mg1.SourceTableName
= "订单2" \'指定要合并的表 Mg1.DataTableName
= "订单2" \'指定接收数据的表 |
| -- 作者：有点蓝 -- 发布时间：2023/2/18 8:48:00 -- Dim mg As Merger for each s as string in {"订单","订单2"}mg= New Merger mg.SourcePath = "d:\\data\\销售管理.mdb" mg.SourceTableName = s \'指定要合并的表 mg.DataTableName = s \'指定接收数据的表 mg.Merge()\'开始合并 next Exporter自己参考上面用法优化一下
|