Dim oconn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("~/IMEINO/IMEINO.xls") & ";Extended Properties=Excel 8.0") Try Dim ocmd As New OleDbCommand("select * from [Sheet1$]", oconn) oconn.Open() Dim odr As OleDbDataReader = ocmd.ExecuteReader() Dim IMEINO As String = "" Dim Status As String = "" Dim ActivateDeactivate As String = "" While odr.Read() IMEINO = valid(odr, 0) Status = valid(odr, 1) ActivateDeactivate = valid(odr, 2) If IMEINO Is DBNull.Value Or IMEINO = "0" Then Exit While End If InsertIMEINOList(IMEINO, Status, ActivateDeactivate) End While oconn.Close()
:-The 'Microsoft.Jet.OLEDB.4.0' provider is not registered on the local machine.
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)