Ini yang paling simple (event keypress),menggunakan event lostfocus juga
bisa, kalo event change sebaiknya dihindari jika database/table kita dalam
jumlah yang besar
'Connection sudah diset sebelumnya
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim rs As New ADODB.Recordset
If KeyAscii = 13 And Me.Text1 <> "" Then
rs.Open "select nip,nama,jabatan,gol from mytable where nip='" &
Me.Text1 & "'", Cn, adOpenForwardOnly, adLockReadOnly
If Not rs.EOF Then
Me.Text2 = rs.Fields(1)
Me.Text3 = rs.Fields(2)
Me.text4 = rs.Fields(3)
End If
rs.Close
End If
End Sub
Dengan cara diatas nomor NIP yang diketik harus persis dengan yang ada di
database,kalau tidak gak akan ketemu value nya. Cara yang lebih baik yaitu
menambahkan form list/search pada event keypress dan diquery menggunakan
LIKE,jadi jika Cuma mengetik "23" akan ada pilihan untuk memilih "123" atau
"234". Oya better jika menggunakan function lookup,jadi kita cuma perlu
passing parameter saja,jadi gak perlu ketik coding untuk setiap kali mau
buka recordset untuk setiap kali mau menampilkan data
Thanks
Teguh Santoso
_____
From: [email protected] [mailto:[EMAIL PROTECTED]
On Behalf Of Oldy Rompas
Sent: Tuesday, September 18, 2007 1:09 PM
To: [email protected]
Subject: [Programmer-VB] Help Urgent (Menampilkan beberapa field)
halo vb mania........................
to the point...
saya punya satu problem mengenai cara menampilkan isi database ke textbox
contoh :
mytable:
| NIP | NAMA | JABATAN | GOL |
| 123 | SAYA | BOS | IIIA |
| 234 | DIA | ANAK BUAH | IIA |
| 345 | KAMU | PENGAWAS | II B |
Jadi jika saya input NIP pada text1 maka NAMA dan JABATAN dan GOL tampil
pada text2, text3, dan text4
eventnya lostfocus atau atau text1_change atau text1_keypress
help pleasssss.....................
Mohon Pencerahannya...............
_____
Need a vacation? Get
<http://us.rd.yahoo.com/evt=48256/*http:/travel.yahoo.com/;_ylc=X3oDMTFhN2hu
cjlpBF9TAzk3NDA3NTg5BHBvcwM1BHNlYwNncm91cHMEc2xrA2VtYWlsLW5jbQ--> great
deals to amazing places on Yahoo! Travel.
