PESQUISA EM RECORDSET
gostaria de saber como fazer uma pesquina num recordset no qual o conteudo da pesquisa possa ter aspas simples...
exemplo:
rsProdutos.Open "SELECT * FROM Produtos where produto = '" & txtProduto & "'", conexao, adOpenStatic, adLockOptimistic
produto="ANEL O'RING 13.60 X 3.00 VITON PARKER6008"
brigada....
exemplo:
rsProdutos.Open "SELECT * FROM Produtos where produto = '" & txtProduto & "'", conexao, adOpenStatic, adLockOptimistic
produto="ANEL O'RING 13.60 X 3.00 VITON PARKER6008"
brigada....
KarineTakayama
Boa Tarde.
Lembre-se: leia as Regras do FÓ“RUM! Aqui não é Chat, portanto, o outro post com 7 minutos após estes inicial que você abriu foi deletado, por favor, só "puxe" o Tópico se o mesmo não for respondido satisfatoriamente APÓ“S sair da 1Âê página.
Boa Tarde.
Lembre-se: leia as Regras do FÓ“RUM! Aqui não é Chat, portanto, o outro post com 7 minutos após estes inicial que você abriu foi deletado, por favor, só "puxe" o Tópico se o mesmo não for respondido satisfatoriamente APÓ“S sair da 1Âê página.
Bom c pode usar o Find ou o Filter
rs.Filter = "Produto='" & txtProduto & "'"
rs.Find "Produto='" & txtProduto & "'"
o find localiza a linha
o Filter faz a filtragem para limpar o filtro e todos os registro de volta ao recordset c tem q fazer isso
rs.filter=0
ESPERO TER AJUDADO
rs.Filter = "Produto='" & txtProduto & "'"
rs.Find "Produto='" & txtProduto & "'"
o find localiza a linha
o Filter faz a filtragem para limpar o filtro e todos os registro de volta ao recordset c tem q fazer isso
rs.filter=0
ESPERO TER AJUDADO
complementando o Fábio...
find apenas para 1 argumento, filter para mais de um argumento (segundo nosso amigo WILLIAM)
find apenas para 1 argumento, filter para mais de um argumento (segundo nosso amigo WILLIAM)
eu naum quero usar find nem filter...
eu simplesmente quero selecionar um registro e utilizar um campo deste registro
eu só gostaria de saber como eu faço esse select sendo q o conteúdo de igualdade contem aspas simples?
eu simplesmente quero selecionar um registro e utilizar um campo deste registro
eu só gostaria de saber como eu faço esse select sendo q o conteúdo de igualdade contem aspas simples?
todos os que tem aspas simples?
naum são todos os registros q tem aspas simples, somente alguns
Voce tem um produto pesquisado assim:
produto="ANEL O'RING 13.60 X 3.00 VITON PARKER6008"
Voce pode colocar uma funcao antes da pesquisa que procure por:
produto="ANEL O" + " ' " + "RING 13.60 X 3.00 VITON PARKER6008"
Nesta funcao voce entra com o produto e sai com uma string parecida mas que leva em consideracao as aspas simples que existirem:
Se nao for isso é parecido ...In té + Saionara Takayama [S97]
produto="ANEL O'RING 13.60 X 3.00 VITON PARKER6008"
Voce pode colocar uma funcao antes da pesquisa que procure por:
produto="ANEL O" + " ' " + "RING 13.60 X 3.00 VITON PARKER6008"
Nesta funcao voce entra com o produto e sai com uma string parecida mas que leva em consideracao as aspas simples que existirem:
Se nao for isso é parecido ...In té + Saionara Takayama [S97]
no vb as "(aspas) simbolizam o fim o inicio das strings
mas assim como em qualquer linguagem exite um meio de se "quebrar" esta regra
no caso do VB, para simbolizar a string
>> sempre ha "uma" solução
pode ser representada como:
>> "sempre ha ""uma"" solução"
veja que dupliquei as aspas, duplica-las irá informar ao compilador quer aquele não eh o delimitador, mas sim um caracter de aspas.
Caso vc queira uma alternativa
>> "sempre ha " & chr(34) & " solução"
veja que eu usei chr(34) que é o caracter da aspas
mas assim como em qualquer linguagem exite um meio de se "quebrar" esta regra
no caso do VB, para simbolizar a string
>> sempre ha "uma" solução
pode ser representada como:
>> "sempre ha ""uma"" solução"
veja que dupliquei as aspas, duplica-las irá informar ao compilador quer aquele não eh o delimitador, mas sim um caracter de aspas.
Caso vc queira uma alternativa
>> "sempre ha " & chr(34) & " solução"
veja que eu usei chr(34) que é o caracter da aspas
Bom , Desculpa a reposta anterior
rsProdutos.Open "SELECT * FROM Produtos where produto = '" & replace(txtProduto,"'","''") & "'", conexao, adOpenStatic, adLockOptimistic
espero ter ajudado
rsProdutos.Open "SELECT * FROM Produtos where produto = '" & replace(txtProduto,"'","''") & "'", conexao, adOpenStatic, adLockOptimistic
espero ter ajudado
Muito Obrigada FEBIO ALEXANDRE, seu ajuda me auxilio bastante e resolveu meu problema
valeu msm
valeu msm
Tópico encerrado , respostas não são mais permitidas