Cara Panggil Data Dengan Menggunakan ComboBox (Visual Basic 6.0)

Oleh peistar

Wednesday, 30 November 2016

Bagikan :

Tweet

Tampilan Form Pesanan Barang

Kali ini saya akan memberikan tutorial mengenai cara memanggil data barang menggunakan ComboBox menggunakan Visual Basic 6.0. Dengan menggunakan ComboBox ini kita dapat dengan lebih mudah memilih data barang yang akan kita pesan sesuai dengan perancangan Form yang akan kita buat.

Adapun langkah – langkah pengerjaanya sebagai berikut :

Baca Juga Tutorial Berikut ini :

1. Cara koneksikan visual basic 6.0 dengan Database
2. Cara Koneksikan Database MySQL ke Visual Basic 6.0
3. Coding Save, Edit, Delete, Cencel, dan Exit Dengan Visual Basic 6.0
4. Cara Mudah Menampilkan Data Menggunkan Data Grid Pada Visual Basic 6.0

- Langkah Pertama : Buatlah sebuah database dengan tabel sebagai berikut.

- Langkah Kedua : Desainlah Form Pemesanan Barang Seperti gambar dibawah ini.

- Langkah Ketiga : Klik 2 kali pada Combo 1 dengan Procedure Change, kemudian masukan Coding program dibawah ini.

Coding Program :

Set rs = New ADODB.Recordset

rs.LockType = adLockOptimistic

rs.CursorType = adOpenDynamic

rs.Open "select * from Barang", conn, , , adCmdText

rs.Filter = " Kd_brg= '" & Combo1.Text & "'"

If Not rs.EOF Then

Text2.Text = rs.Fields(1)

End If

- Langkah Keempat : Pada Form Load masukan Coding Program dibawah ini.

Coding Program :

Set rs = New ADODB.Recordset

rs.Open "select * from Barang", conn, adOpenKeyset

        If rs.RecordCount <> 0 Then

        Do While rs.EOF = False

        Combo1.AddItem rs!Kd_brg

        rs.MoveNext

    Loop

End If

Catatan : Untuk memanggil data dari tabel barang hal yang harus diperhatikan adalah memastikan data sudah diisi dengan benar.

Tambahan  : untuk membuat Nomor Pesanan secara Otomatis saudara dapat memasukan Coding Program dibawah ini kedalam area Code Program.

Private Sub oto()

Set rs = New ADODB.Recordset

rs.Open ("select * FROM Pesan WHERE No_Pesan in(select max(No_Pesan) from Pesan)order by No_Pesan desc"), conn

rs.Requery

    Dim Urut As String * 2

    Dim Hitung As Long

    With rs

        If .EOF Then

            Urut = "01"

            Text1.Text = Urut

        Else

            Hitung = Right(!No_Pesan, 2) + 1

            Urut = Right("00" & Hitung, 2)

        End If

        Text1.Text = Urut

    End With

End Sub

Catatan : Jangan lupa perkenalkan Class Oto pada Form Load

Demikianlah tutorial yang singkat ini semoga bermanfaat bagi kita semua, salam kompak selalu untuk kita semua. Wasalllammmm...!!!

Tag : Pemrograman Visual Basic 6.0