日期:2008-06-25  浏览次数:20532 次

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>