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,,,,!!!

KONEKSI DATA BASE DENGAN VISUAL STUDIO 2008

KONEKSI DATA BASE DENGAN VISUAL STUDIO 2008

Silahkan anda buka program visual basic .net 2008 milik anda dan buat sebuat project baru dengan memilih menu File -> New Project. Pada jendela New Project, pada jendela templates pilihlah obsi untuk membuat form. Klik Windows Form Application, beri nama Aplikasi dan klik OK.

Selanjutnya kita akan menambahkan sebuah DataGridView pada jendela Form1 dan beri nama DGV pada properti DataGridView. Simpan project anda, klik File -> Save All. Minimize jendela aplikasi visual basic .net 2008 anda.

Buka Microsoft Office Access anda dan buatlah database baru, beri nama Kepegawaian.accdb lalu simpan pada drive C: pada folder Documents  -> Visual Studio 2008 -> Project -> Aplikasi -> Aplikasi -> Bin -> Debug. Selanjutnya buat sebuah tabel baru dengan nama ABSEN.

Masukkan data pada tabel yang sudah dibuat tadi.

Jika sudah, silahkan anda simpan project database tadi dan tutup Microsoft Office Access 2007. Selanjutnya kita akan beralih ke jendela VB.Net 2008. Klik form1, lalu tekan F7 untuk menampilkan kode.

Imports System.Data.OleDb

    Public Class Form1

    Dim conn As OleDbConnection

    Dim da As OleDbDataAdapter

    Dim ds As DataSet

    Dim str As String

Sub Koneksi()

    str = "provider=microsoft.ace.oledb.12.0;data source=kepegawaian.accdb"

    conn = New OleDbConnection(str)

    If conn.State = ConnectionState.Closed Then

    conn.Open()

    End If

End Sub

Sub TampilkanData()

    da = New OleDbDataAdapter("select * from absen", conn)

    ds = New DataSet

    da.Fill(ds, "absen")

    DGV.DataSource = ds.Tables("ABSEN")

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Call Koneksi()

Call TampilkanData()

End Sub

Coba jalankan dan lihat hasilnya.

Sekian Tutorial yang saya buat semoga bermanfaat N harap di maklumi bila masih banyak kesalahan,,!!

Mohon masukanya yah ,,,,!!!!