kalo gw si pake adodb.jd pertama gw defisikan yg
namanya..record
dim record as adodb.recordset.
kemudian bikin tombol dan textbox..
untuk mencet dan ngetik kata yg akan di cari di
textbox.
record.Open " SELECT * FROM namatabel WHERE filed
LIKE '%" & textbox & "%'", koneksi, adOpenStatic,
adLockOptimistic
If Not record.EOF Then
hasil
Else
MsgBox "Tidak ada pegawai bernama " &
TxtCari.Text, vbInformation, "Hasil pencarian"
rs.Close
End If
function hasil()
untuk menampilkan data yg didapat
perintahnya biasala..
Dim record As ADODB.Recordset
Set record = New ADODB.Recordset
record.Open "Select * from namatabel ", koneksi,
adOpenStatic, adLockOptimistic
namamsflexgrid.TextMatrix(0, 0) = "nama field"
.
.
namamsflexgrid.ColWidth(0) = 1700
.
.
While record.EOF = False
namamsflexgrid.AddItem record!namafield &
Chr(9) &
rs.movenext
Wend
Set rs = Nothing
rival
--- Dedy <[EMAIL PROTECTED]> wrote:
> bung rival kalo pada event keyup bagaimana ya contoh
> di MsFlexgrid
>
> Private Sub txtCari_KeyUp(KeyCode As Integer, Shift
> As Integer)
> ......?
> End Sub
>
> kalo pake Adodc kan coding seperti ini..
>
> Private Sub txtCari_KeyUp(KeyCode As Integer, Shift
> As Integer)
> Adodc1.RecordSource = "select * from namaTabel
> where Field like '" & txtCari.Text & "%'"
> Adodc1.Refresh
> End Sub
>
> thanx
> ----- Original Message -----
> From: rival
> To: [email protected]
> Sent: Thursday, July 14, 2005 9:35 AM
> Subject: Re: [Programmer-VB] [Help] Search Data di
> MSFlexGrid
>
>
> kalo gw pake perintah sql buat nyari data di
> msflexgrid..
> perintahnya biasa la>
> select * from nama tabel where nama
> field=textbox.
>
> smg membantu..
> rival
>
> --- Dedy <[EMAIL PROTECTED]> wrote:
>
> > guys, bagaimana cara mencari data yg ditampilkan
> di
> > msflexgrid melalui text box,
> > kalo di Datagrid kan bisa pake Adodc kalo di
> msflexgrid...?
>
>
>
>
>
> ____________________________________________________
> Start your day with Yahoo! - make it your home
> page
> http://www.yahoo.com/r/hs
>
>
>
> Untuk keluar dari millis ini, kirim email kosong
> ke:
> [EMAIL PROTECTED]
>
>
>
>
>
>
------------------------------------------------------------------------------
> YAHOO! GROUPS LINKS
>
> a.. Visit your group "Programmer-VB" on the
> web.
>
> b.. To unsubscribe from this group, send an
> email to:
> [EMAIL PROTECTED]
>
> c.. Your use of Yahoo! Groups is subject to the
> Yahoo! Terms of Service.
>
>
>
------------------------------------------------------------------------------
>
>
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
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/
