COMO PESQUISAR UMA PALAVRA NUM CAMPO MEMO?
Gostaria de pesquisar uma palavra (dada pelo usuário) dentro de um campo memo. Do tipo pesquisa que a gente faz com o google ou yahoo.
Alguém ai tem costume de fazer isso??
Muito Obrigado,
Julio Borges
Rio de Janeiro
Alguém ai tem costume de fazer isso??
Muito Obrigado,
Julio Borges
Rio de Janeiro
tu pode fazer a pesquisa no banco de dados nao seria isso
e ai trazer o resultado
e ai trazer o resultado
Caro Amigo Weber,
O Seek e o Find eu já conheço e uso mas, eu penso que são ferramentas um pouco acanhadas.
Eu estava pensando em algo mais dinâmico. Mais rápido. Algo semelhante ao que é usado nos motores de busca (search engines) do google ou do yahoo.
Muito Obrigado,
Julio Borges
Rio de Janeiro
O Seek e o Find eu já conheço e uso mas, eu penso que são ferramentas um pouco acanhadas.
Eu estava pensando em algo mais dinâmico. Mais rápido. Algo semelhante ao que é usado nos motores de busca (search engines) do google ou do yahoo.
Muito Obrigado,
Julio Borges
Rio de Janeiro
Exemplo:
dim Texto as string, sSql as string
Texto = InputBox("Entre com a palavra:")
sSql = "SELECT RESULTADO FROM TABELA WHERE PALAVRA LIKE " & Texto & "%"
dim Texto as string, sSql as string
Texto = InputBox("Entre com a palavra:")
sSql = "SELECT RESULTADO FROM TABELA WHERE PALAVRA LIKE " & Texto & "%"
ÆFrau,
Muito Obrigado pela ajuda mas o Like eu já conheço também. Mas, ainda não é bem isso não.
Um Abraço,
Julio Borges
Rio de Janeiro
Muito Obrigado pela ajuda mas o Like eu já conheço também. Mas, ainda não é bem isso não.
Um Abraço,
Julio Borges
Rio de Janeiro
Se for uma frase(ex.:"BUSCAR ESTA FRASE")
Você pode fazer assim
Dim frase as String
Dim Criterio as String
Dim SQL AS String
Frase = "BUSCAR ESTA FRASE"
Criterio = Chr(39) & "%" & Replace(Frase, " ", "%") & "%" & Chr(39)
SQL = "SELECT * FROM <tabela> WHERE <Campo> LIKE " & Criterio
'
'
'
Você pode fazer assim
Dim frase as String
Dim Criterio as String
Dim SQL AS String
Frase = "BUSCAR ESTA FRASE"
Criterio = Chr(39) & "%" & Replace(Frase, " ", "%") & "%" & Chr(39)
SQL = "SELECT * FROM <tabela> WHERE <Campo> LIKE " & Criterio
'
'
'
Tópico encerrado , respostas não são mais permitidas