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()
'完成数据帮定，显示数据 四. 具体的源代码:
＜%@ 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＞
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
