利用ASP.NET来访问Excel文档+DATAGRID显示数据[注意:Excel中有图片]

具体的设计思路

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

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

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

源码:

<%@ 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:/全套級放追蹤表.xls;" & _
"Extended Properties=""Excel 8.0;""")
Dim myOleDbCommand As OleDbCommand = New OleDbCommand("SELECT * FROM [meld$]",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"></asp:label>
<asp:DataGrid id=DataGrid1 runat="server"/>
</body>
</html>


可是,这种方式虽然能够显示出Excel文档中的数据,可是却无法显示出图形!
如下面的这篇文档:

在浏览器中显示时,其“鞋图”这一栏位的图片会为空![无数据]

请问,我要如何修改上面那段程序,实现能够在浏览器中能够“完整”的显示上图的Excel文档呢? 


又或者,又没有别的更好的方法实现呢?
DUDU,我比较急,暂借首页用一下!
讨论完后马上移走,谢谢!
<script language="VB" runat="server" type="text/javascript"> 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:/全套級放追蹤表.xls;" & _ "Extended Properties=""Excel 8.0;""") Dim myOleDbCommand As OleDbCommand = New OleDbCommand("SELECT * FROM [meld$]",myOleDbConnection) Dim myData As OledbDataAdapter= New OledbDataAdapter(myOleDbCommand) myData.Fill(myDataset) DataGrid1.DataSource = myDataset.Tables(0).DefaultView DataGrid1.DataBind() End Sub </script> <script language="VB" runat="server" type="text/javascript"> 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:/全套級放追蹤表.xls;" & _ "Extended Properties=""Excel 8.0;""") Dim myOleDbCommand As OleDbCommand = New OleDbCommand("SELECT * FROM [meld$]",myOleDbConnection) Dim myData As OledbDataAdapter= New OledbDataAdapter(myOleDbCommand) myData.Fill(myDataset) DataGrid1.DataSource = myDataset.Tables(0).DefaultView DataGrid1.DataBind() End Sub </script>

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值