Foxtable(狐表) → 用户栏目 → 专家坐堂 → [分享]oledb用Table查看Excel数据


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

主题：[分享]oledb用Table查看Excel数据
帅哥哟，离线，有人找我吗？
jspta
 小大  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1731 积分：11255 威望：0 精华：0 注册：2011/12/15 22:06:00 		  发帖心情 Post By：2013/8/28 15:31:00 [只看该作者]

学习下，正好要用了

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


加好友 发短信
等级：四尾狐 帖子：880 积分：9005 威望：0 精华：3 注册：2012/4/22 18:06:00 		  发帖心情 Post By：2013/8/28 15:56:00 [只看该作者]

看一下

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


加好友 发短信
等级：版主 帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00 		  发帖心情 Post By：2013/8/28 17:02:00 [只看该作者]

顶帖的来了。
 回到顶部
帅哥哟，离线，有人找我吗？
gzdw
 小大  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：308 积分：3351 威望：0 精华：0 注册：2011/12/22 17:52:00 		  发帖心情 Post By：2013/8/28 17:47:00 [只看该作者]

请问能否解释一下这段代码的含义？因为许多写法在狐表的帮助中找不到。

 

If e.Sender.SelectedPage Is Nothing Then '规避空选

    Exit Sub

End If

using DataSet1 As new System.Data.DataSet

Dim Connection As  New System.Data.OleDb.OleDbConnection

Connection.ConnectionString  = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _

+ Vars("Path") + ";Extended Properties='Excel 8.0;HDR=yes ;IMEX=2'"

Dim adapter As New System.Data.OleDb.OleDbDataAdapter("SELECT * FROM [" & Forms("窗口1").Controls("TabControl1").SelectedPage.name & "] ", Connection)

adapter.Fill(DataSet1)

Tables("窗口1_Table1").DataSource =  DataSet1.Tables(0) '按实际修改表名

Connection.Close()

End using

<!--EndFragment-->

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


加好友 发短信
等级：版主 帖子：1693 积分：12117 威望：0 精华：7 注册：2013/7/11 10:52:00 		  发帖心情 Post By：2013/8/28 21:17:00 [只看该作者]

以下是引用gzdw在2013-8-28 17:47:00的发言：

请问能否解释一下这段代码的含义？因为许多写法在狐表的帮助中找不到。

 

If e.Sender.SelectedPage Is Nothing Then '规避空选

    Exit Sub

End If

using DataSet1 As new System.Data.DataSet

Dim Connection As  New System.Data.OleDb.OleDbConnection

Connection.ConnectionString  = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _

+ Vars("Path") + ";Extended Properties='Excel 8.0;HDR=yes ;IMEX=2'"

Dim adapter As New System.Data.OleDb.OleDbDataAdapter("SELECT * FROM [" & Forms("窗口1").Controls("TabControl1").SelectedPage.name & "] ", Connection)

adapter.Fill(DataSet1)

Tables("窗口1_Table1").DataSource =  DataSet1.Tables(0) '按实际修改表名

Connection.Close()

End using

<!--EndFragment-->

1、定义数据集。

2、定义连接。

3、定义连接字符串，不是excel2003的修改这里，也可以用扩展名判断后选择，提高通用性。

后面就是一些取DataTable和绑定表的工作，最后释放连接。

using 表示代码结束后立即释放。后面两个红的是全路径引用对象。
 回到顶部
帅哥哟，离线，有人找我吗？
gsnake
 小大  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：682 积分：5263 威望：0 精华：0 注册：2012/6/6 14:37:00 		  发帖心情 Post By：2013/8/28 21:28:00 [只看该作者]

看看了

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


加好友 发短信
等级：狐神 帖子：4633 积分：33815 威望：0 精华：0 注册：2008/8/31 22:44:00 		  发帖心情 Post By：2013/8/28 22:36:00 [只看该作者]

俺也看看

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


加好友 发短信
等级：童狐 帖子：228 积分：2054 威望：0 精华：1 注册：2012/5/24 16:00:00 		  发帖心情 Post By：2013/8/29 8:34:00 [只看该作者]

学习一下

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


加好友 发短信
等级：婴狐 帖子：47 积分：423 威望：0 精华：0 注册：2012/6/22 21:46:00 		有用  发帖心情 Post By：2014/1/23 23:52:00 [只看该作者]

谢谢作者！

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


加好友 发短信
等级：三尾狐 帖子：681 积分：5332 威望：0 精华：0 注册：2011/12/26 20:43:00 		  发帖心情 Post By：2014/1/24 0:36:00 [只看该作者]

学习一下

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