Cara Menampilkan Data dari Tabel Lain Pada Combobox Pada VB6 dengan Database Mysql Phpmyadmin

Advertisement
Assalamualaikum,

Saya akan membahas Bagaimana Cara Menampilkan Data dari Tabel Lain Pada Combobox di satu Form Pada VB6 dengan Database Mysql Phpmyadmin. Misalnya saya ingin menampilkan atau memanggil data dari tabel siswa (form siswa), namun pada combobox Form Transaksi. Tentu itu pemanggilan data dengan beda form. intinya kita menampilkan dari form lain atau tabel lain pada satu form.

Berikut Ilustrasinya :

A. Saya berada pada form transaksi pendaftaran :




- Pada No.transaksi muncul secara otomatis ketika di klik "Add" (otomatis No transaksi menjadi primary key)
- Nomor Induk Siswa diambil dari tabel Data siswa (otomatis menjadi foreign key di tabel transaksi jika disimpan).




2. Dibawah adalah contoh Database Tabel Siswa & Transaksi :



Kita sudah meliat bagaimana iliustrasinya, maka selanjutnya saya akan membrikan contoh kode listingnya.
Langkah-langkahnya :




1. Proses pemanggilan data dari tabel siswa, Double klik Pada Commandbutton "Add". ketiklah seperti dibawah ini ;

call koneksi 
tnosiswa.Enabled = True
tnosiswa.SetFocus
tnosiswa.Clear
rsdatasiswa.Open "select*from tsiswa", KON
rsdatasiswa.MoveFirst
Do Until rsdatasiswa.EOF
tnosiswa.AddItem (rsdatasiswa.Fields("nis"))
rsdatasiswa.MoveNext
Loop


2. Validasi data, jika ada sudah ada maka ada pesan messagebox "Data sudah ada", jika tidak maka akan tampil nama siswa, dll sesuai keinginan kita.


Call koneksi
rspendaftaran.Open "select*from tpendaftaran where nis='" & tnosiswa.Text & "'", KON
If rspendaftaran.EOF Then 'jika data tidak ditemukan, maka tampil nama siswa dan kelas

rsdatasiswa.Open "select*from tsiswa where nis='" & tnosiswa.Text & "'", KON
tnamasiswa.Text = rsdatasiswa.Fields("namasiswa")
tkelas.Enabled = True
Else 'jika ditemukan tampil pesan
a = rspendaftaran!nis
MsgBox "Data Dengan NIS " & a & " Sudah Terisi", vbCritical, "SIMPAN"
End If


3. Sekian, semoga membantu :D
0 Komentar untuk "Cara Menampilkan Data dari Tabel Lain Pada Combobox Pada VB6 dengan Database Mysql Phpmyadmin"

Silahkan Komentar sobat !
Berkomentarlah dengan sopan dan tidak menaruh link aktif!

Back To Top