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

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

bismillaahirrahmaanirrahiim

السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

Assalamu'alaikum warahmatullahi wabarakatuh

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
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com NB :: Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code, membeli hardware elektronika untuk kepentingan Perusahaan maupun Tugas Akhir (TA/SKRIPSI), Insyaallah Saya siap membantu, untuk Respon Cepat dapat menghubungi kami, melalui :

No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com

atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :

ٱلْحَمْدُ لِلَّهِ رَبِّ ٱلْعَٰلَمِين

Alhamdulilah hirobil alamin

وَ السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

wassalamualaikum warahmatullahi wabarakatuh

Artikel Cara Menampilkan Data dari Tabel Lain Pada Combobox Pada VB6 dengan Database Mysql Phpmyadmin, Diterbitkan oleh scodeaplikasi pada Jumat, 25 September 2015. Semoga artikel ini dapat menambah wawasan Anda. Website ini dipost dari beberapa sumber, bisa cek disini sumber, Sobat diperbolehkan mengcopy paste / menyebar luaskan artikel ini, karena segala yang dipost di public adalah milik public. Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code ,Dengan Cara menghubungi saya Ke Email: Fajarudinsidik@gmail.com, atau No Hp/WA : (fajar) : 085369237896, (puat) : 085267792168.