Pada pertemuan minggu lalu (https://rahmadyatrias.wordpress.com/2012/10/30/koneksi-dua-tabel-dalam-satu-form/) kita membuat satu form yang berisi koneksi dua tabel (adodc1 dan adodc2). Sekarang kita akan mencoba mengimplementasikan suatu manipulasi terhadap tabel kedua, misalnya transaksi barang. Barang yang dijual harus berada pada tabel material.
Buat isian pada input transaksi. Karena barang yang dijual harus berada di tabel material (bagian atas), maka di sini diberi tombol tekan “cari brg” agar sebelum transaksi, barang dipastikan ada pada tabel material. Gunakan kode berikut di tombol ‘Cari Brg’
Private Sub Command5_Click()
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find “kode=” + Text5.Text + “”
If Not Adodc1.Recordset.EOF Then
Text6.Text = Adodc1.Recordset.Fields(1)
Else
MsgBox “maaf barang tidak ada”
End If
End Sub
Sedangkan untuk mengaktifkan tombol tekan input, gunakan kode berikut (perhatikan posisi text1, text2, dst harus sesuai dengan nama yang anda buat).
Private Sub Command4_Click()
Adodc2.Recordset.AddNew
Me.Adodc2.Recordset.Fields(0) = Text4.Text
Me.Adodc2.Recordset.Fields(1) = Text6.Text
Me.Adodc2.Recordset.Fields(2) = Text7.Text
End Sub
Ketika tombol CARI BRG ditekan akan menampilkan nama barang. Selanjutnya tinggal mengisi kolom isian lainnya sebelum tombol input ditekan
kasih project’a donk bro biar agak mudahan.
mas, klo dibuat program web itu gimana….
suoaya inputan data barang sekalian satu form tampilan dengan tabel,ya….
mohon bertanya kalau cuman 1 adodc gak bisa ya? trus manggil isi kedua tabel?
karena normalisasi memecah data barang, pelanggan dan data transaksi maka butuh beberapa koneksi dari tabel yang berbeda. kecuali mekanisme denormalisasi dengan menggabungkan sementara tabel2 tersebut biasanya untuk kecepatan akses.
Mas mau nanya lagi, tadi saya sudah coba bisa jikalau datagridnya itu digunain sedangkan kalau kita menghapus datagridnya, maka error, itu kenapa ya?
menghapus satu record kah?
lokasi hapusnya di mana? kalau hapus data barang/data pelanggan tidak bisa di data transaksi.
Maksudnya jika datagridnya di hapus maka saat input dan melakukan hal lainnya akan error