Cara Panggil Data Dengan Menggunakan ComboBox (Visual Basic 6.0)

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...!!!
0 Komentar untuk "Cara Panggil Data Dengan Menggunakan ComboBox (Visual Basic 6.0)"

------------------------------------------------------------------------------------
ATURAN PEMBERIAN KOMENTAR DAN SARAN :
- SOPAN
- RELEVAN

SILAHKAN BERIKAN KOMENTAR SAUDARA
ATAS PERHATIANNYA SAYA UCAPKAN TERIMAKASIH!!!
-------------------------------------------------------------------------------------

Back To Top