ASP.NET: Dispaly data from an Excel Spreadsheet
日期：2012-03-22 浏览次数：20399 次
This code was written in response to a message posted on one of Charles Carroll's ASP.NET lists. You can sign up for one or all of the lists here.This page provides a simple example of how to query an Excel spreadsheet from an ASP.NET page using VB.NET.
Code:
<%@ Page Language="VB" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<html>
<script language="VB" runat="server">
Sub Page_Load(sender As Object, e As EventArgs)
Dim myDataset As New DataSet()
Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Replace(Server.MapPath("."), "\", "\\") & "\\exceltest.xls;" & _
"Extended Properties=""Excel 8.0;"""
'You must use the $ after the object you reference in the spreadsheet
Dim myOleDbDataAdapter As New OleDbDataAdapter("SELECT * FROM [Sheet1$]", strConn)
myOleDbDataAdapter.Fill(myDataset)
DataGrid1.DataSource = myDataset.Tables(0).DefaultView
DataGrid1.DataBind()
End Sub
</script>
</html>
Code:
<%@ Page Language="VB" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<html>
<script language="VB" runat="server">
Sub Page_Load(sender As Object, e As EventArgs)
Dim myDataset As New DataSet()
Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Replace(Server.MapPath("."), "\", "\\") & "\\exceltest.xls;" & _
"Extended Properties=""Excel 8.0;"""
'You must use the $ after the object you reference in the spreadsheet
Dim myOleDbDataAdapter As New OleDbDataAdapter("SELECT * FROM [Sheet1$]", strConn)
myOleDbDataAdapter.Fill(myDataset)
DataGrid1.DataSource = myDataset.Tables(0).DefaultView
DataGrid1.DataBind()
End Sub
</script>
</html>
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
