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


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

主题:[求助]数据库导出到access

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

外部数据源有密码的情况下不能导出,删除密码后我测试正常。


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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


 回到顶部