Ini Cuma salah satu dari banyak cara ya..
Contoh:
1. mengisi COMBO BOX.
Combobox.clear
Dim x as integer
For x=1 to 1000
Combobox.additem x
Next x
Tapi kalau saya perhatikan, dari pertanyaan nomor 2, sepertinya anda
akan mengisi ini untuk nomor Induk Pegawai ya?
Mudahan2an benar, karena kalau memang benar begitu, maka anda sebaiknya
tidak asal 'menembak' langsung 1 ke 1000 gitu.
Tapi lebih baik seperti ini:
Recordset_contoh.open "select NIP from table_pegawai order by NIP"
Do until recordset_contoh.eof
Combobox.additem recordset_contoh(0)
Loop
Recordset_contoh.close
2. untuk menampilkan data-data dari table di databse.
Ada 2 macam.
a. dengan method bound ke data control
b. atau dengan tambahan sedikit coding.
Nah saya sarankan untuk pembelajaran, mending pake coding sendiri aja.
Misal:
Buat public function Func_AmbilNip dan letakkan di Module.
Misalkan kita terkoneksi ke database dengan Adodb ya.
Dim Koneksi as new adodb.connectiion
Dim RSTemp as new adodb.recordset
'--assume:
'-- koneksi sudah connected ke database.
'untuk mengambil NIP berdasarkan Namapegawainya
'Tapi sangat-sangat saya sarankan untuk tidak menggunakan nama untuk
pencarian, karena nama sangat besar memiliki kesamaan dengan orang lain kan?
'Ini hanyalah contoh karena anda meminta contoh yang seperti ini. Ok :)
Public Function Func_AmbilNipByName(Nama as string) as string
Rstemp.open "select NIP from Table_Pegawai where Nama='" & Nama &
"'"
If rstemp.recordcount>0 then
Func_AmbilNipByName=rstemp(0)
End if
Rstemp.close
End function
'Nah untuk ambil NIP berdasarkan Nama, bisa anda gunakan:
Public Function Func_AmbilNameByNIP(Nama as string) as string
Rstemp.open "select NIP from Table_Pegawai where Nama='" & Nama &
"'"
If rstemp.recordcount>0 then
Func_AmbilNipByName=rstemp(0)
End if
Rstemp.close
End function
'Coba untuk fungsi untuk mengambil gaji_dasar berdasarkan NIP anda
modif sendiri. :)
Nah nantinya, fungsi-fungsi itu bisa kita gunakan kapan saja di
seluruh area project. --dan percayaah, itu akan sagat sering anda pergunakan
nantinya :) -
Cara Penggunaannya, anda bisa menuliskan code seperti ini:
Private sub ComboBox_Click()
Txtnip.text = func_ambilNipByName(trim(combobox.text))
Txtgajidasar.text = func_ambilgaji(trim(bombobox.text))
End sub
**NOTE:
Semua contoh-contoh code di atas saya tulis langusng di email composer saya.
Jadi mungkin anda gak akan bisa copy-aste.
Tapi saya harap anda mengerti dan gak sekedar copy-paste saja.
Oya, sorry jika tulisan saya ter-wrapped :)
Mudahan-muahan berguna.
Semoga berhasil :)
big smile and great regards in advance,
-----------------------------------------------------------------
Jacky Supit
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
dekstop or web programming,
anything i can do 4 you ;-)
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
-----------------------------------------------------------------
-----Original Message-----
From: Fahrul Rizal [mailto:[EMAIL PROTECTED]
Sent: Wednesday, September 27, 2006 6:47 PM
To: [email protected]
Subject: [indoprog-vb]tanya menyingkat nomor
for all.......!
ku punya masalah nih tlong pencerahanya donk.....!
(1) ku ingin membuat nomor2 di cbobox saya pake kodingnya seperti ini...!
cbonomor.additem "1"
cbonomor.additem "2"
saya ingin membuat nomor sampe 1000
da coding yang singkat untuk additem tersebut ga.....?
(2) saya punya database pegawai di access dengan nama tabel adalah
tblpegawai
- Nama_Pegawai
- Nip
- Gaji_Dasar
yg ingin saya tanyakan ....!
nama_pegawai saya menggunakan combobox....!
yang ketika saya klick combobox nama secara otomatis
akan timbul di txtnip.text = nip dan txtgaji_dasar.text= gaji_dasar
sebelumnya terimakasih.......!
jangan pernah bosan yah menjawab pertanyaan dari saya....!
maklum ya baru belajar.........!
---------------------------------
Do you Yahoo!?
Everyone is raving about the all-new Yahoo! Mail.
[Non-text portions of this message have been removed]
Untuk berhenti berlangganan kirim email kosong ke :
[EMAIL PROTECTED]
Bagi terjangkit virus lokal, zip virus tersebut
dan kirim ke [EMAIL PROTECTED], kami
akan membuat removalnya untuk anda.
Yahoo! Groups Links
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Bagi terjangkit virus lokal, zip virus tersebut
dan kirim ke [EMAIL PROTECTED], kami
akan membuat removalnya untuk anda.
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indoprog-vb/
<*> Your email settings:
Individual Email | Traditional
<*> To change settings online go to:
http://groups.yahoo.com/group/indoprog-vb/join
(Yahoo! ID required)
<*> To change settings via email:
mailto:[EMAIL PROTECTED]
mailto:[EMAIL PROTECTED]
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
