Dear Fahrul Rizal,
+ jawaban dari postingan anda sebelumnya :)
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: Thursday, September 28, 2006 11:37 PM
To: [email protected]
Subject: [indoprog-vb] adodb
for all,,,,,!
da yang mo bantu saya .....!
ku punnya database di access
dengan nama pegawai.mdb
nama tabelnya tbnama
di dalama tabel terdapat kolom
1.nama
2.nip
3.peringkat
form
cbonama
txtnip
txtperingkat
saya ingin
pada saat cbonama di click
maka secara otomatis nip dan peringkatnya ikut menyusul
tlong yah da di kejar2 ma bos nih...!
---------------------------------
Stay in the know. Pulse on the new Yahoo.com. Check it out.
[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/
