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

1楼

雨中的泪 发表于：2010/4/8 10:18:00

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

2楼

雨中的泪 发表于：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楼

雨中的泪 发表于：2010/4/8 10:20:00

需要上报的是很多张表

4楼

雨中的泪 发表于：2010/4/8 10:27:00

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

如何制定多张表！！！

5楼

雨中的泪 发表于：2010/4/8 10:33:00

版主帮帮忙，谢谢

6楼

狐狸爸爸 发表于：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楼

雨中的泪 发表于：2010/4/8 10:50:00

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

8楼

狐狸爸爸 发表于：2010/4/8 10:55:00

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

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

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

共8 条记录, 每页显示 10 条, 页签: [1]