Menampilkan Isi Database ke ComboBox VB 6

Sekarang kita akan belajar bagaimana cara menampilkan data yang ada di atribut database ke dalam ComboBox.

ScreenShot Program

Pertama buatlah sebuah database dengan Format.mdb (Access 2002-2003).

Disini saya beri contoh Database Penjualan dengan Nama Databaase DB_Jual dan Atribut Barang.

Kemudian buatlah form seperti dibawah ini :

Object Properties :

TextBox 1 = ( Property : Name : Text1 )
TextBox 2 = ( Property : Name : Text2 )

Label 1 = ( Property : Name : Label1 - Caption : ID BARANG )
Label 2 = ( Property : Name : Label2 - Caption : NAMA BARANG )
Label 3 = ( Property : Name : Label3 - Caption : HARGA )

ComboBox = ( Property : Name : Combo1 )
 
Adodc = ( Property : Name : Adodc1 ) 
Adodc = ( Property : Visible : False )

Buatlah sebuah Module lalu Masukkan Kodingan Berikut :

Public Koneksi As New ADODB.Connection

Public Sub Konek_DB()

Set Koneksi = New ADODB.Connection

Koneksi.Provider = "Microsoft.Jet.OLEDB.4.0"
Koneksi.CursorLocation = adUseClient
Koneksi.Open App.Path & "\DB_Jual.mdb"

End Sub

Selanjutnya Masukkan Kodingan Berikut ke dalam Form Load.

Call Konek_DB

Adodc1.ConnectionString = Koneksi.ConnectionString
Adodc1.RecordSource = "Select * From Barang"
Adodc1.Refresh

'Koneksi Database Barang ke ComboBox

Combo1.Clear

With Adodc1.Recordset
    Do Until .EOF
    Combo1.AddItem !ID_Barang
    .MoveNext
    Loop
End With

Terakhir Masukkan kodingan Berikut ke dalam ComboBox (Combo1_Click)

"ComboBox nya Ganti dari Change ke Click"
 

Adodc1.RecordSource = "Select * From Barang Where ID_Barang='" & Me.Combo1.Text & "'"
Adodc1.Refresh

With Adodc1.Recordset
    If .EOF And .BOF Then
    MsgBox "Data Tidak Ditemukan"
    Exit Sub
  
    Else
  
    Me.Combo1.Text = !ID_Barang
    Me.Text1.Text = !Nama_Barang
    Me.Text2.Text = !Harga
    End If
End With