Click here to Skip to main content
15,867,308 members
Articles / Database Development / SQL Server
Article

Import Excel files to SQL Server dynamically

Rate me:
Please Sign up or sign in to vote.
4.71/5 (18 votes)
3 Sep 2008CPOL 185.2K   61   33
This article shows how to import Excel files to SQL Server dynamically.

Introduction

This article will show you how to import an Excel file to SQL Server, dynamically, without the need to open the Import wizard from SQL Server. This could be of great help if you have a lot of Excel files to import.

Using the code

First, create the Datamanage class that holds the import code. The “excelCommand” will create a new table in the SQL Server database, taking into consideration the names and data types of the Excel file fields.

VB
Public Class Datamanage
    ''' <summary />
    ''' Imports the selected Excel file to SQL Server 
    ''' </summary />
   Public Sub importToServer(ByVal ExcelPath As String, _
              ByVal ServerName As String, _
              ByVal DBName As String, ByVal UserName As String, _
              ByVal Password As String, ByVal InsertedTableName As String)
        Try
            Dim ExceCon As String = _
                &quot;Provider=Microsoft.ACE.OLEDB.12.0;Data Source=&quot; & _
                ExcelPath & &quot;; Extended Properties=Excel 8.0&quot;
            Dim excelConnection As System.Data.OleDb.OleDbConnection = _
                New System.Data.OleDb.OleDbConnection(ExceCon)
            excelConnection.Open()
            'Dim OleStr As String = &quot;SELECT * INTO [ODBC; Driver={SQL Server};&quot; & _
                 &quot;Server=Hoss;Database=Excel_Test;Uid=sa;Pwd=sa2008; ].[myTable]   
            FROM [Sheet1$];&quot;
            Dim OleStr As String = &quot;SELECT * INTO [ODBC; Driver={SQL Server};Server=&quot; _
                & ServerName & &quot;;Database=&quot; & DBName & &quot;;Uid=&quot; & _
                UserName & &quot;;Pwd=&quot; & Password & &quot;; ].[&quot; & _
                InsertedTableName & &quot;]   FROM [Sheet1$];&quot;
            Dim excelCommand As New System.Data.OleDb.OleDbCommand(OleStr, _
                                                      excelConnection)
            excelCommand.ExecuteNonQuery()
            excelConnection.Close()
        Catch ex As Exception
            Throw New Exception(&quot;Error: &quot; & ex.Message)
        End Try
    End Sub
End Class

Now, the main form:

VB
Imports System.IO
Public Class ImportExcel
    Dim dm As New Datamanage
    Private Sub Button2_Click(ByVal sender As System.Object, _
            ByVal e As System.EventArgs) Handles Button2.Click
        OpenFileDialog1.ShowDialog()
        txtexcelPath.Text = OpenFileDialog1.FileName
                     
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object,
        ByVal e As System.EventArgs) Handles Button1.Click
        Try
                Dim ExcelPath As String = txtexcelPath.Text.ToLower()
                Dim Ext As String = _
                    ExcelPath.Substring(ExcelPath.LastIndexOf(&quot;.&quot;) + 1)
                If File.Exists(ExcelPath) AndAlso (Ext.Equals(&quot;xls&quot;) _
                        Or Ext.Equals(&quot;xlsx&quot;)) Then
                    dm.importToServer(OpenFileDialog1.FileName, txtServer.Text,_
                        txtDbName.Text, txtusername.Text, txtpassword.Text,_
                        txtInsertedTableName.Text)
                    ProgressBar1.Visible = False
                    MessageBox.Show(&quot;File imported successfully&quot;)
                 End If
        Catch ex As Exception
            ProgressBar1.Visible = False
            MessageBox.Show(ex.Message)
        End Try
    End Sub
End Class

Import_Excel.jpg

I hope this helps!

License

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


Written By
Software Developer CME Offshore
Lebanon Lebanon
This member has not yet provided a Biography. Assume it's interesting and varied, and probably something to do with programming.

Comments and Discussions

 
QuestionCan we get your Project File? Pin
217R29-Nov-16 23:52
217R29-Nov-16 23:52 
AnswerRe: Can we get your Project File? Pin
Mohammad Al Hoss2-Jan-17 0:31
Mohammad Al Hoss2-Jan-17 0:31 
Questionerror in c# Pin
explorerbar12-Nov-14 7:30
explorerbar12-Nov-14 7:30 
AnswerRe: error in c# Pin
Mohammad Al Hoss23-Mar-15 21:29
Mohammad Al Hoss23-Mar-15 21:29 
QuestionError found " Error = ODBC---Call Failed " Pin
rico_herdian@yahoo.com1-Jul-14 23:39
rico_herdian@yahoo.com1-Jul-14 23:39 
QuestionDownload Pin
Mehmet Oya17-Jan-13 21:47
Mehmet Oya17-Jan-13 21:47 
QuestionPush to SQL Pin
richardbrigzy2-Jul-12 0:07
richardbrigzy2-Jul-12 0:07 
Questioncan you put your project file Pin
mani.kishore.asp.net27-May-12 18:52
mani.kishore.asp.net27-May-12 18:52 
QuestionNeed to Import Excel csv File Pin
imahaboob14-May-12 5:42
imahaboob14-May-12 5:42 
AnswerTo Mohammed - Importing CSV files to SQL Server in C# Pin
Shashidhar Jarung9-Apr-12 4:27
Shashidhar Jarung9-Apr-12 4:27 
GeneralMy vote of 3 Pin
waaqee25-Jul-11 19:18
waaqee25-Jul-11 19:18 
GeneralImport Excel files to SQL Server dynamically Pin
Bhavik170511-Aug-10 18:35
Bhavik170511-Aug-10 18:35 
GeneralRe: Import Excel files to SQL Server dynamically Pin
longct6-Dec-15 22:54
longct6-Dec-15 22:54 
GeneralRegarding source code Pin
Dhanasekaran R16-Nov-09 18:59
Dhanasekaran R16-Nov-09 18:59 
QuestionODBC Connection error Pin
Nisu Cheriyan30-Mar-09 23:53
Nisu Cheriyan30-Mar-09 23:53 
GeneralCould not find installable ISAM Pin
Karan Mathur29-Mar-09 5:46
Karan Mathur29-Mar-09 5:46 
GeneralNeed help : Error when executing application Pin
bondan_intikom21-Oct-08 20:05
bondan_intikom21-Oct-08 20:05 
GeneralRe: Need help : Error when executing application Pin
Mohammad Al Hoss21-Oct-08 21:21
Mohammad Al Hoss21-Oct-08 21:21 
download and install this file

#Download details: 2007 Office System Driver: Data Connectivity Components

http://www.microsoft.com/downloads/details.aspx?familyid=7554F536-8C28-4598-9B72-EF94E038C891&displaylang=en

Mohammad Al Hoss

Development To Me Is A Pleasure more than a Job


GeneralRe: Need help : Error when executing application Pin
bondan_intikom21-Oct-08 21:46
bondan_intikom21-Oct-08 21:46 
GeneralRe: Need help : Error when executing application Pin
Mohammad Al Hoss22-Oct-08 10:27
Mohammad Al Hoss22-Oct-08 10:27 
GeneralRe: Need help : Error when executing application Pin
bondan_intikom22-Oct-08 15:30
bondan_intikom22-Oct-08 15:30 
GeneralRe: Need help : Error when executing application Pin
Mohammad Al Hoss23-Oct-08 4:15
Mohammad Al Hoss23-Oct-08 4:15 
QuestionRe: Need help : Error when executing application Pin
bondan_intikom3-Nov-08 19:29
bondan_intikom3-Nov-08 19:29 
AnswerRe: Need help : Error when executing application Pin
Mohammad Al Hoss6-Nov-08 21:37
Mohammad Al Hoss6-Nov-08 21:37 
QuestionTo Mohammad Pin
jilynii11-Sep-08 0:44
jilynii11-Sep-08 0:44 

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.