Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]数据库导出到access


  共有2267人关注过本帖树形打印复制链接

主题：[求助]数据库导出到access
帅哥哟，离线，有人找我吗？
chnfo
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2216 积分：18225 威望：0 精华：0 注册：2011/11/26 20:21:00 		[求助]数据库导出到access  发帖心情 Post By：2018/4/12 22:28:00 [只看该作者]

要把数据导出到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
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/4/12 22:45:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
chnfo
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2216 积分：18225 威望：0 精华：0 注册：2011/11/26 20:21:00 		  发帖心情 Post By：2018/4/12 23:06:00 [只看该作者]

我定义了一个函数。可以导出2003，但导出2007之后，打开access，里面是空的
外部数据表可以连接，也可以编辑并保存到外部表，但执行导出代码时，导出2003就OK，导出2007就是空表。


 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:不能导出2007.zip


图片点击可在新窗口打开查看此主题相关图片如下：导出2007格式的是空数据库.png
图片点击可在新窗口打开查看


[此贴子已经被作者于2018/4/12 23:20:01编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/4/12 23:38:00 [只看该作者]

外部数据源有密码的情况下不能导出，删除密码后我测试正常。
 回到顶部
帅哥哟，离线，有人找我吗？
chnfo
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2216 积分：18225 威望：0 精华：0 注册：2011/11/26 20:21:00 		  发帖心情 Post By：2018/4/12 23:59:00 [只看该作者]

也就是说，要导出到2003格式，可以不管外部数据源是否有密码。
但是要导出到2007，外部数据源就不能有密码？
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：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
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.09131 秒, 5 次数据查询