Konversi data Ms Excel ke Ms Access

Sedikit Ilmu....bermula dari pertanyaan temend yang lagi bikin TA,nulis di group pengend tau cara konversi data dari Ms exel ke acces.. niat bantuin eh..malah dapet ilmu tambahan...
simak beruikut ini.....

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.

Selamat Mencoba Semoga Bermanfaat............