Latihan VB 6

1. Buatlah Folder baru : NamaAnda (misal: Ridwan) berada dalam My Documents. Kemudian
2. Jalankanlah (buka) program Microsoft (Ms.) Access. Lalu pada Ms. Access
3. Buatlah Database baru dengan nama: INVENTORY dan buat  table baru dengan nama: mBarang.

Contoh: Langkah-langkah  membuat  Database dan Table:

1. 1. Pada tampilan Jendela Ms. Access ð click  Menu  FILE ð click NEW ð klik Blank Database … (ada dikanan layar).
   2. Pada   SAVE  IN, pilih nama folder untuk membuat database baru:  (misal: RIDWAN , atau NamaAnda, yang sudah Anda buat sebelumnya) ð lalu kelik OPEN, kemudian pada  kotak FILE NAME, ketik nama Database: INVENTORY ð lalu klik CREATE.

1. 1. Klik object Table ð klik Design, kemudian rancanglah struktur fields  tersebut, yaitu sbb:

1. 1. Bila sudah dibuat semua,  struktur field tersebut simpan ke dalam database Inventory, yaitu : klik FILE  ð  kile SAVE, kemudian ketik nama table-nya, misal:  mBarang, lalu klik OK.
   2. Kemudian Tutuplah (close) tampilan Jendela Microsoft (Ms.) Access tersebut.

Ingat! Database dan table yang telah dibuat pada Ms. Access tersebut, sebagai tempat atau media untuk menyimpan data yang akan di input melalui form (formulir) yang dibuat pada program Ms. Visual Basic atau bahasa program lainnya. Untuk selanjutnya kita akan membuat (design) Formulir input data pada Ms. Visual basic 6.0

4. Bukalah atau jalankanlah program Visual Basic 6.0:

3.  Buatlah Project Baru pada Program Microsoft Visual Basic 6.0. dan simpanlah dalam folder: Ridwan (Nama Anda). Lalu rancanglah Layout tampilan form input data barang sbb:

Untuk menyisipkan (insert) control Adodc  ð  sbg link ke database & tabelnya) serta menyisipkan control DataGrid untuk menampilkan (browsing) data pada table yang dipilih pada control adodc. Lakukan cara insert control tersebut, yaitu:

Click Menu Project  ð  Components  ð  pilih/ check list tanda  ke 2 control tsb (gbr. 5). Sbb:

4. Cara link (menghubungan) ke database: Inventory.

Klik kanan mouse tepat pada control adodc, lalu klik kiri mouse pada ADODC Properties, tampil sbb (gbr. 6 ) ð  klik  ¤  Use Connection String  ð  tombol  Build,  pilih/klik Microsoft Jet 4.0 (lihat gbr. 7) ð  klik Next >> 1 kali, lalu klik tombol dikanan pada kotak   ¤ select or Enter a Database Name (gbr. 8): kemudian pilihlah nama database-nya (misal: Inventory) yang terdapat dalam folder RIDWAN. Kemudian klik tombol OPEN, lalu klik Test Connection, (bila tampil pesan Test Connection Succeeded) maka berhasil link ke database Inventory tersebut. Lalu klik Ok  3 kali, untuk menutup ke tiga jendela kecil tersebut.

5.  Cara Link ke table: mBarang.

– Kemudian  lihat pada rancangan form input data. Klik pada control data Adodc ð  lalu klik pada properties: ð  RecordSource — .  Klik tombol           tersebut untuk memilih table (misal: mBarang)

– Pilih pada command type (gbr.9) pilih : 2-adCmdTable. Lalu pilih pada table or stored procedure Name: mBarang ð   lalu klik  tombol OK. Maka selesailah  link data adodc1 ke database: Inventory dan link ke table mBarang.

6. Langkah berikutnya adalah mengatur: link textbox1 (Kd_brg) ke field mBarang.

KLIK object Kd_brg pada form (gbr. 10 dan gbr. 11), lalu pililah pada properties, DataSource: Adodc1 dan  Datafield: Kd_BRG. Kemudian lakukan pada field lain pada form tersebut dan propertiesnya di isi dengan cara yang sama dan disesuaikan dengan nama field-nya masing-masing.

7.  Setelah sudah di link object textbox tersebut ke field  masing-masing

1. 3.

8. Langka berikutnya, yaitu membuat coding atau kode program di setiap event_click( ) tombol command, seperti: tombol :

Yaitu: Ikutilah cara berikut ini:

1. Double clicklah panah kiri mouse tepat pada tombol  Tambah: lalu ketiklah kode program, sbb:

Private sub Tambah_click( )

End Sub

1. Double clicklah  tepat pada tombol Simpan, lalu ketik kode programnya, yaitu:

Private sub Simpan_click( )

Adodc1.Recordset.Save

End Sub

Lakukan dengan cara yang sama (double klik) tombol yang mau diberikan coding program!

1. Kode tombol Hapus :

Adodc1.Recordset.Delete

Adodc1.Refresh

1. Tombol Cari:

‘If Adodc1.Recordset.BOF() = True Or Adodc1.Recordset.EOF() = True Then Exit Sub

Adodc1.Recordset.MoveFirst

Adodc1.Recordset.Find (“kd_brg= ‘” & tCari & “‘”)

If Adodc1.Recordset.EOF() = True Then

MsgBox “Kode Barang sudah ada!”

Exit Sub

End If

1. Tombol Selesai :     Unload Me