• <ruby id="5koa6"></ruby>
    <ruby id="5koa6"><option id="5koa6"><thead id="5koa6"></thead></option></ruby>

    <progress id="5koa6"></progress>

  • <strong id="5koa6"></strong>
  • ASP.NET:訪問Excel 電子表格

    發表于:2007-06-30來源:作者:點擊數: 標簽:
    C# Code --------------------------------------------- %@ Page Language=C# % %@ Import Namespace=System.Data % %@ Import Namespace=System.Data.ADO % script language=C# runat=server protected void Page_Load(Object Src, EventArgs E) { string
    C# Code
    ---------------------------------------------
    <%@ Page Language="C#" %>
    <%@ Import Namespace="System.Data" %>
    <%@ Import Namespace="System.Data.ADO" %>

    <script language="C#" runat="server">
    protected void Page_Load(Object Src, EventArgs E)
    {
    string strConn;
    strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" +
    "Data Source=C:\\exceltest.xls;" +
    "Extended Properties=Excel 8.0;";
    @#You must use the $ after the object you reference in the spreadsheet
    ADODataSetCommand myCommand = new ADODataSetCommand("SELECT * FROM [Sheet1$]", strConn);

    DataSet myDataSet = new DataSet();
    myCommand.FillDataSet(myDataSet, "ExcelInfo");
    DataGrid1.DataSource = myDataSet.Tables["ExcelInfo"].DefaultView;
    DataGrid1.DataBind();
    }
    </script>
    <p><asp:Label id=Label1 runat="server">SpreadSheet Contents:</asp:Label></p>
    <asp:DataGrid id=DataGrid1 runat="server"/>


    VB.NET Code
    ----------------------------------------------
    <%@ Page Language="VB" %>
    <%@ Import Namespace="System.Data" %>
    <%@ Import Namespace="System.Data.ADO" %>

    <script language="VB" runat="server">
    Sub Page_Load(sender As Object, e As EventArgs)
    Dim myDataset As New DataSet()

    @#You can also use the Excel ODBC driver I believe - didn@#t try though
    Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=C:\exceltest.xls;" & _
    "Extended Properties=""Excel 8.0;"""

    @#You must use the $ after the object you reference in the spreadsheet
    Dim myADODataSetCommand As New ADODataSetCommand("SELECT * FROM [Sheet1$]", strConn)
    myADODataSetCommand.TableMappings.Add("Table", "ExcelTest")
    myADODataSetCommand.FillDataSet(myDataset)

    DataGrid1.DataSource = myDataset.Tables(0).DefaultView
    DataGrid1.DataBind()
    End Sub
    </script>
    <p><asp:Label id=Label1 runat="server">SpreadSheet Contents:</asp:Label></p>
    <asp:DataGrid id=DataGrid1 runat="server"/>

    原文轉自:http://www.kjueaiud.com

    老湿亚洲永久精品ww47香蕉图片_日韩欧美中文字幕北美法律_国产AV永久无码天堂影院_久久婷婷综合色丁香五月

  • <ruby id="5koa6"></ruby>
    <ruby id="5koa6"><option id="5koa6"><thead id="5koa6"></thead></option></ruby>

    <progress id="5koa6"></progress>

  • <strong id="5koa6"></strong>