----- Original Message -----
Sent: Friday, July 15, 2005 8:42 PM
Subject: Re: [Programmer-VB] [Help]
Search Data di MSFlexGrid
coba pake ini:
sub isi_flexgrid()
MSFlexGrid1.Rows = rec.recordcount + 1
I =
1
Do While Not
rec.EOF
MSFlexGrid1.TextMatrix(I, 0) =
I
MSFlexGrid1.TextMatrix(I, 1) =
rec("field_01")
MSFlexGrid1.TextMatrix(I, 2) =
rec("field_02")
MSFlexGrid1.TextMatrix(I, 3) =
rec("field_03")
I = I +
1
rec.MoveNext
Loop
end
sub
private Sub cmdCari_Click()
'pilih dulu
record yg akan ditampilkan
str = "SELECT * FROM tabel_01 where
field_01 Like '" & text1 & "%'"
rec.open str, connection, 1,
1, 1
'tampilkan di flexgrid
call isi_flexgrid
end
sub
Untuk keluar
dari millis ini, kirim email kosong
ke:
[EMAIL PROTECTED]
---- LSpots keywords ?>---- HM ADS ?>
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
YAHOO! GROUPS LINKS