| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]请教导入、导出的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=56281) |
| -- 作者：ahtlzhujun -- 发布时间：2014/9/2 15:00:00 -- [求助]请教导入、导出的问题 我用下面代码先导出一个Excel文件，再将这个Excel文件合并导入，提示“不可识别的数据库格式”，请问老师这是怎么回事？ 导出代码： Dim ex As New Exporter Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog dlg.Filter= "Excel文件|*.xls" \'设置筛选器 If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮 MessageBox.Show("你要保存为:" & dlg.FileName,"提示") \'提示用户选择的文件 Tables("客户档案").SaveExcel(dlg.FileName, "客户档案") \'保存文件 End If 导入代码： Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog dlg.Filter= "Excel文件|*.xls" \'设置筛选器 If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮 Dim mg As New Merger mg.SourcePath = dlg.FileName mg.SourceTableName = "客户档案$" mg.DataTableName = "客户档案" mg.Merge() End If |
| -- 作者：ahtlzhujun -- 发布时间：2014/9/2 15:05:00 -- 导出的文件数据重新编辑，与数据库中的数据不存在重复，但导入还是提示“不可识别的数据库格式” |
| -- 作者：Bin -- 发布时间：2014/9/2 15:07:00 -- 你没有设置类型 导入导出都是需要设置类型的.
|
| -- 作者：ahtlzhujun -- 发布时间：2014/9/2 15:09:00 -- 代码完全按帮助写的，还要设置什么类型呀？ |
| -- 作者：有点甜 -- 发布时间：2014/9/2 15:10:00 -- Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim mg As New Merger
mg.SourcePath = dlg.FileName
mg.Format = "Excel"
mg.SourceTableName = "客户档案$"
mg.DataTableName = "客户档案"
mg.Merge()
End If |
| -- 作者：ahtlzhujun -- 发布时间：2014/9/2 15:15:00 -- 谢谢 |