- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- Exporter导出多表的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=5931)
-- 发布时间：2010/2/2 17:03:00
-- Exporter导出多表的问题
向同一个Access文件中导出多个查询表的数据，总是出错。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目23.rar |
-- 发布时间：2010/2/2 17:07:00
--
收到，我抽空看看
-- 发布时间：2010/2/25 10:02:00
--
这个没有问题的，应该这样：
\'导出第一个表
Dim dc as New Exporter
dc.FilePath = "d:\\123.mdb"
dc.SourceTableName = Tables("窗口1_Table1").Name
Tables("窗口1_Table1").fill("select Category,Name from code","aaa",True)
dc.NewTableName = "A"
dc.Export
\'往同一个文件中导出第二个表
dc = New Exporter
dc.FilePath = "d:\\123.mdb"
dc.SourceTableName = Tables("窗口1_Table1").Name
Tables("窗口1_Table1").fill("select Category as bb ,Name from code","aaa",True)
dc.NewTableName = "b"
dc.Export
-- 发布时间：2010/2/25 10:07:00
--
我试试。。
-- 发布时间：2010/2/25 10:20:00
--
按3楼代码测试通过。
只是有一点不明白，这3行代码已经定义过了，为什么在导出第2个表时还要重复定义一次？
dc = New Exporter
dc.FilePath = "d:\\123.mdb"
dc.SourceTableName = Tables("窗口1_Table1").Name
这样的代码感觉有点啰嗦，如果是导出N个表，就要重复N次。。。
-- 发布时间：2010/2/25 11:13:00
--
只能这样的