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

下面这段代码可以将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老师的回复，重定向可以达到目的，但是太麻烦。能否直接用代码来实现，还请指教，谢谢！！

看来这个要求有点高？

林老师，上面的代码可以生成mdb文件，但是不能打开，并跳出提示，应该如何处理？谢谢！！

此主题相关图片如下：y.jpg

另外，如何判断表中是否存在[_Sortkey]列，求指教，谢谢！！

在各位老师的指教下，使用以下代码，可以一次性导出带_Identify，_Locked和_SortKey（如果有的话）字段的access文件，在此基础上，加上主键后，可以作为外部数据源使用；在这里，向各位老师表示衷心感谢！！

For Each dt As DataTable In DataTables

If (DataTables( dt.Name ).basetable.Columns.Contains("_Sortkey")) = True

Dim colNames As String = "[_Identify],[_Locked],[_Sortkey]"

For Each c As DataCol In dt.DataCols

colNames += "," & c.Name

Dim ex As New Exporter

ex.SourceTableName = dt.Name

ex.Fields = colNames

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

ex.Export()

ElseIf (DataTables( dt.Name ).basetable.Columns.Contains("_Identify")) = True

Dim colNames As String = "[_Identify],[_Locked]"

For Each c As DataCol In dt.DataCols

colNames += "," & c.Name

Dim ex As New Exporter

ex.SourceTableName = dt.Name

ex.Fields = colNames

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

ex.Export()

Else

Dim ex As New Exporter

ex.SourceTableName = dt.Name

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

ex.Export()

End If

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