Pesquisar campos e aparecer na FlexGrid

[Edson_csi 0]

Olá!Tenho um formulário, onde eu insiro os dados de umapessoa e eles aparecem em uma flexgrid.Até aí tudo bem!Gostaria de saber se existe uma maneira de quando eu pesquisar pelo nome da pessoa, aparecesse somente os dados da mesma no campo FlexGrid.Obrigado!Abaixo vai os códigos:Private Sub cmdSalvar_Click()On Error GoTo mensagemcmdIncluir.Enabled = TruecmdExcluir.Enabled = TruecmdAlterar.Enabled = TruecmdConsultar.Enabled = TrueDadosRetorno.Recordset.UpdateDadosRetorno.RefreshExit Submensagem:MsgBox "Você tentou Inserir um nome já existente. Digite um novo nome."End SubPrivate Sub cmdConsultar_Click()Dim ValorPesquisa As StringValorPesquisa = InputBox("Digite o nome do cliente que você quer encontrar:")DadosRetorno.Recordset.FindFirst "NomeC = '" & ValorPesquisa & "'"If DadosRetorno.Recordset.NoMatch = True ThenMsgBox "Este registro não foi cadastrado."End IfEnd Sub

[dark_devil 0]

Boas Edson_csi,

 

Tenta fazer da seguinte maneira:

 

Public ligacao As Connection

Public consult As Recordset

 

Private Sub cmdTodos_Click()

' Chama o Form_load, para apresentar todos os dados na DataGrid

Form_Load

End Sub

 

Private Sub cmdProcurar_Click()

 

'Aqui faz uma procra pelos nomes na base de dados

 

If text1.Text <> "" Then

consulta ("select campos from Tabela where text1 Like '%" & Trim(text1.Text) & "%'")

Else

MsgBox "Insira um nome!", vbInformation

text1.SetFocus

End If

Exit Sub

 

End Sub

 

Private Sub end_Click(Index As Integer)

'fecha o form ver tarefas

vertaref.Hide

 

'torna acecevel o menu

menu.Enabled = True

End Sub

 

Private Sub Form_Load()

' Liga a base de dados

 

Set ligacao = New ADODB.Connection

ligacao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Caminho da base dados Security Info=False"

 

'Chama a função Consulta, e seleciona os campos todos da tabela contactos

 

consulta ("select campos from Tabela")

End Sub

 

Private Sub Form_Unload(Cancel As Integer)

consult.Close

ligacao.Close

End Sub

 

Function consulta(sql1 As String) ' Função que executa uma consulta

 

Set consult = New Recordset

consult.CursorLocation = adUseClient

consult.Open sql1, ligacao, adOpenForwardOnly, adLockReadOnly

 

Set Dados.DataSource = consult

Dados.Refresh

 

End Function

 

 

Nota: Atenção às variaveis pois possivelmente sao diferentes.... Atenção aos campos que tem que criar...

O codigo deve de se ajustar ao seu programa para funcionar correctamente.

 

Espero ter ajudado,

Comprimentos,

[Edson_csi 0]

Ok Dark!Deu certo.Valeu pela ajuda!