| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 多表导成1个ACCESS文件如何实现？谢谢 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=6541) |
| -- 作者：雨中的泪 -- 发布时间：2010/4/8 10:18:00 -- 多表导成1个ACCESS文件如何实现？谢谢 多表导成1个ACCESS文件如何实现？谢谢 |
| -- 作者：雨中的泪 -- 发布时间：2010/4/8 10:20:00 -- Dim dlg As New SaveFileDialog \'指定一个新的SaveFileDialog dlg. title= "生成上报文件" If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮 If FileSys.FileExists(dlg.filename) Then \'如果指定的文件存在 ex.Format = "Access" \'指定导出文件格式 ex.filepath = dlg.filename \'指定目标文件 ex.NewTableName = "调资基础数据" \'指定导出后的表的名称 ex.Export() \'开始导出数据 |
| -- 作者：雨中的泪 -- 发布时间：2010/4/8 10:20:00 -- 需要上报的是很多张表 |
| -- 作者：雨中的泪 -- 发布时间：2010/4/8 10:27:00 -- Dim ex as New Exporter 如何制定多张表！！！ |
| -- 作者：雨中的泪 -- 发布时间：2010/4/8 10:33:00 -- 版主帮帮忙，谢谢 |
| -- 作者：狐狸爸爸 -- 发布时间：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 |
| -- 作者：雨中的泪 -- 发布时间：2010/4/8 10:50:00 -- 导入用同样的方式可以实现不？谢谢 |
| -- 作者：狐狸爸爸 -- 发布时间：2010/4/8 10:55:00 -- 以下是引用雨中的泪在2010-4-8 10:50:00的发言：
导入用同样的方式可以实现不？谢谢
|