Konversi data Ms Excel ke Ms Access

Satu lagi sebuah pengalaman yang bisa saya bagi… pengalaman kali ini terjadi pada saat pelajaran Machine Learning (Intinya waktu Machine Learning aq gak ndengerin dosen…maaf ya bu..). Pengalaman ini saya dapetin bareng temen saya (Om Aris) yang saat itu pengen nyoba convert data dari Excel dari Access dengan menggunakan VB.  Hmm… q pikir2 lumayan sih dpt ilmu baru,,drpd pas ndengerin kuliah machine learning ya gak dpt apa2 cz udah ilfil sama AI nya… 😀

Langsung ajah kita mulai yah belajar nya… yuuukkk….

Bahan yang dibutuhkan :

1. Ms Visual Basic

2. Ms Excel

3. Ms  Access

  • Tu produk nya om bili smua 😀

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… tp ilang ilmu machine learning 🙁

Untuk buktinya bisa didonlod di sini

alioke Avatar

2 responses to “Konversi data Ms Excel ke Ms Access”

  1. poo Avatar

    wah wes sangaarrr mas iki….kuliah ae ga dirungokno….
    wkwkkwkwkw

  2. alioke Avatar
    alioke

    kan onok awakmu pul…hehehehe…

Leave a Reply

Liyana Parker

Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat.