多表导成1个ACCESS文件如何实现？谢谢 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 多表导成1个ACCESS文件如何实现？谢谢

共有12099人关注过本帖树形打印复制链接主题：多表导成1个ACCESS文件如何实现？谢谢

雨中的泪

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

加好友

发短信

等级：六尾狐帖子：1432 积分：9061 威望：0 精华：0 注册：2009/8/19 8:19:00

多表导成1个ACCESS文件如何实现？谢谢 发帖心情

Post By：2010/4/8 10:18:00 [只看该作者]

多表导成1个ACCESS文件如何实现？谢谢

雨中的泪

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

加好友

发短信

等级：六尾狐帖子：1432 积分：9061 威望：0 精华：0 注册：2009/8/19 8:19:00

Post By：2010/4/8 10:20:00 [只看该作者]

Dim dlg As New SaveFileDialog '指定一个新的SaveFileDialog
dlg.Filter= "上报文件|*.DSB " '设置筛选器

dlg. title= "生成上报文件"
dlg.OverwritePrompt = True '对于已经存在的文件名，是否出现覆盖警告

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 = "调资基础数据"   '指定导出表

ex.Format = "Access" '指定导出文件格式
ex. PassWord = “TZX_GWY_JT_8888” '用此属性指定目标文件的密码

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

ex.NewTableName = "调资基础数据" '指定导出后的表的名称

ex.Export() '开始导出数据
MessageBox.Show("上报数据生成完成！！！", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

雨中的泪

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

加好友

发短信

等级：六尾狐帖子：1432 积分：9061 威望：0 精华：0 注册：2009/8/19 8:19:00

Post By：2010/4/8 10:20:00 [只看该作者]

需要上报的是很多张表

雨中的泪

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

加好友

发短信

等级：六尾狐帖子：1432 积分：9061 威望：0 精华：0 注册：2009/8/19 8:19:00

Post By：2010/4/8 10:27:00 [只看该作者]

Dim ex as New Exporter
ex.SourceTableName = "调资基础数据" '指定导出表

如何制定多张表！！！

雨中的泪

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

加好友

发短信

等级：六尾狐帖子：1432 积分：9061 威望：0 精华：0 注册：2009/8/19 8:19:00

Post By：2010/4/8 10:33:00 [只看该作者]

版主帮帮忙，谢谢

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2010/4/8 10:41:00 [只看该作者]

大概就是这样：

Dim dlg As New SaveFileDialog   '指定一个新的SaveFileDialog
dlg.Filter= "上报文件|*.DSB "   '设置筛选器
dlg.title= "生成上报文件"
dlg.OverwritePrompt = True '对于已经存在的文件名,是否出现覆盖警告
dim Names() As String = {"表A","表B","表C"}
If dlg.ShowDialog = DialogResult.Ok Then   '如果用户单击了确定按钮
    If FileSys.FileExists(dlg.filename) Then    '如果指定的文件存在
        FileSys.DeleteFile(dlg.filename,2,2)     '则彻底删除之
    End If
    For Each nm As String In Names
        Dim ex as New Exporter
        ex.SourceTableName = nm   '指定导出表
        ex.Format = "Access"   '指定导出文件格式
        ex.PassWord = "TZX_GWY_JT_8888" '用此属性指定目标文件的密码
        ex.filepath = dlg.filename    '指定目标文件
        ex.NewTableName = nm '指定导出后的表的名称
        ex.Export()    '开始导出数据
        MessageBox.Show("上报数据生成完成!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
    Next
End If

雨中的泪

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

加好友

发短信

等级：六尾狐帖子：1432 积分：9061 威望：0 精华：0 注册：2009/8/19 8:19:00

Post By：2010/4/8 10:50:00 [只看该作者]

导入用同样的方式可以实现不？谢谢

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2010/4/8 10:55:00 [只看该作者]

以下是引用雨中的泪在2010-4-8 10:50:00的发言：

导入用同样的方式可以实现不？谢谢

一样的道理，自己尝试一下就知道

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

主题：多表导成1个ACCESS文件如何实现？谢谢