Como localizar registros ?

[digital1984 0]

OLÁ PESSOAL,

 

MSFLEXGRID

 

Tipo assim, como eu faço para buscar uma palavra chave em 2 ou mais campos da tabela ao mesmo tempo

 

Abaixo segue o código que busca somente em um campo da tabela, por favor me ajudem a implementa-lo para poder buscar ao mesmo tempo em outros campos da tabela.

 

'============================================='-------------TEXTO MODELO--------------------'=============================================Private Sub Text2_Change()If Text2.Text = "" Then  MSFlexGrid1.Enabled = False  vCategoria = ""  vMarca = ""  vModelo = ""  vMotor = ""  vAno = ""  vId = ""Else  MSFlexGrid1.Enabled = TrueEnd IfIf Text1.Text = "" And Text2.Text = "" And Text3.Text = "" Then  MSFlexGrid1.Rows = 2  MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 0) = ""  MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 1) = ""  MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 2) = ""  MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 3) = ""  MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 4) = ""  MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 5) = ""  MSFlexGrid1.Rows = MSFlexGrid1.Rows - 1  Me.Caption = "Consulta de Aplicações"  Exit SubEnd IfMSFlexGrid1.Rows = 2ConnectRS.Open "SELECT * FROM Aplic WHERE Modelo Like '%" & Text2.Text & "%'", CON, adOpenStatic, adLockOptimisticDo While Not RS.EOF  MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 0) = RS.Fields(0).Value  MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 1) = RS.Fields(1).Value  MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 2) = RS.Fields(2).Value  MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 3) = RS.Fields(3).Value  MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 4) = RS.Fields(4).Value  MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 5) = RS.Fields(5).Value  MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1  RS.MoveNextLoopMSFlexGrid1.Rows = MSFlexGrid1.Rows - 1regContador = CStr(RS.RecordCount)If MSFlexGrid1.Rows = 2 Then  Me.Caption = "Consulta de Aplicações - " & regContador & " Registro(s) Encontrado(s)"Else  Me.Caption = "Consulta de Aplicações - " & regContador & " Registro(s) Encontrado(s)"End IfDisconnectEnd Sub

Fico no Aguardo,

 

Acho que é uma dúvida de muitas pessoas

[digital1984 0]

???Alguém pode me ajudar solucionar minha dúvida acima?

[Luizgrs 0]

Nessa parte:

RS.Open "SELECT * FROM Aplic WHERE Modelo Like '%" & Text2.Text & "%'", CON, adOpenStatic, adLockOptimistic

Muda a clausula where:

RS.Open "SELECT * FROM Aplic WHERE Modelo Like '%" & Text2.Text & "%' and outrocampo like '%" & outrovalorbuscado & "%'", CON, adOpenStatic, adLockOptimistic