Menghapus Item di ComboBox dan ListBox

Melanjutkan dari pembahasan hari kemarin tentang menambah item yang berasal dari data base ke dalam combobox, kali ini kita akan mempelajari tentang menghapus semua item yang telah ada di combobox.
Jujur saya sempat mencari cara menghapus isi dari combobox tersebut dari internet, tapi tidak ketemu. Dan akhirnya tanpa kenal menyerah saya mencoba sendiri, dan akhirnya saya bisa.... :)
oleh karena kesusahan mencari..maka saya akan mempermudah sahabat-sahabat semua dengan menulis artikel ini..
Walaupun sederhana tapi mungkin bisa membantu..


ok..kita langsung saja
1. buat data base MS. Acces dengan nama DBdata simpan dalam format 2002-2003
2. lalu tambahkan tabel tbhari dan tambahkan Field Hari dalam tabel tbhari tersebut
3. lalu isi field hari tersebut dengan senin, selasa, dst...
4. lalu klik ctrl+s alias save..hehehehe

next kita buka vb 6.0
1. buat project baru
2. tambahkan komponen dengan cara klik menu project -> references
3. centang Microsoft ActiveX Data Object 2.0
4. aply lalu ok
5. selanjutnya pada form tambahkan sebuah combobox, juga sebuah Listbox, dan juga dua buah command button
6. sebelum berkoding ria mari kita buat sebuah modul terlebih dahulu

add module

7. selanjutnya silahkan masukkan koding di bawah ini

---------Form1

Private Sub Command1_Click()

Combo1.Clear

End Sub


Private Sub Command2_Click()

List1.Clear

End Sub


Private Sub Form_Load()

Call panggil
RsData.Open "select * from tbHari", conn
Do While Not RsData.EOF
Combo1.AddItem RsData!hari
List1.AddItem RsData!hari
RsData.MoveNext
Loop

End Sub

---------Module

Public conn As ADODB.Connection
Public RsData As ADODB.Recordset

Public Sub panggil()

Set conn = New ADODB.Connection
Set RsData = New ADODB.Recordset
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Dbdata.mdb"

End Sub

----------------

8. lalu jalankan dengan menekan f5

Before

Sebelum menekan tombol

After

Setelah menekan tombol

Semoga bermanfaat.....

- Download source code menghapus item : download (9,98 kb)