Export Data Ms.Excel To Ms.Access VB6

Berikut ini adalah cara untuk meng-export data dari microsoft excelke microsoft access di visual basic 6, untuk mempraktekannya siapkan :

1. Buat project baru dengan 1 form dan 1 commandbutton.
2. Klik menu Project->References->lalu ceklist Microsoft DAO 3.5 Object Library.
3. Buat satu file baru (New) MS Access dgn nama "Db1.mdb", dan tidak perlu ada tabelnya.
4. Buat satu file baru (New) MS Excel dgn nama "Book1.xls", dan pada Sheet1, isikan data sebagai berikut (baris pertama merupakan judul tabel ybt, yaitu: Nomor Nama dst...) :
          '                A     B    C     D
          '              1 Nomor Nama Nilai Golongan
          '              2  1.   Adi    75    1
          '              3  2.   Joko   80    2
          '              4  3.   Badu   65    3
          '              5  4.   Roni   88    4
5. Copy-kan coding di bawah ini ke dalam editor form Anda.
6. Jalankan program, dan lihat hasilnya di file Db1.mdb, akan terbentuk tabel baru bernama Table1 yang di dalamnya terisi data dari MS Excel tsb.
7. Mengenai hal ini, Anda juga dapat memperdalamnya di CD MSDN, dengan topik "How to Append An Excel Worksheet to A Database Using DAO"
8. Silahkan Anda sesuaikan dengan kebutuhan. Ini hanya contoh/simulasi bagaimana VB bisa mengambil data dari file MS Excel.

            Option Explicit

          Private Sub Command1_Click()
          On Error GoTo errHandler
          Dim mExcelFile As String
          Dim mAccessFile As String
          Dim mWorkSheet As String

          Dim mTableName As String
          Dim mdatabase As Database
          mExcelFile = App.Path & "\Book1.xls"
          mAccessFile = App.Path & "\Db1.mdb"

          mWorkSheet = "Sheet1"
          mTableName = "Table1"
            'Anda bisa memakai "Excel 7.0" or 8.0 tergantung dari
            'ISAM yang terinstall di PC Anda.
            Set mdatabase = OpenDatabase(mExcelFile, True, False, "Excel 5.0")
            mdatabase.Execute "SELECT * into [;database=" & mAccessFile & "]." & _
                               mTableName & " FROM [" & mWorkSheet & "$]"
            MsgBox "Sukses. Buka dengan MS Access untuk melihat tabel " & mTableName
            Exit Sub

          errHandler:
            If Err.Number = 3010 Then
               MsgBox mTableName & " sudah ada!" & vbCrLf & _
               "Hapus " & mTableName & " dulu atau pilih nama yang lain."
            Else
               MsgBox Err.Number & " " & Err.Description
            End If
          End Sub

          Private Sub Form_Unload(Cancel As Integer)
             End
          End Sub

Tags:

contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module, xls to mdb, export data xls to mdb, excel to access, vb6 export data, import data to access from excel , vb tutorial,