|
|
Postada em 09/04/2005 17:26 hs
Uso Ado, access 2000 fiz uma consulta assim: orsFun.Open "select cad_fun.rf from cad_fun where rs = '" & rs & "' ", conn, adOpenDynamic, adLockOptimistic
If Not orsCadFun.EOF Then
InStr(orsCadFun!RF, "QUIMICO") > 0 Then 'Se encontrar a palavra "QUIMICO" na linha do texto gostaria de mudar para "encontrei" exemplo: DE: QUIMICO, BIOLOGICO, FISICO PARA : ENCONTREI,BIOLOGICO, FISICO orsFun.close ELSE Agradeço qualquer ajuda. grato Jorge |
|
|
|
|
|
|
|
Postada em 09/04/2005 21:21 hs
If InStr(orsCadFun("RF"), "Quimico") > 0 Then orsCadFun("RF") = Replace(orsCadFun("RF"), "Quimico", "Encontrei") orsCadFun.Update 'pra gravar a alteração End If Atenção: Se tiver mais de uma ocorrencia de da palavra na string, vai substituir todas... tb se nao for uma palavra inteira, por exemplo, vc tem na string "Quimicomaniaco", vai ficar "Encontreimaniaco"... Espero ter ajudado... Abraços...
Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net
e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
 "O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)
|
|
|
|
|
|
Postada em 10/04/2005 07:15 hs
Elieser, era exatamento o que eu precisava Obrigado.
|
|
|
|
|
