--------------------------
Imports System.Data.OleDb
Private Sub form1_load()
Dim con As OleDbConnection
Dim da As OleDbDataAdapter
Dim ds As DataSet
Try
con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;data source=g:\recordsheet.xls;Extended Properties=Excel 8.0")
con.Open()
da = New OleDbDataAdapter("select * from [sheet1$]", con)
da.TableMappings.Add("Table", "Details")
da.Fill(ds)
DataGrid1.DataSource = ds.Tables(0).DefaultView
DataGrid1.AlternatingBackColor = Color.Yellow
Catch ex As Exception
MsgBox(ex.Message)
Finally
con.Close()
End Try
End Sub
End Class



Help
Back to top









