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


  共有1564人关注过本帖树形打印复制链接

主题：导入数据
帅哥哟，离线，有人找我吗？
LTHERO
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：154 积分：1331 威望：0 精华：0 注册：2017/10/8 14:56:00 		导入数据  发帖心情 Post By：2017/10/10 11:18:00 [只看该作者]

如何在已经有的表 中 导入文件中的数据

我设置了一个Button按钮

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

使用以上代码之后会出现这种错误

.NET Framework 版本：2.0.50727.8794
Foxtable 版本：2017.8.19.1
错误所在事件：
详细错误信息：
Unrecognized database format 'C:\Users\LTHero\Desktop\111.xls'.

求大神解决 谢谢
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/10/10 11:28: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
 回到顶部
帅哥哟，离线，有人找我吗？
LTHERO
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：154 积分：1331 威望：0 精华：0 注册：2017/10/8 14:56:00 		  发帖心情 Post By：2017/10/10 11:34:00 [只看该作者]

不加$出这个错误
.NET Framework 版本：2.0.50727.8794
Foxtable 版本：2017.8.19.1
错误所在事件：
详细错误信息：
The Microsoft Jet database engine could not find the object '履历信息'.  Make sure the object exists and that you spell its name and the path name correctly.

加了之后是这个错误
.NET Framework 版本：2.0.50727.8794
Foxtable 版本：2017.8.19.1
错误所在事件：
详细错误信息：
'履历信息$' is not a valid name.  Make sure that it does not include invalid characters or punctuation and that it is not too long.

帮忙解决以下 谢谢大神
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/10/10 11:46:00 [只看该作者]

试试改成下面，红色的改成你excel里面表格的名字。

 

如果还有问题，excel文件发上来看看。

 

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 = "sheet$"
    mg.DataTableName = "履历信息"
    mg.Merge()
End If
 回到顶部
帅哥哟，离线，有人找我吗？
LTHERO
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：154 积分：1331 威望：0 精华：0 注册：2017/10/8 14:56:00 		  发帖心情 Post By：2017/10/10 11:59:00 [只看该作者]

文件是这个
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:111.xls
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/10/10 12:09: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 = "履历信息_table1$"
    mg.DataTableName = "履历信息"
    mg.Merge()
End If

 回到顶部
帅哥哟，离线，有人找我吗？
LTHERO
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：154 积分：1331 威望：0 精华：0 注册：2017/10/8 14:56:00 		  发帖心情 Post By：2017/10/10 12:16:00 [只看该作者]

好了 解决了 谢谢大神

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询