[求助]如何用代码直接导出SQL Server外部数据源带_Identify等字段的access文件（已解决） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何用代码直接导出SQL Server外部数据源带_Identify等字段的access文件（已解决）

共有9815人关注过本帖树形打印复制链接主题：[求助]如何用代码直接导出SQL Server外部数据源带_Identify等字段的access文件（已解决）

yyzlxc

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1530 积分：10633 威望：0 精华：0 注册：2008/9/24 11:16:00

[求助]如何用代码直接导出SQL Server外部数据源带_Identify等字段的access文件（已解决） 发帖心情

Post By：2012/12/7 10:26:00 [只看该作者]

下面这段代码可以将SQL Server外部数据源的全部表一次性导出到access文件中，但是，由于缺少_Identify，_Locked和_SortKey字段，不能直接用作access外部数据源，有没有办法用代码一次性导出带_Identify，_Locked和_SortKey（如果有的话）字段的access文件（可以用作access外部数据源），请各位老师指教，谢谢

For Each dt As DataTable In DataTables

Dim ex As New Exporter

ex.SourceTableName = dt.Name

ex.filepath = "g:\Data\数据源.mdb"

ex.Export()

[此贴子已经被作者于2012-12-20 16:09:48编辑过]

sgs

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：365 积分：2693 威望：0 精华：1 注册：2011/11/25 7:55:00

Post By：2012/12/7 10:33:00 [只看该作者]

杂项 - 重定向 - TOACCESS

yyzlxc

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1530 积分：10633 威望：0 精华：0 注册：2008/9/24 11:16:00

Post By：2012/12/7 10:46:00 [只看该作者]

谢谢sgs老师的回复，重定向可以达到目的，但是太麻烦。能否直接用代码来实现，还请指教，谢谢！！

yyzlxc

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1530 积分：10633 威望：0 精华：0 注册：2008/9/24 11:16:00

Post By：2012/12/8 16:01:00 [只看该作者]

看来这个要求有点高？

lin_hailun

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2012/12/8 16:20:00 [只看该作者]

测试可以通过。

For Each dt As DataTable In DataTables
    Dim colNames As String = "[_Identify], [_Sortkey]"
    For Each c As DataCol In dt.DataCols
        colNames += "," & c.Name
    Next
    Dim ex As New Exporter
    ex.SourceTableName = dt.Name
    ex.Fields = colNames
    ex.filepath = "d:\数据源2.mdb"
    ex.Export()
Next