- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]如何用代码直接导出SQL Server外部数据源带_Identify等字段的access文件（已解决） (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=26537)
-- 发布时间：2012/12/7 10:26:00
-- [求助]如何用代码直接导出SQL Server外部数据源带_Identify等字段的access文件（已解决）
下面这段代码可以将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()
Next
[此贴子已经被作者于2012-12-20 16:09:48编辑过]
-- 发布时间：2012/12/7 10:33:00
--
杂项 - 重定向 - TOACCESS
-- 发布时间：2012/12/7 10:46:00
--
谢谢sgs老师的回复，重定向可以达到目的，但是太麻烦。能否直接用代码来实现，还请指教，谢谢！！
-- 发布时间：2012/12/8 16:01:00
--
看来这个要求有点高？
-- 发布时间：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
-- 发布时间：2012/12/8 21:23:00
--
林老师，楼上的按钮代码点击后可以生成一个access表，但是会有一个“至少一个参数没有被指定”的提示，是什么原因
-- 发布时间：2012/12/8 21:40:00
--
以下是引用老有所乐在2012-12-8 21:23:00的发言：
林老师，楼上的按钮代码点击后可以生成一个access表，但是会有一个“至少一个参数没有被指定”的提示，是什么原因
林老师，楼上的按钮代码点击后可以生成一个access表，但是会有一个“至少一个参数没有被指定”的提示，是什么原因
结果好像是正确的。
-- 发布时间：2012/12/9 0:20:00
--
以下是引用老有所乐在2012-12-8 21:23:00的发言：
林老师，楼上的按钮代码点击后可以生成一个access表，但是会有一个“至少一个参数没有被指定”的提示，是什么原因
林老师，楼上的按钮代码点击后可以生成一个access表，但是会有一个“至少一个参数没有被指定”的提示，是什么原因
可能有些表，是没有[_Sortkey]列的。
-- 发布时间：2012/12/9 9:28:00
--
林老师，上面的代码可以生成mdb文件，但是不能打开，并跳出提示，应该如何处理？谢谢！！
此主题相关图片如下：y.jpg
另外，如何判断表中是否存在[_Sortkey]列，求指教，谢谢！！
-- 发布时间：2012/12/9 12:40:00
--
用重定向，然后合并数据，参考这一节的最后面：
http://www.foxtable.com/help/topics/1565.htm