|
Bisa dilihat di:
http://www30.brinkster.com/masinosinaga/konvdeskehexa.html
'Deskripsi: Mentransfer data dari MS Excel ke dalam tabel MS Access. 'Pembuat : Herman Liu, diterjemahkan oleh Masino Sinaga ' ([EMAIL PROTECTED]) 'Persiapan: 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 From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Medan SKD Sent: Tuesday, June 20, 2006 11:23 AM To: [email protected]; [EMAIL PROTECTED] Subject: [Programmer-VB] Bagaimana meng Copy File Excel ke Access Dear Vb Mania,
Bagaimana cara mengcopy file Excel ke file Access dg
menggunakan VB?
Makasih sebelumnya
Wahana Programmer Groups Links <*> Untuk mengunjungi sponsor milis ini, klik link berikut: http://wahanaprogrammer.net <*> Untuk menghubungi owner milis ini, kirim email ke: [EMAIL PROTECTED] <*> Konsultasi pemrogramman bisa chat disini: Yahoo! Messenger: wahanaprogrammer
SPONSORED LINKS
YAHOO! GROUPS LINKS
|
- RE: [Programmer-VB] Bagaimana meng Copy File Excel ke Acce... Rio.Simanjuntak
