√ Cara Menampilkan Data Dari Tabel Lain Pada Combobox Pada Vb6 Dengan Database Mysql Phpmyadmin

Assalamualaikum,

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

Berikut Ilustrasinya :

A. Saya berada pada form transaksi registrasi :

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

2. Dibawah yaitu pola Database Tabel Siswa & Transaksi :

Kita sudah meliat bagaimana iliustrasinya, maka selanjutnya aku akan membrikan pola isyarat listingnya.
Langkah-langkahnya :
a
1. Proses pemanggilan data dari tabel siswa, Double klik Pada Commandbutton "Add". ketiklah menyerupai 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, jikalau ada sudah ada maka ada pesan messagebox "Data sudah ada", jikalau tidak maka akan tampil nama siswa, dll sesuai harapan 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, supaya membantu :D
Sumber http://www.hendrisetiawan.com