COMO COLOCAR UMA VARIAVEL DENTRO DE UMA FUNCAO

USUARIO.EXCLUIDOS 24/03/2005 21:15:54
#74823
Realizei a seguinte consulta

dbsEspecifico.Execute "Update conclusao Set Selecao=-1 Where inStr( conclusao.descr, 'LUMINARIA' )"

e funcionou.
No entanto quando faço a seguinte consulta aparece um erro.

Dim TEXTOS As String
TEXTOS = InputBox("Digite parte do texto a ser selecionado ! ")
If RTrim(TEXTOS) = "" Then Exit Sub
dbsEspecifico.Execute "Update conclusao Set Selecao=-1 Where inStr( conclusao.descr, TEXTOS )"

mensagem de erro

Run-Time error '3061':
Too fews parameters. Expected 1

Por que será ?
WEBMASTER 24/03/2005 22:03:24
#74829 Resposta escolhida
Veja isso,

Dim TEXTOS As String
TEXTOS = InputBox("Digite parte do texto a ser selecionado ! ")
If RTrim(TEXTOS) = "" Then Exit Sub
dbsEspecifico.Execute "Update conclusao Set Selecao=-1 Where inStr('" & conclusao.descr & "' , '" & TEXTOS & "')"

OBS.: Sempre quando você for trabalhar com texto utiliza este símbolo no início e no final ( ' )
WEBMASTER 24/03/2005 22:05:05
#74830
Correção

Dim TEXTOS As String
TEXTOS = InputBox("Digite parte do texto a ser selecionado ! ")
If RTrim(TEXTOS) = "" Then Exit Sub
dbsEspecifico.Execute "Update conclusao Set Selecao=-1 Where inStr(conclusao.descr, '" & TEXTOS & "')"

OBS.: Sempre quando você for trabalhar com texto utiliza este símbolo no início e no final ( ' )
USUARIO.EXCLUIDOS 24/03/2005 22:11:13
#74835
MUITO OBRIGADO

FELIZ PASCOA
Tópico encerrado , respostas não são mais permitidas
Voltar