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 :
- Cara koneksikan visual basic 6.0 dengan Database
- Cara Koneksikan Database MySQL ke Visual Basic 6.0
- Coding Save, Edit, Delete, Cencel, dan Exit Dengan Visual Basic 6.0
- 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!!!
-------------------------------------------------------------------------------------