Cara Menampilkan Item Database ke Dalam ComboBox dan ListBox di VB6

Cara Menampilkan Item Database ke Dalam ComboBox dan ListBox di VB6 - Dari pertanyaan yang masuk kedalam Contact-us tip dan trik visual basic rata-rata para pengunjung lebih banyak menanyakan tentang bagaimana menampilkan item database ke dalam combobox dan listbox.Oleh karena itu pada kesempatan kali ini tip dan trik visual basic ingin membahasanya kembali melalui postingan supaya bagi teman-teman yang belum tau caranya bisa membaca artikel ini.

Sebelum kita ke tip mari kita simak sama-sama pengertian dan fungsi dari kedua komponen tersebut yaitu ListBox dan ComboBox. ListBox adalah komponen yang sudah tersedia didalam toolbox yang berfungsi untuk menampilkan daftar pilihan dalam sebuah kotak pilihan. Listbox digunakan untuk daftar pilihan yang cukup banyak dan di mungkinkan pengguna untuk memilih lebih dari satu pilihan sedangkan ComboBox adalah merupakan suatu komponen yang sudah tersedia didalam toolbox yang memiliki fungsi yang mirip Listbox .Namun ComboBox lebih menhemat tempat, karena pilihan ditampilkan di dalam satu TextBox dan dapat di drop-down ke bawah untuk melihat tampilan.

Berikut ini tip dan trik visual basic tampilkan cara-cara menampilkan item database kedalam Combobox dan Lisbox :

A. Membuat koneksi Database

1. Pastikan Anda sudah membuat Database terlebih dahulu untuk kita tampilkan nanti ke ListBox dan Combobox. Disini Saya menggunakan nama Databse-nya:DataKar.mdb yang disimpan satu folder dengan form ini dengan nama Tabel :Tabel_Karyawan

2. Setelah membuat Database,buka Form Standar VB6 Anda

3. Kemudian klik Project References pilih dan ceklist Microsoft ActveX Data Objects 2.0 Library, ini adalah untuk mengaktifkan koneksi ADODB

4. Kemudian tambahkan sebuah Module dengan cara klik Project dan pilih Add Module, setelah itu jendela module terbuka dan ketik kode dibawah ini di jendela Module :

'kode untuk koneksi

Option Explicit

Public conn As ADODB.Connection

Public rs As ADODB.Recordset

Sub connect()

Set conn = New ADODB.Connection

conn.Open "Provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\DataKar.mdb; persist security info false"

'database Karyawan

Set rs = New ADODB.Recordset

rs.ActiveConnection = conn

rs.CursorLocation = adUseClient

rs.CursorType = adOpenDynamic

rs.LockType = adLockBatchOptimistic

rs.Source = "select*from Tabel_Karyawan"

rs.Open

End sub

5. Setelah Anda mengetik kode di jendela Module kembali form Standar VB6

B. Menampilkan Item Database kedalam Combobox dan Listbox

6. Tanamkan 1 ComboBox dan 1 ListBox ke Form

7. Buka jendela kode Form dengan menekan F7, lalu ketik kode dibawah ini

Dim nom As Integer

Private Sub Form_Load()

connect

'memasukan item database kedalam Combobox

With rs

.MoveFirst

Do While Not .EOF

Combo1.AddItem "" + !nik + ""

.MoveNext

nom = nom + 1

Loop

End With

'memasukan item Database kedalam Listbox

With rs

.MoveFirst

Do While Not .EOF

List1.AddItem "" + !nik + ""

.MoveNext

nom = nom + 1

Loop

End With

End Sub

8. Simpan kode hasil pekerjaan Anda dan jalankan Program.

Item Listbox dan Combobox

Catatan :

-Bagi Anda yang sudah membuat koneksi database sendiri langsung saja ke langkah B (No 6 s/d 8) atau tidak perlu membuat koneksi lagi

-Bagi Anda yang belum membuat koneksi ikuti langkah-langkahnya dari awal

-Kode yang bercetak tebal sesuaikan dengan kode Anda

Sekian Cara Menampilkan Item Database ke Dalam ComboBox dan ListBox di VB6. semoga bermanfaat.....

Related Post: ComboBox Database