Visual Basic

Okay thanks hey.

I have multiples excel file report. I'm suppose to extract data from those excel file save it in a database so that i can have 1 big report.
so far i am able to browse the file and save data into a dataset. I want to read into data and extract certain data that i need only. im stuck when looping  ;P  ;P  ;P 
  Dim MyConnection As System.Data.OleDb.OleDbConnection
        Dim DtSet As System.Data.DataSet
        Dim MyCommand As System.Data.OleDb.OleDbDataAdapter

        Dim fBrowse As New OpenFileDialog
        With fBrowse
            .Filter = "Excel files(*.xlsx)|*.xlsx|All files (*.*)|*.*"
            .FilterIndex = 1
            .Title = "Import data from Excel file"
        End With
        If fBrowse.ShowDialog() = Windows.Forms.DialogResult.OK Then

            Dim fname As String
            fname = fBrowse.FileName
            MyConnection = New System.Data.OleDb.OleDbConnection("Provider= Microsoft.Jet.OLEDB.4.0; Data Source='" & fname & " '; " & "Extended Properties=Excel 8.0;")

            MyCommand = New System.Data.OleDb.OleDbDataAdapter("select * from [Apr14$]", MyConnection)
            MyCommand.TableMappings.Add("Table", "Billing_report")
            DtSet = New System.Data.DataSet


            MyCommand.Fill(DtSet)

            DataGridView1.DataSource = DtSet.Tables(0)
            MyConnection.Close()
            Dim sr As System.IO.StreamReader = New System.IO.StreamReader(fname)
            Dim line As String
            line = sr.ReadLine().Trim
            Dim n As Integer
            Do While line.StartsWith("CNC")
                sr.ReadLine()
                If line.StartsWith("CNC") Then
                    line.Substring(10, 11).Length.ToString().Trim()
                    n += 1
                    If line.Contains("Circuit no") Then

                    End If
                End If

            Loop
        End If

Zubair Ahmad wrote:

please give me some suggession

If(m_Context.Request.Url.Port = 80, String.Empty, ":" & m_Context.Request.Url.Port)

string value = someObject.someProp == 0 ? myObject.prop + "something" : otherObject.prop

Dim value As String = If(someObject.someProp = 0, myObject.prop + "something", otherObject.prop)

Dave Kreskowiak wrote:

Since IF() and IIF() are both methods, ALL arguments being passed to them are evaluated.