Pert.10 (Database VB)

Selamat Bergabung kembali…setelah sekian lama kita tak jumpa karena Ujian Tengah Semester Genap. Dalam Pertemuan ini kita akan membahas tentang database dalam Vb, database yang kita gunakan disini menggunakan vasilitas langsung dari VB yaitu VisData dalam VB.
Dalam buku Ario Suryo Kusumo Database adalah kumpulan informasi. Databse sebagai kumpulan informasi disimpan dalam satu atau lebih tabel, baris dalam tabel berisi satu unit data dan disebut record. Sedangkan kolom berisi atribut dari record disebut field.

Langkah Langjah dalam Membuat database :

1. Buka aplikasi Visual Basic 6.0
2. Kilk Menu Add Ins pada MenuBar Vb dan buat database baru

3. Simpan databse dengan nama pembelian

4. Setelah kita buat database maka kita akan membuat beberapa tabel didalamnya, buat tabel dengan mengklik kanan properties kemudian pilih new table.

5. Buat table dengan nama barang, dan masukan field-field yang dibutuhkan :

Name	kobar	nabar	harga	satuan
Type	text	text	double	text
Size	5	50	8	10

Buatlah index pada tabel barang berdasarkan kobar dan beri nama index barangx

Setelah anda membuat databse dan tabel silakan anda close tampiln VisData kemudian anda merancang bentuk tampilan form barang.
a) Buatlah Tampilan Form sebagai berikut atau bisa juga anda desain sendiri sesuai keinginan.

Dalam pembahasan ini kita akan menggunakan DAO ( Data Access Objects) dapat kamu ambil di dalam toolbox visual basic biasa dikenal dengan sebutan data, untuk mengkoneksikan database.
b) Kemudian Kita akan mengkoneksikan data (DAO) dan text yang berkaitan dengan field tabel barang dalam database pembelian.
untuk data1 kita koneksikan dalam properties yaitu :
1. DatabaseName = tempat dimana kamu menyimpan database pembelian
2. RecordSource = koneksi dengan tabel yang kita buat (barang)
3. RecordSetType = type yang kita gunakan (0-tabel)
4. Caption = Data Barang
c) Kemudian kita akan mengkoneksikan field yang ada di dalam tabel barang ke objek text yang kita gunakan dalam form barang.
text1 = Datasource (data1) : = DataField (kobar)
text2 = datasource (data1) : = datafield (nabar)
text3 = datasource (data1) : = datafield (harga)
text4 = datasource (data1) : = datafield (satuan)
d) Kemuadian kita akan membuat listing program untuk form barang :
Ini merupakan listing sederhana yang akan kita pelajari perlahan-lahan.
Private Sub Cmdtambah_Click()
aktif
Data1.Recordset.AddNew
End Sub

Private Sub Cmdsimpan_Click()
nonaktif
Data1.Recordset.Update
End Sub

Private Sub Cmdhapus_Click()
Data1.Recordset.Delete
Data1.Recordset.MoveLast
End Sub

Private Sub Cmdkeluar_Click()
Unload Me
End Sub

Private Sub aktif()
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text1.SetFocus
End Sub

Private Sub nonaktif()
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
End Sub

Private Sub Form_Load()
nonaktif
End Sub

STM. Selamat mencoba…dan silakan anda modifikasi listing ini untuk jadi lebih baik lagi.
Terimakasih