马上加入IBC程序猿 各种源码随意下,各种教程随便看! 注册 每日签到 加入编程讨论群

C#教程 ASP.NET教程 C#视频教程程序源码享受不尽 C#技术求助 ASP.NET技术求助

【源码下载】 社群合作 申请版主 程序开发 【远程协助】 每天乐一乐 每日签到 【承接外包项目】 面试-葵花宝典下载

官方一群:

官方二群:

ASP.NET读取Excel文档代码示例

[复制链接]
查看6969 | 回复2 | 2013-1-1 13:49:20 | 显示全部楼层 |阅读模式
今日讲解一下实现思路
 一. 程序设计及运行环境

  (1).Windows 2000 Professional

  (2)..Net Framework SDK Beta 2

  (3).Microsoft Access Data Component 2.6(MADC2.6)

  二. 具体的设计思路

  (1).获得要访问的Excel文件名称

  (2).读出Excel文件的内容

  (3).用DataGrid格式显示出来

  下面就一些关键的步骤来具体说明。

  三. 程序设计的关键步骤

  (1).为了方便,我们就把Excel文件假定在C盘的根目录,名称为test.xls。

  (2).为了读取Excel文件,我们必须了解一个名称空间(NameSpace)--System.Data.Oledb。System.Data.Oledb中有三个对象分别是OleDbConnection,OleDbCommand,OledbDataAdapter。我们就是通过他们来访问Excel文件的。
[C#] 纯文本查看 复制代码
 i> OleDbConnection对象主要是提供连接方式。

  ii> OleDbCommand对象提供对目标的具体操作方法。

  iii>OledbDataAdapter对象是对对象进行不同操作后的返回数据集。

  为了读取C盘的test.xls只要以下语句就可以完成:

Dim myOleDbConnection As OleDbConnection = New 
   OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & _
   "Data Source=c:\test.xls;" & _
   "Extended Properties=""Excel 8.0;""")
Dim myOleDbCommand As OleDbCommand = New OleDbCommand("SELECT * 
   FROM [Sheet1$]",myOleDbConnection) '如果你想读出Sheet2的内容
   ,把Sheet1$改成Sheet2$即可
Dim myData As OledbDataAdapter= New 
   OledbDataAdapter(myOleDbCommand) 

(3).读出Excel文件内容后,就要把他用DataGrid显示出来。为了显示,还要用另外一个名称空间--System.Data。他里面有个对象DataSet,他可以和DataGrid进行数据帮定,从而以DataGrid形式显示数据。而此时读出的数据集并不是以对象DataSet来表现的,这就需要进行转换,好在OledbDataAdapter对象提供了一个方法--Fill,可以完成转换。具体程序如下:

Dim myDataset As New DataSet()
myData.Fill(myDataset)
'完成从OledbDataAdapter对象到DataSet的转换
DataGrid1.DataSource = myDataset.Tables(0).DefaultView
DataGrid1.DataBind() '完成数据帮定,显示数据

代码展示

[HTML] 纯文本查看 复制代码
<%@ Page Language="VB" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.Oledb" %> 
<script language="VB" runat="server">
Sub Page_Load(sender As Object, e As EventArgs)
Dim myDataset As New DataSet()
Dim myOleDbConnection As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=c:\2.xls;" & _
"Extended Properties=""Excel 8.0;""")
Dim myOleDbCommand As OleDbCommand = New OleDbCommand("SELECT * FROM [Sheet1$]",myOleDbConnection)
Dim myData As OledbDataAdapter= New OledbDataAdapter(myOleDbCommand)

myData.Fill(myDataset)

DataGrid1.DataSource = myDataset.Tables(0).DefaultView
DataGrid1.DataBind()
End Sub
</script>

<html>
<head></head>
<body>
<asp:Label id="L1" runat="server">读取C盘根目录下的test.xls文件,并以DataGrid的形式显示出来</asp:label>
<asp:DataGrid id=DataGrid1 runat="server"/>
</body>
</html> 





C#论坛 www.ibcibc.com IBC编程社区
C#
C#论坛
IBC编程社区
chao2332601 | 2013-6-16 02:03:45 | 显示全部楼层
谢谢分享!!!
chao2332601 | 2013-6-16 04:59:45 | 显示全部楼层
谢谢分享!!!
*滑块验证:
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则