- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]数据库导出到access (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=117468)
-- 发布时间：2018/4/12 22:28:00
-- [求助]数据库导出到access
要把数据导出到Access，但试了一下导出到2003没问题，导出到2007就是空表
下面这一段是准备导出access2007的，但执行的结果是空表－－－－－这是为什么？
Dim ds As String = "A,B,C,D"
For Each d As String In ds.Split(",")
Dim ex As New Exporter
ex.SourceTableName = d \'指定导出表
ex.filepath = "C:\\CS\\cs2007.accdb" \'指定目标文件
ex.Format = "Access2007" \'导出格式为Access 2007
ex.Export() \'开始导出
Next
下面这一段是准备导出access2003的，执行的结果是所有数据都成功导出
For Each d As String In ds.Split(",")
Dim ex As New Exporter
ex.SourceTableName = d \'指定导出表
ex.filepath = "C:\\CS\\cs2003.mdb" \'指定目标文件
ex.Export() \'开始导出
Next
-- 发布时间：2018/4/12 22:45:00
--
我测试没问题，看看
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=116949&skin=0
-- 发布时间：2018/4/12 23:06:00
--
我定义了一个函数。可以导出2003，但导出2007之后，打开access，里面是空的
外部数据表可以连接，也可以编辑并保存到外部表，但执行导出代码时，导出2003就OK，导出2007就是空表。
此主题相关图片如下：导出2007格式的是空数据库.png
[此贴子已经被作者于2018/4/12 23:20:01编辑过]
-- 发布时间：2018/4/12 23:38:00
--
外部数据源有密码的情况下不能导出，删除密码后我测试正常。
-- 发布时间：2018/4/12 23:59:00
--
也就是说，要导出到2003格式，可以不管外部数据源是否有密码。
但是要导出到2007，外部数据源就不能有密码？
-- 发布时间：2018/4/13 8:56:00
--
变通处理
Dim ds As String = "表A,表B,表C"
For Each d As String In ds.Split(",")
Dim q As new QueryBuilder
q.TableName = "test"
q.ConnectionName = "XYZ"
q.SelectString = "Select * From {" & d & "}"
q.Build
Dim ex As New Exporter
ex.SourceTableName = "test" \'指定导出表
ex.NewTableName = d
ex.filepath = ".\\cs2007.accdb" \'指定目标文件
ex.Format = "Access2007" \'导出格式为Access 2007
ex.Export() \'开始导出
Next