Kode Relasi database Visual Basic 6.0
Biasanya untuk relasi database menggunakan component “ComboBox”
Namun, ada kode yang masing-masing berbeda yaitu kode untuk form, dan kode untuk combobox.
Nah.. sekarang saya akan memberikan kodenya.
Ini kode untuk form:
Private Sub Form_Load()
On Error Resume Next
buka_database
Source.Open "select id_pembeli from transaksi", kon, adOpenKeyset, adLockOptimistic
Do While Not Source.EOF
cmbid_pembeli.AddItem Source!id_pembeli
Source.MoveNext
Loop
tutup_database
pengeluaran.Refresh
End Sub
Keterangan dalam kode ini saya akan jelaskan berikut ini :
-Tulisan yang dikelilingi warna kuning:
Perama kalo Private Sub Form_Load()kode pembuka dalam program vb 6
Kalo End Sub kode penutup/ mengakhiri proses bejalanya system program kode”” tsb.
Namun, Form_load artinya form, pada saat diklik dua kali from tersebut timbulah tulisan ini.
-tulisan yang berwarna merah tua adalah nama dari component adodc untuk menLOAD
-tulisan yang berwarna merah muda adalah nama dari component comboboxnya di propertynya. Itu karna untuk menetapkan dimana harus menampilkan database yang sudah diimput sebelumnya.
-tulisan yang berwarna hijau adalah nama field yang ada di xamppnya(dimana anda mambuat databases table-tabel). Field tersebut adalah table yang sudah diinput sebelumnya kemudian ingin memanggil database record ke form yang ingin dijadikan relasi.
-tulisan yang berwarna biru adalah nama table yang akan dipanggil untuk dijadikan relasi ( merefreshkan/menload dengan kode sourec.open )
Ini kode untuk combobox:
Private Sub cmbid_pembeli_Click()
On Error Resume Next
buka_database
Source.Open "select * from transaksi where id_pembeli='" & cmbid_pembeli.Text & "'", kon, adOpenKeyset, adLockOptimistic
Me.txtnm_customer = Source("nm_customer")
Me.txtkd_customer = Source("kd_customer")
Me.txtnm_barang = Source("nm_barang")
Me.txtkd_barang = Source("kd_barang")
Me.txtjmlh_barang = Source("jmlh_membeli")
Me.txthrg_barangsatuan = Source("hrg_barangsatuan")
tutup_database
End Sub
Keterangan dalam kode ini saya akan jelaskan berikut ini :
-Tulisan yang dikelilingi warna kuning:
Perama kalo Private Sub cmbid_pembeli_Click() kode pembuka dalam program vb 6
Kalo End Sub kode penutup/ mengakhiri proses bejalanya system program kode”” tsb Namun, cmbid_pembeli artinya nama dari component “ComboBox” di propertynya.
-tulisan yang berwarna merah tua adalah,nama database yang sudah diinputkan kemudian dipanggil.
-tulisan yang dikotakin berwarna abu-abu adalah nama componentnya (ComboBox) yang ada di propertinya, dan harus sama dengan kode form loadnya cmbid_pembeli .
-tulisan yang yang dikotakin berwarna hijau adalah, nama field yang dijadikan sebagai datarecord pemanggilan relasi, contoh: field “ id_pembeli “ otomatis, field yang sudah diisi record walau Cuma satu record saja yang ada didatabase dikirim ke form divisual basicnya. Artinya, pemanggilan relasi dengan component “ ComboBox “ .
-tulisan yang berwarna oren adalah, nama field dari table lain yang ada didatabase untuk dipanggil.
-tulisan berwarna biru adalah, nama component TextBOx yang ada dipropertynya. penejelasannya antara kode tulisan berwarna oren dengan kode tulisan yang berwarna biru adalah, data field yang ada di database (XAMPP) table lain dipanggil untuk dijadikan relasi kemuadia ditetapkan/ditaruh/diletakan di field yang ada di textbox form visual basicnya. Contoh :
table taransaksi memiliki field sebanyak jumlah yang ditetapakan/dibuat namun ada field “id_pembeli” kemudian diisi record dan disimpan, lalu ada from pengeluaran dan membutuhkan field sebanyak yang dibutuhkan namun ada field yang bernama “id_pembeli” itu componentnya bernama “cmbid_pembeli” untuk menampilkan record yang telah disimpan di table transaksi , ada lagi txtnm_customer, txtkd_customer dan seterusanya sebanyak yang dibutuhkan , itu digunakan untuk menetapkannya ditextboxnya dan menyesuaikannya (menginput isi record diantara field-field lainya lebih dari satu tanpa diketik/secara manualnamun, otomatis disebut relasi).
