Import Tabel ke tabel yang lain

Unknown | 10:14 | vb6
artikel ini bercerita tentang proses bagaimana mengimport data yang berada pada database satu(tabel) ke database yang lain(tabel lain) tanpa harus menghapus data yang sudah ada. Artinya cara ini seperti anti virus yang di update.

oke... go to TKP

1. seperti biasa, desainlah form kira" seperti gambar dibawah ini

2. ketiklah kodenya seperti dibawah ini di level General Declaration

Pada event Form Load ketiklah kodenya seperti dibawah ini

klik gambar untuk memperbesar

Dan ketik kode dibawah ini untuk menghubungkan database yg mau di transfer

klik gambar untuk memperbesar

Lalu untuk event pada List1, kodenya seperti dibawah ini gunanya untuk menampilkan semua tabel yang ada pada database yang mau ditransfer. Jadi dalam hal ini, tabelnya dipilih terlebih dahulu, baru di transfer

klik gambar untuk memperbesar

Nah ini inti dari proses mentransfer/export ke tabel

klik gambar untuk memperbesar

Lalu, ketik kode dibawah ini yang sebenarnya untuk memilih Field-field tertentu yang mau di transfer/export dengan cara meng klik tipe-tipe Header Caption dari datagrid

klik gambar untuk memperbesar

Dan terakhir, ketik kode dibawah ini untuk menampilkan data-data yang ada pada tabel yang digunakan pada aplikasi/tabel asli ke datagrid

klik gambar untuk memperbesar

Bila dijalankan maka hasilnya akan seperti penampakan dibawah ini

Klik button Database, maka akan ada penampakan seperti gambar dibawah ini

Dan hasilnya akan seperti gambar dibawah ini, semua tabel akan terlihat pada List

Apabila tiap nama tabel di klik, maka otomatis akan tampil di datagrid dan juga otomatis menjadi tabel yang terpilih untuk di transfer/export. Hasilnya seperti gambar dibawah ini :

 Setelah tabel dipilih, klik button Transfer untuk siap di transfer dan hasilnya seperti gambar dibawah ini

Apabila field-field tertentu saja yang mau di transfer/export maka klik tiap-tiap header caption dari datagrid maka setiap field yang terpilih akan masuk ke list seperti gambar dibawah ini

Dan hasilnya seperti gambar dibawah ini

seperti biasa... Catatan Kecil :

proses mentransfer ini, yang kodenya ada di button Transfer kalo ga mau menggunakan pengulangan, bisa juga diganti dengan kode seperti dibawah ini
  sql = "INSERT INTO " & namaTabel & " &" _
  SELECT * FROM [MS Access;DATABASE=" & Text1.Text & "].[" & namaTabel & "]"
  Dim cmd As New Command
  cmd.ActiveConnection = dbOriginal
  cmd.CommandType = adCmdText
  cmd.CommandText = sql
  cmd.Execute

Text1.Text adalah path/alamat lengkap dari database yang mau ditransfer/export

huuuuuuuffftt capek  euy...