CODIFICACAO PARA ESTA PESQUISA

USUARIO.EXCLUIDOS 11/04/2007 16:45:00
#211320
Boa tarde, tenho uma Tabela com varios campos ex: do 1 ao 10. Minha duvida é o seguinte: gostaria de saber como faço uma pesquisa tipo por palavra chave, por exemplo: eu digito "azul" e botão pesquisar, dai gostaria que mostrasse na minha TXT em quais campos contem a palavra azul. exemplo: tem no campo 1 e 6. Bom, gostaria de saber se alguem pode me ajudar, com códigos, caminhos e etc....Obrigado pela atenção.
VBAPRENDE 11/04/2007 16:50:26
#211326
'é so criar os txt com array

For i = 1 To 10
If txt(i).Text = "azul" Then CampoAzul = i & ","
Next i
'Campo i tem os campos index
'dos campos que contem a palavra azul



Espero ter ajudade
USUARIO.EXCLUIDOS 11/04/2007 17:02:13
#211335
Obrigado VBAPRENDE, mas só algumas duvidas tem que fazer aqueles tipos "Recordsets" tipo pra acessar o banco de Dados...outra coisa como faço estas txts com array????

Obrigado...
FABIO.LOUREIRO 11/04/2007 17:11:02
#211340
crie um text com as seguintes informações
azul
verde
amarelho
vermelho
marrom
azul
azul
vermelho

coloque na raiz c:\ com o nome de teste.txt
ficará assim c:    este.txt

depois copie este código

Private Sub Form_Load()

Dim Linha As String
Dim Contador As Long
Contador = 1

Open "C:    este.txt" For Input As #1
    Do While Not EOF(1)
        Line Input #1, Linha
        If InStr(Linha, "azul") Then
                MsgBox "Encontrado na linha: " & CStr(Contador)
        End If
        Contador = Contador + 1
    Loop
Close #1

End Sub
VBAPRENDE 11/04/2007 17:31:03
#211346
Fabio acho que ele fala de txt é o textbox e não o arquivo texto.

Se caso for o textbox voce deve colovar o nome dele assim "txt" e na propriedade dele vai em index e colca 1 e faz isso para todos os outros txt so altera o numero do index. Fica assim txt(1) txt(2) txt(3)...

Se caso não for isso poste de novo
USUARIO.EXCLUIDOS 11/04/2007 17:38:05
#211348
Bom eu agradeço a atencão de todos, acredito que estou conseguindo um caminho para a minha duvida, mas é o seguinte em cada campo esta gravado tipo um texto, com varias palavras, então por isso que dei exemplo da palavra "AZUL" então por isso perguntei pesquisa por palavra chave e que me mostrasse em quais campos estão alocados tais palavras que irei digitar, quero saber a opinião de vcs se estas dicas que vcs me deram resolvem meu problema, me desculpe mas sou iniciante e só falta isso pra acabar com meu sistema. Obrigado...
FABIO.LOUREIRO 11/04/2007 17:38:17
#211349
é verdade amigo VBAPRENDE, desculpa ai..
VBAPRENDE 11/04/2007 17:55:46
#211351
me adiciona ai ramister_roo@hotmail.com

'é so criar os txt com array como já expliquei

For i = 1 To 10
If txt(i).Text = "palavra_chave" Then 'Executa o que você quiser
Next i



Espero ter ajudade
VBAPRENDE 12/04/2007 09:01:34
#211421
Tive um tempinho e fiz esse exemmplo.
USUARIO.EXCLUIDOS 12/04/2007 09:18:43
#211430
VBAPRENDE mmuito obrigado pela força, irei colocar em prática suas dicas, Abraços...
Tópico encerrado , respostas não são mais permitidas
Voltar