Menampilkan Kode Tersimpan pada Database Access di ComboBox VB 6.0

Caranya ikuti langkah langkah dibawah ini :
Kami mempunyai database yang dinamakan : DBAplikasi.mdb
kemudian didalam Database tersebut, kami mempunyai Tabel Barang
Buatlah satu Folder yang didalamnya terdapat : Project VB 6.0 dan Database diatas
Kemudian buat Form seperti gambar dibawah ini :
Masukan Koding dibawah ini :

Dim Conn As New ADODB.Connection
Dim RSBarang As ADODB.Recordset
Sub FormEmpty()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
End Sub
Sub OpenDB()
    Set Conn = New ADODB.Connection
    Set RSBarang = New ADODB.Recordset
    Conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DBAplikasi.mdb"
End Sub
Private Sub Form_Activate()
 RSBarang.Open "Barang", Conn
        Combo1.Clear
    Do Until RSBarang.EOF
        Combo1.AddItem RSBarang!KodeBarang & Space(3) & RSBarang!namaBarang
        RSBarang.MoveNext
    Loop
End Sub
Private Sub Form_Load()
    FormEmpty
    Call OpenDB
    Adodc1.ConnectionString = Conn
    Adodc1.RecordSource = "Barang"
    Adodc1.Refresh
    Set DataGrid1.DataSource = Adodc1
End Sub
Private Sub Combo1_Click()
    Call OpenDB
    RSBarang.Open ("Select * From Barang where KodeBarang='" & Left(Combo1, 6) & "'"), Conn
    If Not RSBarang.EOF Then
        Text1 = RSBarang!namaBarang
        Text2 = RSBarang!HargaBarang
        Text3 = RSBarang!JumlahBarang
        Text4 = RSBarang!SatuanBarang
    End If
    Conn.Close
End Sub

Jalankan Aplikasi anda dan berikut hasilnya :
Semoga bermanfaat untuk belajar VB 6.0, jangan lupa berkomentar yaaa :)

Tag : Memunculkan ComboBox Kode Barang Dan Nama Barang VB 6.0, Memunculkan Data Pada Database.

Download Source Code Program