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

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

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

xujie80

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

加好友

发短信

等级：小狐帖子：350 积分：3412 威望：0 精华：0 注册：2015/5/12 15:33:00

数据导出问题 发帖心情

Post By：2017/3/23 10:17:00 [只看该作者]

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

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

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

Dim ex As New Exporter

ex.SourceTableName = "aa" '指定导出表

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

ex. Export() '开始导出

End If

执行ex.export()，如果已经导出时给文件新命名，则通过，如果覆盖忆有文件，则报错报”aa"已存在。

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/3/23 10:21:00 [只看该作者]

删除原来的

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Access文件|*.mdb" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    If FileSys.FileExists(dlg.FileName) Then
        FileSys.DeleteFile(dlg.FileName, 2, 2)
    End If
    Dim ex As New Exporter
    ex.SourceTableName = "aa" '指定导出表
    ex.filepath = dlg.FileName '指定目标文件
    ex. Export() '开始导出
End If

xujie80

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

加好友

发短信

等级：小狐帖子：350 积分：3412 威望：0 精华：0 注册：2015/5/12 15:33:00

Post By：2017/3/23 13:57:00 [只看该作者]

这与导出文件应该没有关联，还是不理解

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/3/23 14:39:00 [只看该作者]

以下是引用xujie80在2017/3/23 13:57:00的发言：
这与导出文件应该没有关联，还是不理解

不能导出重复的表。看2楼，必须删除

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

主题：数据导出问题