konversi excel data ke sql server dengan vbnet

Bagaimana cara mengkonversi data excel ke sql server (how to convert excel to sql with vbnet?).
Dalam pekerjaan administrasi bisnis keperluan konversi data tidak dapat dielakkan lagi. Mungkin saja ANDA sebagai programmer harus melakukan konversi file text txt ke sql server  atau ANDA punya aplikasi lama dengan data dbf ANDA bisa melakukan konversi data dbf dengan vbnet

Dalam kasus tertentu mungkin saja user ANDA membutuhkan laporan dalam bentuk excel. Untuk ini Anda bisa  membuat laporan ke file excel dengan vbnet

Fasilitas konversi file excel langsung juga tersedia di sql server dengan koneksi langsung dan menjalankan query openrowset. Namun itu akan berjalan dalam kondisi file excel dengan format normal. Pada kasus sehari-hari bisa saja file dengan format html dibuka dengan excel. Nah untuk ini ANDA harus bisa membaca data cell per cell pada worksheet excel selanjutnya anda export ke database program anda bisa sql server, mysql dan lain-lain.

Pada praktek kali ini Anda akan mengkonversi data file excel 2007 ke sql server 2008 dengan visual basic 2008. Anda juga bisa menggunakan visual basic 2010.

OK. kita mulai saja ya. Berikan refrence ke excel. Klik Project - Add Reference - Microsoft.Office.Interop.Excel 
lihat gambar di bawah ini:

Klik OK.
Dengan asumsi form seperti di bawah ini:

Setelah Anda klik ok ketik kode seperti di bawah ini:

Imports System.Data.SqlClient

Imports vb = Microsoft.VisualBasic

Imports Microsoft.Office.Interop

Public Class Form1 

    Public Const sconn As String = "Data Source=.\SQLEXPRESS;Initial Catalog=dbku;Integrated Security=True"

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton1.Click

        Dim oXL As Excel.Application

        Dim oWB As Excel.Workbook

        Dim oSheet As Excel.Worksheet

        Dim oRng As Excel.Range

        Dim sFile As String = Application.StartupPath & "\kuliah.xlsx"

        oXL = CreateObject("Excel.Application")

        oXL.Visible = True

        oWB = oXL.Workbooks.Open(sFile)

        oSheet = oWB.ActiveSheet

        Dim sDel As String = "delete from kuliah"

        ExecSQL(sDel)

        Dim iKol, iBrs As Integer

        Dim sql As String

        For iBrs = 2 To 7

            sql = "insert into kuliah values("

            For iKol = 1 To 2

                sql = sql & "'" & oSheet.Cells(iBrs, iKol).Value & "',"

                oSheet.Cells(iBrs, iKol).Select()

            Next

            sql = vb.Left(sql, vb.Len(sql) - 1)

            sql = sql & ")"

            ExecSQL(sql)

        Next

        oXL.Visible = True

        oXL.UserControl = True

        oRng = Nothing

        oSheet = Nothing

        oWB = Nothing

        oXL.Quit()

        oXL = Nothing

    End Sub

    Function ExecSQL(ByVal sSql) As Integer

        Dim oconn As New SqlConnection()

        oconn.ConnectionString = sconn

        oconn.Open()

        Dim ocmd As SqlCommand = New SqlCommand(sSql, oconn)

        ocmd.CommandType = CommandType.Text

        Return ocmd.ExecuteNonQuery()

    End Function

End Class

Ini adalah data excel yang akan ANDA konversi menjadi database sql.

Setelah ANDA jalankan programnya maka ANDA akan memperoleh data seperti ini:

Sekian dulu ya pak,,,,!!!

Harap di maklumi jika mash banyak kesalahan,,,,!!!