Visual Basic

Ed Barnes wrote:

I checked the copy local and it was set correctly. I even checked the version of
ADODB.dll and it was the same as on the original machine and the Path was
correct.

Ed Barnes wrote:

I've never done an entire program using OleDb that I can remember

Ed Barnes wrote:

of course at my advanced age of 81, what I remember and what is a fact may be completely different

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]

Ed Barnes wrote:

My mother used to tell me that I remembered all sorts of things that never happened.

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]

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