Memasukan Database Melalui Microsoft Visual Basic 6

A. Membuat Database dengan Access 2007

Buka Start > All Programs >Microsoft Office > Microsoft Office Access 2007. Klik Blank Database.


Arahkan ke Folder tempat program VB yang akan dibuat. Jangan lupa ganti file Access 2007 menjadi 2002-2003


Jika sudah klik “Create” untuk mulai membuat database tersebut. Buat sebuah tabel baru dengan klik kanan “Table1:Table” dilanjutkan dengan klik Design View.


Anda akan diminta membuat nama dari tabel tersebut. Isi, misalnya kursi. Dalam satu database dapat lebih dari satu tabel. Jadi database kita adalah kursi dengan satu tabel kursi. Buat tiga buah field beserta tipe datanya.


Berikutnya kita tinggal mengisi data pada tabel tersebut. Klik kanan pada nama tabel yang dituju dilanjutkan dengan klik “Open“. Klik “Yes” saat diminta menyimpan.

 


Isikan tiga buah data, bebas.


Jika sudah, tutup Microsoft Access Anda, kemudian kita siap mengakses Database tersebut lewat Microsoft Visual Basic 6.

 

B. Mengakses Database Lewat Micorosoft VB 6

Klik Start > All Programs > Micorosft Visual Studio > Microsoft Visual Basic 6. Buat sebuah project baru, pilih Standard Exe.


Klik kanan pada Toolbar Object > Components. Karena kita akan menambah dua komponen baru yang tidak terdapat secara default pada VB 6.


Centang dua komponen tambahan yakni Microsoft Access Data Control 6 dan Microsoft dataGrid. Klik “Ok“.


Drag dua komponen tersebut ke Form yang akan dirancang. Kemudian kita akan mengeset ADO.


Pilih Build,


Pilih Microsoft Jet 4.0 OLE DB Provider, Klik “Next“.


Pilih Database yang telah Anda buat.


Lakukan test Connection, sampai ada pesan Sukses. Tutup terlebih dahulu Microsoft Access 2007 jika masih terbuka.


Berikutnya, arahkan ke Recorod Source, masih di ADODC.


Klik ” … “. Pilih Command Type: 1 – adCmdText. Kemudia ketik instruksi SQL di Command Text (SQL). SQL adalah singkatan dari Structured Query Language, yaitu bahasa standar internasional untuk akses ke database.


Klik “Apply” dan “OK”. Berikutnya kita pindah ke Data Grid. Pilih Data Source, yaitu Adodc1.


Jika sudah, cek dengan me-running program. Klik simbol , pada Data Grid harus muncul isi tabel kursi pada Database kursi.mdb.


 

C. MEMBUAT TOMBOL SIMPAN

Rancang Form untuk memasukan, kode, panjang dan lebar kursi.


Jangan sampai salah antara “label“, “Text Box” dan “Command Button“. Isikan instruksi pada Command Button Simpan dengan dobel klik pada “SIMPAN“.


Adodc1.Recordset.AddNew bermaksud meminta VB agar menambah satu item yang isi Fieldnya dari Text1, Text2, dan Text3 (lihat baris 2 sampai 5. Dilanjutkan dengan Update pada kode baris ke 6 (Adodc1.Recordset.Update). Jalankan hingga Anda dapat mengisi satu Field ke tabel kursi dan muncul pada Data Grid. Biasanya programmer menambahkan tombol “New” / “Baru” untuk mengosongkan isian, jika akan menambah Field berikutnya. Tambah CommandButton baru, beri nama “Baru“.


Dobel klik, dan isikan kode berikut:


Saat tombol “Baru” ditekan, maka seluruh isian akan kosong karena instruksi Text1.Text = “”. Baris terakhir bermaksud agar kursor berada di Text1 untuk memudahkan pengguna mengisi data. Coba jalankan program Anda.


Selamat Mencoba,


Rahmadya Trias Handayanto