How can I import excel files to SQL database

Question

0.00/5 (No votes)

See more:

hello guys
so I had this problem with a simple project that I build, I wanted to import more than one excel files into tables in the database.
I could only import one file to the table, so I want to import multiple excel files to multiple tables in the database. is anyone can help me ? I would really appreciate it

What I have tried:

here's the code that I use and it only works to import one file to one table, and what I need is to import more than one files into different tables in the database.

VB

Dim koneksi_excel As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & TextBox1.Text & "';Extended Properties=""Excel 12.0 Xml;HDR=YES""")
       koneksi_excel.Open()
       Dim query_excel As String = "Select * from [Sheet1$]"
       Dim cmd As OleDbCommand = New OleDbCommand(query_excel, koneksi_excel)
       Dim rd As OleDbDataReader
       rd = cmd.ExecuteReader()

       Dim koneksi As New SqlConnection()
       Dim koneksidatabase As String = "server=DESKTOP-KJQ8PNO\SQLEXPRESS;DATABASE=otto;Integrated Security=True"
       koneksi.ConnectionString = koneksidatabase
       koneksi.Open()

       Using bulkcopy As SqlBulkCopy = New SqlBulkCopy(koneksi)
           bulkcopy.DestinationTableName = "DAFTAR1"
           bulkcopy.BulkCopyTimeout = 600
           bulkcopy.WriteToServer(rd)
           rd.Close()
           koneksi.Close()

           MsgBox("Data uploaded to database", MsgBoxStyle.Information, "Uploaded")
           TextBox1.Text = ""
       End Using

   End Sub

Best regards

Nick

Posted 10-Mar-17 19:52pm

Member 13052135

Updated 11-Mar-17 0:05am

v2

Add a Solution

Comments

Michael_Davies 11-Mar-17 2:31am

What does not work, it does work as you say it imports a file successfully.

Help us to help you, "it won't work" does not mean anything.

Click Improve question and give the details of what does not work, if it is just the need to import multiple files is into the same table or separate tables?

Member 13052135 11-Mar-17 4:21am

hello Michael thanks for your answer
well the code only works to import one file to one table, so what I want to do with this is to import multiple files to separate tables.
so for example I have 3 excel files and I need to import these files into different tables in the database

Michael_Davies 11-Mar-17 4:52am

So what you need to do is;

1. A sub that collects the file names to be imported then uses a loop to call 2. below with the file name and a table name.

2. A sub that accepts a filename and table name as string parameters that contains the code you have already shown using the parameters for the file name and table name.

Job done.

Member 13052135 11-Mar-17 5:01am

I'll try to figure it out first
thanks man I really appreciate it

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Michael_Davies · Answer 1 · 2017-03-11T00:05:00

Here is your code for part 2 of my comments adjusted to do the job of importing a single file, all you need to do is write the sub that collects the file names and call the sub below for each file in turn;

VB

Public Sub ImportExcelFielToTable(ExcelFile As String, TargetTable As String)
Dim koneksi_excel As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & ExcelFile & "';Extended Properties=""Excel 12.0 Xml;HDR=YES""")
        koneksi_excel.Open()
        Dim query_excel As String = "Select * from [Sheet1$]"
        Dim cmd As OleDbCommand = New OleDbCommand(query_excel, koneksi_excel)
        Dim rd As OleDbDataReader
        rd = cmd.ExecuteReader()

        Using koneksi As New SqlConnection("server=DESKTOP-KJQ8PNO\SQLEXPRESS;DATABASE=otto;Integrated Security=True")
        koneksi.Open()

        Using bulkcopy As SqlBulkCopy = New SqlBulkCopy(koneksi)
            bulkcopy.DestinationTableName = TargetTable
            bulkcopy.BulkCopyTimeout = 600
            bulkcopy.WriteToServer(rd)
            rd.Close()

            MsgBox("Data uploaded to database", MsgBoxStyle.Information, "Uploaded")
            TextBox1.Text = ""
        End Using
        koneksi.Close()
      End Using
    End Sub