请问导出 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请问导出

共有1821人关注过本帖树形打印复制链接主题：请问导出

hbhb

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

加好友

发短信

等级：狐神帖子：5054 积分：13037 威望：0 精华：0 注册：2014/5/15 21:34:00

请问导出

Post By：2018/4/3 11:38:00 [只看该作者]

大师：为何下面的代码不能导出？

Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView1")

If trv1.SelectedNode IsNot Nothing And trv1.SelectedNode.Level = 0 Then

For Each nod As WinForm.TreeNode In trv1.SelectedNode.Nodes

Dim q As new OuterTableBuilder

q.TableName = nod.Name

q.ConnectionName = trv1.SelectedNode.Name

q.SelectString = "S——elect * Fr_om {" & nod.Name & "}"

q.Build

End If

For Each nod As WinForm.TreeNode In trv1.SelectedNode.Nodes

bjh.Add(nod.Name)

For Each bj As String In bjh

If DataTables.Contains(bj) = True Then

MessageBox.Show(bj)

Dim ex As New Exporter

ex.SourceTableName = bj '指定导出表

ex.FilePath = ProjectPath & "\系统文件\" & "mgsmodel" & ".accdb" '指定目标文件

ex.Format = "Access2007" '导出格式为Access 2007

ex.PassWord = "128"

ex.Export() '开始导出

End If

为什么连接"mgsmodel" & ".accdb"这个文件后，里面一张表没有？

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/4/3 12:25:00 [只看该作者]

1、表格在foxtable里面生成了没有？

2、加入msgbox，能否执行到exporter的代码？

3、如果1、2都没有问题，做个例子发上来看看。

hbhb

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

加好友

发短信

等级：狐神帖子：5054 积分：13037 威望：0 精华：0 注册：2014/5/15 21:34:00

Post By：2018/4/3 14:54:00 [只看该作者]

1、生成了，查询表。是不是查询表不能导出？

2、执行到，有此文件

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/4/3 15:42:00 [只看该作者]

我测试这段代码没问题，你也先测试一次

Dim q As new OuterTableBuilder
q.TableName = "test"
'q.connectionName = "abc"
q.SelectString = "Select * From {表A}"
q.Build

Dim ex As New Exporter
ex.SourceTableName = "test" '指定导出表
ex.FilePath = ProjectPath & "\系统文件\" & "mgsmodel" & ".accdb" '指定目标文件
ex.Format = "Access2007" '导出格式为Access 2007
ex.PassWord = "128"
ex.Export() '开始导出

[此贴子已经被作者于2018/4/3 16:15:04编辑过]