|
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 ?> YAHOO! GROUPS LINKS
|
- Re: [Programmer-VB] [Help] Search Data di MSFlexGrid Wawan Hermawan
