Konversi data Ms Excel ke Ms Access menggunakan Ms.Visual Basic

Satu lagi sebuah pengalaman yang bisa saya bagi…
Langsung ajah kita mulai yah belajar nya… yuuukkk….
Bahan yang dibutuhkan :
1. Ms Visual Basic
2. Ms Excel
3. Ms  Access

Langkah2 percobaan :
1. siapkan file excel yang akan di konversi
2. buat 1 file ms access kosong (tanpa tabel)
3. saat nya coding dengan VB :
Private Sub Form_Load()
Dim con As New ADODB.Connection
con.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\sample.mdb;Jet OLEDB:Engine Type=4″
Dim strSQL As String
strSQL = “SELECT * INTO Table1 FROM [Sheet1$] IN “”C:\MyExcel.xls”" “”Excel 8.0; HDR=Yes;”"”
con.Execute strSQL
con.Close
Set con = Nothing
End Sub
Penjelasannya dikit ajah yah…

• pada strsql kita menuliskan Table1, maka pada file sample.mdb akan dibuatkan sebuah table dengan nama tersebut
• pada strsql kita menuliskan Sheet1, maka data dari sheet1 pada excel yang akan d convert
• pada strsql , nilai HDR= Yes, maka nama column/ field pada Table1 adalah row pertama dari data pada Excel. jika nilai HDR=No, maka nama column/field adalah default dengan nama F1, F2, F3, dst untuk jumlah field yang ada.

Cukup dulu yah… Lumayan dapat ilmu yang bermanfaat…hehehe