Foxtable(狐表)用户栏目专家坐堂 → [求助]用对话框的方式批量导入可以实现吗?


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

主题:[求助]用对话框的方式批量导入可以实现吗?

帅哥哟,离线,有人找我吗?
xiaoyongxg2
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:144 积分:1107 威望:0 精华:0 注册:2014/6/1 10:22:00
[求助]用对话框的方式批量导入可以实现吗?  发帖心情 Post By:2014/9/24 9:55:00 [显示全部帖子]

甜老师,用对话框的方式进行批量导入excel文件,且文件名和表名都不一样,可以实现吗?

 回到顶部
帅哥哟,离线,有人找我吗?
xiaoyongxg2
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:144 积分:1107 威望:0 精华:0 注册:2014/6/1 10:22:00
  发帖心情 Post By:2014/9/24 10:15:00 [显示全部帖子]

出错了,找不到哪不对,甜老师
System.Data.OleDb.OleDbException: SELECT 子句中包含一个保留字、拼写错误或丢失的参数,或标点符号不正确。

Dim dlg As New OpenFileDialog
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.OK Then
For Each fl As String In dlg.FileNames
    Dim ip As New Importer
    ip.SourcePath = dlg.FileName
    ip.SourceTableName = fl
    ip.NewTableName = fl
    ip.Import()
  
    Next
End If

 回到顶部
帅哥哟,离线,有人找我吗?
xiaoyongxg2
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:144 积分:1107 威望:0 精华:0 注册:2014/6/1 10:22:00
  发帖心情 Post By:2014/9/24 10:22:00 [显示全部帖子]

是这样吗?
Dim dlg As New OpenFileDialog
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.OK Then
For Each fl As String In dlg.FileNames
    Dim ip As New Importer
    ip.Format ="Excel"
    ip.SourcePath = dlg.FileName
    ip.SourceTableName = fl & "$"
    ip.NewTableName = fl
    ip.Import()
  
    Next
End If

 回到顶部
帅哥哟,离线,有人找我吗?
xiaoyongxg2
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:144 积分:1107 威望:0 精华:0 注册:2014/6/1 10:22:00
  发帖心情 Post By:2014/9/24 10:38:00 [显示全部帖子]

导一个没问题,成批导还是出刚才的错误

 回到顶部
帅哥哟,离线,有人找我吗?
xiaoyongxg2
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:144 积分:1107 威望:0 精华:0 注册:2014/6/1 10:22:00
  发帖心情 Post By:2014/9/24 10:43:00 [显示全部帖子]

如果是文件格式不规范的话,不应该会单个导入正常,批量出错啊

 回到顶部
帅哥哟,离线,有人找我吗?
xiaoyongxg2
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:144 积分:1107 威望:0 精华:0 注册:2014/6/1 10:22:00
  发帖心情 Post By:2014/9/24 10:48:00 [显示全部帖子]

批量导入第一个不会出错,(无论哪个文件在第一个)后面的会连续出错

 回到顶部
帅哥哟,离线,有人找我吗?
xiaoyongxg2
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:144 积分:1107 威望:0 精华:0 注册:2014/6/1 10:22:00
  发帖心情 Post By:2014/9/24 11:08:00 [显示全部帖子]

上了个例子,老师看看

 回到顶部
帅哥哟,离线,有人找我吗?
xiaoyongxg2
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:144 积分:1107 威望:0 精华:0 注册:2014/6/1 10:22:00
  发帖心情 Post By:2014/9/24 11:14:00 [显示全部帖子]

是在添加附件后上传附件,再点OK回复吧?怎么看不到呢

 回到顶部
帅哥哟,离线,有人找我吗?
xiaoyongxg2
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:144 积分:1107 威望:0 精华:0 注册:2014/6/1 10:22:00
  发帖心情 Post By:2014/9/24 11:14:00 [显示全部帖子]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:新建 winrar 压缩文件.rar


 回到顶部
帅哥哟,离线,有人找我吗?
xiaoyongxg2
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:144 积分:1107 威望:0 精华:0 注册:2014/6/1 10:22:00
  发帖心情 Post By:2014/9/24 11:47:00 [显示全部帖子]

删除后会正常吗?

 回到顶部
总数 13 1 2 下一页