Click here to Skip to main content
15,910,083 members
Home / Discussions / Visual Basic
   

Visual Basic

 
GeneralRe: Could not Load type 'ADODB.FieldsToInternalFieldsMarshaler' from assembly Pin
Ed Barnes31-Oct-14 10:45
Ed Barnes31-Oct-14 10:45 
GeneralRe: Could not Load type 'ADODB.FieldsToInternalFieldsMarshaler' from assembly Pin
Eddy Vluggen31-Oct-14 10:57
professionalEddy Vluggen31-Oct-14 10:57 
QuestionUsing webcam as a mouse Pin
firefox2468027-Oct-14 22:26
firefox2468027-Oct-14 22:26 
AnswerRe: Using webcam as a mouse Pin
Dave Kreskowiak28-Oct-14 1:27
mveDave Kreskowiak28-Oct-14 1:27 
GeneralRe: Using webcam as a mouse Pin
firefox246804-Nov-14 7:41
firefox246804-Nov-14 7:41 
GeneralRe: Using webcam as a mouse Pin
Dave Kreskowiak4-Nov-14 8:55
mveDave Kreskowiak4-Nov-14 8:55 
QuestionExtraction of data from excel to databae Pin
Member 1118244626-Oct-14 21:33
Member 1118244626-Oct-14 21:33 
AnswerRe: Extraction of data from excel to databae Pin
Member 1118244626-Oct-14 21:56
Member 1118244626-Oct-14 21:56 
XML
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

GeneralRe: Extraction of data from excel to databae Pin
Richard MacCutchan26-Oct-14 23:12
mveRichard MacCutchan26-Oct-14 23:12 
Questiontime clock Pin
Zubair Ahmad26-Oct-14 18:37
Zubair Ahmad26-Oct-14 18:37 
AnswerRe: time clock Pin
Richard MacCutchan26-Oct-14 22:00
mveRichard MacCutchan26-Oct-14 22:00 
QuestionSet app reference with config Pin
BobbyStrain25-Oct-14 14:51
BobbyStrain25-Oct-14 14:51 
AnswerRe: Set app reference with config Pin
Dave Kreskowiak25-Oct-14 16:58
mveDave Kreskowiak25-Oct-14 16:58 
GeneralRe: Set app reference with config Pin
BobbyStrain27-Oct-14 6:16
BobbyStrain27-Oct-14 6:16 
GeneralRe: Set app reference with config Pin
i006-Nov-14 13:14
i006-Nov-14 13:14 
GeneralRe: Set app reference with config Pin
BobbyStrain6-Nov-14 15:06
BobbyStrain6-Nov-14 15:06 
QuestionNew Project Idea for Learning VB.Net Pin
Brian Lefler25-Oct-14 9:14
Brian Lefler25-Oct-14 9:14 
GeneralRe: New Project Idea for Learning VB.Net Pin
PIEBALDconsult25-Oct-14 10:05
mvePIEBALDconsult25-Oct-14 10:05 
GeneralRe: New Project Idea for Learning VB.Net Pin
Brian Lefler25-Oct-14 17:32
Brian Lefler25-Oct-14 17:32 
GeneralRe: New Project Idea for Learning VB.Net Pin
Richard MacCutchan25-Oct-14 22:20
mveRichard MacCutchan25-Oct-14 22:20 
GeneralRe: New Project Idea for Learning VB.Net Pin
Brian Lefler26-Oct-14 3:56
Brian Lefler26-Oct-14 3:56 
GeneralRe: New Project Idea for Learning VB.Net Pin
Richard MacCutchan26-Oct-14 4:34
mveRichard MacCutchan26-Oct-14 4:34 
GeneralRe: New Project Idea for Learning VB.Net Pin
Brian Lefler26-Oct-14 4:46
Brian Lefler26-Oct-14 4:46 
QuestionHelp in converting this to vb if possible Pin
jkirkerx23-Oct-14 7:26
professionaljkirkerx23-Oct-14 7:26 
AnswerI think I got it Pin
jkirkerx23-Oct-14 7:42
professionaljkirkerx23-Oct-14 7:42 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.