ASP.NET

Using Con As New Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(".") & "\myfile.xls;Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";User ID=Admin; Password=")<br />
            Dim Com As New Data.OleDb.OleDbCommand<br />
            Dim DR As Data.OleDb.OleDbDataReader<br />
            Dim sQuery As String<br />
<br />
            Con.Open()<br />
            Com.Connection = Con<br />
<br />
            sQuery = "SELECT * FROM [sheet1$]"<br />
<br />
            Com.CommandText = sQuery<br />
            DR = Com.ExecuteReader<br />
<br />
            Dim DT As New Data.DataTable<br />
            DT.Columns.Add("name")<br />
            DT.Columns.Add("details")<br />
            While DR.Read<br />
                Dim DatRow As Data.DataRow = DT.NewRow<br />
                Dim Value As String = ""<br />
                DatRow("name") = DR("name")<br />
                DatRow("details") = DR("email id")<br />
                DT.Rows.Add(DatRow)<br />
            End While<br />
<br />
            MyGrid.DataSource = DT<br />
            MyGrid.DataBind()<br />
<br />
        End Using

ASP.NET 2.0 wrote:

This code only take the files which are on server but I want to take the files from client machine.

Private Sub IbtnSubmit_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles IbtnSubmit.Click
Dim I As Integer
        Dim J As Integer = 0
        Dim oldI As Integer
        Dim oldJ As Integer
        Dim colnum As Integer = 0
        Dim tmparray(35) As String
        Dim tmpstr As String
        Dim instr As String = tboxauto.Text
        Dim objArrayList As New Collections.ArrayList   'Input parameters

        If instr.Length = 0 Then
            showmessagebox("You need to copy the Excel section into the text box")
            Exit Sub
        End If
'Parse through the excel file copied into the textbox
        I = instr.IndexOf(Chr(13))
        oldI = 0
        While I <> -1
            tmpstr = instr.Substring(oldI, I - oldI)
            oldJ = 0
            J = tmpstr.IndexOf(Chr(9))
            cleararray(tmparray)
            colnum = 0
            While J <> -1
                If colnum > 32 Then
                    Exit While
                End If
                tmparray(colnum) = tmpstr.Substring(oldJ, J - oldJ)
                colnum += 1
                oldJ = J + 1
                J = tmpstr.IndexOf(Chr(9), J + 1)
            End While
            If tmparray(1).ToUpper = "ISR" OrElse tmparray(1).ToUpper = "HELP DESK TICKET" Then
                'skip because this is the header of the excel file
            Else
                processauto(tmparray)
            End If

            oldI = I + 2 '2 because of cr and lf
            I = instr.IndexOf(Chr(13), I + 1)
        End While
    End Sub
    Private Sub cleararray(ByRef inarry() As String)
        Dim I As Integer = 0
        While Not (inarry(I) Is Nothing)
            inarry(I) = Nothing
            I += 1
        End While
    End Sub
    Private Sub processauto(ByVal inarry() As String)
'YOu can write some code here to use the data.
    End Sub