Masih pagi dan masih semangat, sebenarnya lagi masuk kerja juga sih (saya tata usaha dan guru komputer di sebuah sekolah swasta, disempet sempetin buat mosting beberapa hal-hal mengenai VB 6 yang mungkin bermanfaat buat anda.
Combobox , salah satu komponen di VB 6 yang fungsinya memberikan pilihan ke user, tinggal klik maka si pilihan tadi akan nampil di Comboboxnya.
Pada tingkat coding, untuk mengisi data yang ada dalam ComboBox biasanya menggunakan code berikut ini (diletakkan di Form_load, sehingga saat Form tampil, Comboboxnya sudah terisi ) :
Private Sub Form_Load()
With Combo1
.Refresh
.AddItem "Dimas"
.AddItem "Arie"
.AddItem "Prastyo"
End With
End Sub
Kekuranganya adalah apabila kita ingin menambah lebih banyak pilihan, maka harus menuliskan
Combo1.AddItem N1 '-- N1 = Data yang ingin ditampilkan
Maka dari itu, sebenarnya kita bisa membuat datanya dinamis berdasar pada data yang ada di , database, jadi kalau data di database bertambah, maka di ComboBox bertambah, begitu juga bila berkurang, akan berkurang juga.
Diperlukan sebuah database yang digunakan untuk menampung data, kemudian menghubungkannya ke Visual Basicnya. Coding untuk menampilkan data ke ComboBox seperti berikut ini.
Private Sub Form_Load()
'--- mengambil data nama alat dari tabel alat
sql = "select * from tblalat order by nmalat asc"
Set rsBaca = New ADODB.Recordset
rsBaca.CursorLocation = adUseClient
rsBaca.Open sql, conn, 3, 4
With Combo1
.Refresh
Do While Not (rsBaca.EOF)
.AddItem rsBaca!nmalat & ""
rsBaca.MoveNext
Loop
End With
End Sub
0 comments:
Post a Comment