Cara Menampilkan Item Database di ComboBox dan ListBox VB6

Cara Menampilkan Item Database di ComboBox dan ListBox 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.
Menampilkan Item Database, Item Database di ComboBox, Item Database
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.
Tag : Menampilkan Item Database, Item Database di ComboBox, Item Database ListBox.

Silahkan komentar pada kolom dibawah ini jika ada yang ingin ditanyakan tentang Cara Menampilkan Item Database di ComboBox dan ListBox VB6.

0 Response to "Cara Menampilkan Item Database di ComboBox dan ListBox VB6"