Bagi sebagian orang yang udah pakarnya Visual Basic , mungkin tema ini udah biasa . Tapi apa salahnya saya berbagi sedikit ilmu buat para newbie-newbie VB seperti saya .Oia untuk mendukung pembuatan program ini aku pake mysql server 5.0 , SQL yog (for tampilan database-nya) dan visual basic 6 .Programnya buat simpe aja supaya mudah dipahami.
1. Langkah pertama buat formnya dulu donk
- 1buah frame
-2 buah label dengan masing-masing caption tulisan ‘kategori’ dan ‘:’
- 1 buah combobok dengan name ‘cbkat’
2. Siapin databasenya , aku udah buat database dengan nama ‘mis’ , tabelnya ‘mis_kategori_pc’ dan fieldnya kategori.
3. Lalu pilih view kode , untuk menuliskan kodingnya
‘Inisialisasi untuk memanggil database dan tabel
Public cn As New ADODB.Connection
Public rs As New ADODB.Recordset
Private Sub Form_Load()
‘nama data base ‘
Set cn = New ADODB.Connection
cn.Open “Provider=msdasql.1;Data Source=mis;”
‘ambil kategori dari tabel di database
Set rs = New ADODB.Recordset
rs.Open “select kategori from mis_kategori_pc order by kategori ASC”, cn
‘menampilkan isi combobox dari database ‘
Do While Not rs.EOF
cbkat.AddItem rs!kategori
rs.MoveNext
Loop
rs.Close
End Sub
4. Hasilnya seperti gambar dibawah ini
Mudah bukan !!!! Selamat mencoba.
December 3, 2009 at 8:20 am
makasih banyak
December 15, 2009 at 4:08 am
tengkyu yak atas petunjuknya. hehehe..
simple but it works. :p
December 15, 2009 at 4:36 am
@faiz n @dwiannisa : sama2…..thx udh ngunjungi blogku.
January 18, 2010 at 1:17 pm
bisa di jelasin gx yang rs!kategori????
January 20, 2010 at 4:28 pm
@rhido
Maksud dari “cbkat.AddItem rs!kategori” yaitu mengambil data dari field kategori pada tabel untuk ditampilkan pada combobox. Apa udah paham ????
January 24, 2010 at 7:23 am
Makasih Banget yah mbak =)
May 7, 2010 at 6:02 am
makasih tutorialnya, bagaimana kalau kita ingin menampilkan 2 field pada combo box. misal : combobox nim begitu diklik akan muncul nim dan nama mahasiswa tsb(0624 dani). mohon bantuanya.
May 8, 2010 at 5:55 pm
@ dani :
caranya dengan menambahkan field yg kam butuhkan, seperti script dibawah,klo error hubungi saia yah.
‘ambil kategori dari tabel di database
Set rs = New ADODB.Recordset
rs.Open “select nim,nama from mahasiswa order by nama ASC”, cn
‘menampilkan isi combobox dari database ‘
Do While Not rs.EOF
cbkat.AddItem rs!nim —- rs!nama
rs.MoveNext
Loop
rs.Close
May 10, 2010 at 5:41 am
ok… saya coba, terima kasih…
May 10, 2010 at 11:53 am
cama-cama.
June 16, 2010 at 3:13 pm
wah makasih banget amat sangat berarti hehehee..
June 17, 2010 at 6:01 pm
@ hany : cama2 non…
June 21, 2010 at 9:24 am
thanks ya
June 24, 2010 at 11:39 am
@ ichsan : sama2…
June 29, 2010 at 2:04 pm
nah untuk menampilkan isi combobox dari database udah bisa..sekarang saya pengen menampilkan isi database ke textbox dan label dari database yang sama setelah memilih item di combobox..gimana tuh??/bisa gak???tolong dong..lg bikin program buat skripsi nih…kalo bisa tolong kirimin contohnya ke e-mail saya…
makasih….
June 29, 2010 at 4:24 pm
maaf pertanyaannya belum jelas…sebutin dong field2 dari database yang ingin ditampilkan di combobox and textboxnya….oh ya emailnya apa ?
June 30, 2010 at 3:31 pm
di database saya punya table troubleshooting..fieldnya adalah ” kodekerusakan, namakerusakan, indikasi1, indikasi2, indikasi3, s/d idikasi10.sbagai cntoh saya sudah update database untuk tiap” field.nah saya dah bisa buat tampil tuh isi field”nya ke label.di combobox kan berisi “kerusakan”, kalo saya pilih salah satu muncul tuh isi field”nya…isi fieldnya kan beda”, ada yang 3,5,8,10.misalnya saya pilih combox kerusakan1,muncul tuh isi fieldnya 5 indikasi.nah pas saya pilih kerusakan2 yang harusnya menampilkan 3 isi field ko jd 5..emang isi field yang diinginkan muncul..tp isi field indikasi4 & indikasi5 msh ada dr “kerusakan1″..bgmn tuh byr indikasi4&5 bisa kosong otomatis??tuh mslh prtama..mslh yg ke2 ada dlm penulisan koding…nih kodingnya antara kerusakan “netbook nyala mati” & “tidak ada tampilan”
If Combo1 = “Netbook nyala mati” Then
Set cn = New adodb.Connection
cn.Open “Provider = Microsoft.jet.oledb.4.0;persist security info =false;data source=” & App.Path & “\DataPenting.mdb”
Set rs = New adodb.Recordset
rs.Open “select distinct indikasi10 from troubleshooting”, cn
Do While Not rs.EOF
Label23.Caption = rs!indikasi10
rs.MoveNext
Loop
rs.Close
End If
If Combo1 = “Tidak ada tampilan” Then
Set cn = New adodb.Connection
cn.Open “Provider = Microsoft.jet.oledb.4.0;persist security info =false;data source=” & App.Path & “\DataPenting.mdb”
Set rs = New adodb.Recordset
rs.Open “select distinct indikasi1 from troubleshooting”, cn
Do While Not rs.EOF
Label14.Caption = rs!indikasi1
rs.MoveNext
rs.MoveNext
Loop
rs.Close
End If
koding diatas saya rasa tidak efektif karna di form admin ada update DB Troubleshooting. berhubung ada update database otomatis koding di atas tidak bs dipakai…saya mnta solusinya dong…
June 30, 2010 at 3:44 pm
ba..saya mnt YM-nya dech…byr komunikasinya lancar…tolongin saya ba…saya udah stresss…tnggl 5 programya harus udah slsay…
nich YM saya : albani_tekno@yahoo.com
June 30, 2010 at 5:02 pm
Sadeli yang baik hati, saya ngerti kondisi kamu karena saya juga sedang skripsi
. Saya pikir sourcodenya sederhana. Saya udah setahun gak megang VB. Untuk masalah ini sepertinya saya gak bisa bantu.Sekali maaf yah. Saya punya saran silahkan tanya dengan mas yg punya blog ini http://samsonasik.wordpress.com/. Mudahan dia bisa bantu kamu. Semoga sukses yah skripsinya. Untuk aplikasi pengambilan keputusan itu sepertinya udah banyak diinternet. Coba deh dan tetap semangat. Kebetulan saya juga sedang sibuk dengan skripsi saya. Makasih udah mengunjungi blog saya.
October 9, 2010 at 5:48 am
Halo lina yg baiik.,.,
bantuin aku donk.,., aku mau nampilin data dari database acces ke combobox vb.,., gmn caranya ????
aku tunggu ya,., makasii..
October 9, 2010 at 6:10 am
tinggal ganti script yg ku tebali ini :
‘nama data base ‘
Set cn = New ADODB.Connection
cn.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=mis;”
Data Source = nama database
atau bs juga make adodc…ini ada tutnya…http://www.scribd.com/doc/21255485/Dasar-dasar-Visual-Basic>>>coba pelajari yah. Klo belum berhasil nanti beritau saya yah…:)
October 9, 2010 at 6:17 am
sory..garis miring maksudnya…:)
November 7, 2010 at 8:41 am
thx…….
November 7, 2010 at 9:10 am
Gimana biar combox lgsung refresh data yang baru dimasukan tanpa menutup form utamax??
November 8, 2010 at 12:10 pm
belum pernah coba….coba cari sourcode buat refresh..
November 10, 2010 at 10:20 am
mas kalo database nya pake sql server 2008 gimana ? tapi nampilinnya ke label ?
February 6, 2011 at 4:54 am
maaf saya belum pernah coba
December 21, 2010 at 5:30 am
tenkyu buangetzz scriptnya…
February 6, 2011 at 4:54 am
cama2
February 10, 2011 at 1:55 pm
mbak saya mau nanya nih ..
saya mau nambah record data ..
tp kok data yg paling atas (pd database) jadi ke replace dengan data baru .. ?
tolong dijawab ya mbak ..
February 14, 2011 at 6:11 am
boleh lihat sourcodenya
July 10, 2011 at 3:33 pm
tanya,mbak..
gimana kalo combobox-nya diganti listbox trus tiap isi listbox tadi di-klik muncul messegebox yang menampilkan isi dari record/list yang diklik?
terima kasih