CONSULTA SQL AS STRING
Tenho uma busca no meu grid, é seguinte ao consultar tipo
O nome do produto Ex: Alicate
Quando eu digito a letra A ele pega todos os produtos corresponde à letra A
Tipo:
Alicate
Arame Fino
Arame Grosso
Arame Médio
No Grid tenho os itens
Tudo bem só que no meu lblContar.Caption = RS.RecordCount esta assim,
Número de Itens Selecionado(s): 0
Se eu digitar Alicate meu = Número de Itens Selecionado(s) : 1
Quando for digitar Arame = Número de Itens Selecionado(s) : 3
O pobre ma é seguinte tenho que digitar a palavra inteira pra ele considerar que tem
Não apenas por ARAME = 3
Uso o Access
Private Sub Consulta(sql1 As String)
Set RS = New Recordset
RS.CursorLocation = adUseClient
RS.Open [Ô]Select * From CadProduto Where Descricao=[ô][Ô] & txtPesquisa1.Text & [Ô][ô][Ô], CnSql
On Error Resume Next
cmdImprimir.Enabled = True
lblContar.Caption = RS.RecordCount
End Sub
O txtPesquisa1.Text = ao item cadastrado nos produtos.
Gratos amigos.
O nome do produto Ex: Alicate
Quando eu digito a letra A ele pega todos os produtos corresponde à letra A
Tipo:
Alicate
Arame Fino
Arame Grosso
Arame Médio
No Grid tenho os itens
Tudo bem só que no meu lblContar.Caption = RS.RecordCount esta assim,
Número de Itens Selecionado(s): 0
Se eu digitar Alicate meu = Número de Itens Selecionado(s) : 1
Quando for digitar Arame = Número de Itens Selecionado(s) : 3
O pobre ma é seguinte tenho que digitar a palavra inteira pra ele considerar que tem
Não apenas por ARAME = 3
Uso o Access
Private Sub Consulta(sql1 As String)
Set RS = New Recordset
RS.CursorLocation = adUseClient
RS.Open [Ô]Select * From CadProduto Where Descricao=[ô][Ô] & txtPesquisa1.Text & [Ô][ô][Ô], CnSql
On Error Resume Next
cmdImprimir.Enabled = True
lblContar.Caption = RS.RecordCount
End Sub
O txtPesquisa1.Text = ao item cadastrado nos produtos.
Gratos amigos.
Citação:O pobre ma é seguinte tenho que digitar a palavra inteira pra ele considerar que tem
Não apenas por ARAME = 3
[txt-size=2]Hã?[/txt-size]
Poderia explicar melhor o que deseja fazer?
Tenho um cadastro de produtos
Tipo quando for fazer a consulta de produtos, eu digito nos textos nome do produto,
Ele começa a listar conforme digito a primeira letra no meu grid vai aparecendo por ordem alfabética e eliminando conforme completo o texto.
Eu queria que ele somasse conforme vou descartado o item tudo que for com
AL, ele conta 20 item encontrados se digitar ALICATE só vai ter um
Na reposta seria = 1
Não sei de deu pra entender
Grato.
Tipo quando for fazer a consulta de produtos, eu digito nos textos nome do produto,
Ele começa a listar conforme digito a primeira letra no meu grid vai aparecendo por ordem alfabética e eliminando conforme completo o texto.
Eu queria que ele somasse conforme vou descartado o item tudo que for com
AL, ele conta 20 item encontrados se digitar ALICATE só vai ter um
Na reposta seria = 1
Não sei de deu pra entender
Grato.
Muda o SQL para:
RS.Open [Ô]Select * From CadProduto Where Descricao LIKE [ô][Ô] & txtPesquisa1.Text & [Ô]*[ô][Ô], CnSql
RS.Open [Ô]Select * From CadProduto Where Descricao LIKE [ô]%[Ô] & replace(trim(txtPesquisa1.Text),[Ô][ô][Ô],[Ô][ô][ô][Ô]) & [Ô]%[ô][Ô], CnSql
Não esqueça dos % para a instrução like.
PARREIRA JA FALOU é ISSO AI, SO NAO SEQUEI A NECESSIDADE DO REPLACE!
Nao bate a conta
tenhoa antes esse comando ??
Private Sub cmdConsulta_Click()
Consulta ([Ô]select * from CadProduto where shipcountry=[ô][Ô] & Trim(txtPesquisa1) & [Ô][ô][Ô])
End Sub
tenhoa antes esse comando ??
Private Sub cmdConsulta_Click()
Consulta ([Ô]select * from CadProduto where shipcountry=[ô][Ô] & Trim(txtPesquisa1) & [Ô][ô][Ô])
End Sub
Private Sub Consulta()
Set RS = New Recordset
RS.CursorLocation = adUseClient
RS.Open [Ô]Select * From CadProduto Where Descricao LIKE [ô]%[Ô] & txtPesquisa1.Text & [Ô]%[ô][Ô], CnSql
On Error Resume Next
lblContar.Caption = RS.RecordCount
End Sub
O mais próximo que deu certo.
Tópico encerrado , respostas não são mais permitidas