Membuat ComboBox Terkoneksi Database Part 2

Pada Tutorial kali ini, Tunas Media masih akan memberikan tutorial tentang combo box, dimana pada postingan sebelumnya sudah dibahas dan postingan saat ini adalah lanjutannya. Dimana kami berharap nantinya anda akan mengetahui ketika Kode Layanan di Klik, maka akan muncul Nama Layanan di Label3

Langkah-langkahnya adalah sebagai berikut :
Buka Latihan anda pada sebelumnya,
kemudian anda tambahkan Lebel Nama Layanan Seperti dibawah ini :

Kemudian List codingnya seperti dibawah ini :

Private Sub Form_Activate()
Set koneksi = New ADODB.Connection
koneksi.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\dbtunasmedia.mdb"
Set RSLayanan = New ADODB.Recordset
RSLayanan.Open "layanan", koneksi
Combo1.Clear
Do Until RSLayanan.EOF
Combo1.AddItem RSLayanan!kode_layanan
RSLayanan.MoveNext
Loop
End Sub
Private Sub Combo1_Click()
Set koneksi = New ADODB.Connection
koneksi.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\dbtunasmedia.mdb"
Set RSLayanan2 = New ADODB.Recordset
RSLayanan2.Open "Select * from Layanan where Kode_Layanan='" & Combo1 & "'", koneksi
If Not RSLayanan2.EOF Then
Label3 = RSLayanan2!Nama_Layanan
End If
koneksi.Close
End Sub

Dengan Penambahan ini ketika Combo1 atau Kode Layanan kita Klik, maka nama Layanan Akan muncul seperti Gambar dibawah ini :

Catatan :
Untuk mengerti maksud tutorial ini, anda harus praktik terlebih dahulu Pada Tutorial Membuat ComboBox Terkoneksi Database sebelumnya

Tweet

Subscribe to receive free email updates: