Menampilkan Kode Tersimpan pada Database Access di ComboBox VB 6.0

Menampilkan Kode Tersimpan pada Database Access di ComboBox VB 6.0

Selamat datang kembali di TeknoTips.NET. TeknoTips.NET adalah media online Indonesia yang diluncurkan pada bulan Maret 2015. Kami berkomitmen menyajikan konten seputar teknologi yang berkualitas dan bermanfaat. Ulasan kami terdiri dari berbagai topik: pemrograman komputer & database, review produk, tutorial windows, linux, android, kumpulan source code & project program, referensi tugas akhir & skripsi, download ebook, game & software.

Pada kesempatan ini kita akan mengulas artikel yang berjudul : Menampilkan Kode Tersimpan pada Database Access di ComboBox VB 6.0.

Pada kesempatan ini akan dibahas mengenai cara Memunculkan Data Pada Database yaitu Kode Barang dan KodeBarang didalam ComboBox. Jika biasanya kita hanya memunculkan Kode Barang saja pada ComboBox, kali ini kita akan memunculkan 2 Field yang ada didatabase kedalam satu ComboBox pada Visual Basic 6.0

Caranya ikuti langkah langkah dibawah ini :
Kami mempunyai database yang dinamakan : DBAplikasi.mdb
kemudian didalam Database tersebut, saya mempunyai Tabel Barang
Buatlah satu Folder yang didalamnya terdapat : Project VB 6.0 dan Database diatas
Kemudian buat Form seperti gambar dibawah ini :
Memunculkan ComboBox Kode Barang Dan Nama Barang VB 6.0, Memunculkan Data Pada Database.
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 :
Memunculkan ComboBox Kode Barang Dan Nama Barang VB 6.0, Memunculkan Data Pada Database.
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.
Untuk mendapat notifikasi setiap artikel terbaru, masukkan e-mail anda disini
Selanjutnya cek e-mail anda untuk verifikasi.

Silahkan tuliskan komentar relevan Anda dengan jelas dan sopan, sesuai dengan topik postingan tentang "" pada halaman dibawah ini.

0 Response to "Menampilkan Kode Tersimpan pada Database Access di ComboBox VB 6.0"

Post a Comment

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2


Iklan Bawah Artikel