Selasa, 03 April 2012

Re: [belajar-access] Import data Excel ke field tertentu di tabel

 

Dear Mas Andi, kebetulan saya pernah mengikuti kopdar di gramedia matraman, disana dibahas tentang kolaborasi access dan excel dengan lengkap. Salah satunya yang diinginkan Mas Andi ini. Misalnya:
 
Function CopyRecordDariExcel()
 
'Tahap 1: Deklarasi nama object dan variable yg digunakan
    Dim MyConnect As String
    Dim myrecordset As ADODB.Recordset
    Dim MyTable As ADODB.Recordset
    Dim MySQL As String
          
'Tahap 2: Deklarasi jenis koneksi database dan lokasinya
    MyConnect = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                "Data Source=" & CurrentProject.Path & "\KolaborasiAccessExcel.xlsm;" & _
                "Extended Properties=Excel 12.0"
 
'Tahap 3:  Membuat kode SQL
    MySQL = " SELECT * FROM [Sheet2$]" & _
            " WHERE [Unit Price] <=20"
 
'Tahap 4:  Inisialisasi recordset
    Set myrecordset = New ADODB.Recordset
    myrecordset.Open MySQL, MyConnect, adOpenStatic, adLockReadOnly
 
'Tahap 5:  Membuka table di Access menjadi Recordset
    Set MyTable = New ADODB.Recordset
    MyTable.Open "CopyFromExcel", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
 
'Tahap 6:  Import data dari excel ke table di Access
    Do Until myrecordset.EOF
    MyTable.AddNew
        MyTable!ID = myrecordset!ID
        MyTable![Order ID] = myrecordset![Order ID]
        MyTable![Product ID] = myrecordset!Product
        MyTable!Quantity = myrecordset!Quantity
        MyTable![Unit Price] = myrecordset![Unit Price]
        MyTable!Discount = myrecordset!Discount
    MyTable.Update
    myrecordset.MoveNext
    Loop
 
'Tahap 7: Bersihkan memory di VBA
    myrecordset.Close
    MyTable.Close
    Set myrecordset = Nothing
    Set MyTable = Nothing
   
End Function
 
Perhatikan Tahap 3:  Membuat kode SQL, disinilah kita buat kriteria, kemudian mengambil datanya.
 
Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi
http://imopi.wordpress.com/
----- Original Message -----
From: Andi Ali
Sent: Tuesday, April 03, 2012 9:54 PM
Subject: [belajar-access] Import data Excel ke field tertentu di tabel

Salam Access...

Mohon pencerahannya barangkali ada yang tau code VBA untuk memasukkan data di Excel ke dalam Fiel tertentu di Tabel access dengan suatu key tertentu.
misalnya:

1. saya mempunyai tabel "master" dengan field (kode, nama, jumlah)
2. saya ingin memasukkan data "jumlah" yang telah di edit di Excel ke dalam tabel "master" dengan key adalah "kode"

mungkin ada yang bisa membantu.

wassalam.

__._,_.___
Recent Activity:
SPAM IS PROHIBITED
.

__,_._,___

Tidak ada komentar:

Posting Komentar