如何将多张内部表导出以同名ACCESS文件里 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何将多张内部表导出以同名ACCESS文件里

共有2928人关注过本帖树形打印复制链接主题：如何将多张内部表导出以同名ACCESS文件里

cnsjroom

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

加好友

发短信

等级：七尾狐帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00

如何将多张内部表导出以同名ACCESS文件里 发帖心情

Post By：2021/5/1 1:27:00 [只看该作者]

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog

dlg.Filter= "Access文件|*.mdb" '设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

Dim ex As New Exporter

For Each dt As DataTable In DataTables

output.show(dt.name)

ex.SourceTableName = dt.name '指定导出表

ex.filepath = dlg.FileName '指定目标文件

ex.Export() '开始导出

End If

output.show(dt.name)得到如下四个内部表名

内部函数表

基础资料表

表A

上述代码运行之后值导出了一个内部表js 其它均没有导出

有没有办法实现内部表所有表名数据都导出为123.mdb里面分别对应四个内部表呢？

[此贴子已经被作者于2021/5/1 1:30:01编辑过]

有点酸

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

加好友

发短信

等级：五尾狐帖子：1093 积分：6682 威望：0 精华：0 注册：2013/7/1 9:05:00

Post By：2021/5/1 10:11:00 [只看该作者]

这样就行了：

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog

dlg.Filter= "Access文件|*.mdb" '设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

For Each dt As DataTable In DataTables

Dim ex As New Exporter

output.show(dt.name)

ex.SourceTableName = dt.name '指定导出表

ex.filepath = dlg.FileName '指定目标文件

ex.Export() '开始导出

End If

cnsjroom

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

加好友

发短信

等级：七尾狐帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00

回复：（有点酸）这样就行了：Dim dlg As New SaveFil... 发帖心情

Post By：2021/5/1 11:34:00 [只看该作者]

谢谢节日快乐

下一主题 >> << 上一主题

主题：如何将多张内部表导出以同名ACCESS文件里