Kode Relasi database Visual Basic 6.0

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).