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]





YAHOO! GROUPS LINKS




Kirim email ke