ini sama seperti kasus mencari nama dilisting dibawah
ini, tinggal disesuaikan aja..
Dim xcari
xcari = Trim(t_nama.text)
Set rs_bukutelepon = New ADODB.Recordset
rs_bukutelepon.Open " select
kd_bukutelpon,nama,hp,fax,teleponkantor,teleponrumah,"
_
& "
alamatkantor,alamatrumah,email from
tb_korsec_bukutelpon " _
& " where nama like '%" & xcari
& "%' order by nama", koneksi, adOpenStatic
Set gr1.DataSource = rs_bukutelepon
rgd,
--- if01k <[EMAIL PROTECTED]> wrote:
>
> Mohon bantuan dari rekan-rekan semua,
>
> Saya mau mencari kode barang melalui sebuah textbox
> pada sebuah tabel.
> Pada waktu mengetikkan sebagian kode barang di
> textbox bisa menampilkan
> kode barang yang
> huruf depannya sesuai dengan isi yang kita ketikkan
> pada textbox.
>
> Seperti kalau kita mengetikkan sesuatu text melalui
> run command pada
> windows.
>
>
> Terima kasih.
>
>
>
>
>
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
Wahana Programmer Groups Links
<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
http://wahanaprogrammer.net
<*> Untuk menghubungi owner milis ini, kirim email ke:
[EMAIL PROTECTED]
<*> Konsultasi pemrogramman bisa chat disini:
Yahoo! Messenger: wahanaprogrammer
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> 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/
