olá, como faço para fazer uma consulta no flexgrid, tenho um flexgrid, onde contem dados de uma tabela, e um textbox onde digito o nome a procurar.

no evento change do textbox coloque o select abrindo o recordset com o like e preencha o grid

 

tipo assim

 

private sub textbox1_change

   "select nome from tabela where nome like '%"  & textbox1.text & "%'"

abre o recordset aqui

 

e faça

set grid.datasource = rs

end sub

OU....

 

Private Sub Text1_Change()
Dim i As Integer, sProcura As String, sGrid As String
Dim bComp As Byte
sProcura = UCase(Text1.Text)
bComp = Len(sProcura)
For i = 0 To FormINICIO.GridINICIAL.Rows - 1 'numero de linha no grid
  sGrid = UCase(FormINICIO.GridINICIAL.TextMatrix(i, 1))
  If sProcura = Left$(sGrid, bComp) Then
    FormINICIO.GridINICIAL.Row = i 'a linha q recebe o foco/destacada
    FormINICIO.GridINICIAL.Col = 1 'a coluna qfica destacada
    FormINICIO.GridINICIAL.TopRow = FormINICIO.GridINICIAL.Row 'fica la em cima do grid, a primeirona
    Exit For
  End If
Next