MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


3 participantes

    [Resolvido]Ajuda com SQL com LIKE

    Misson Lira
    avatar
    Misson Lira
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 335
    Registrado : 01/12/2016
    • Mensagem nº1

    [Resolvido]Ajuda com SQL com LIKE Empty [Resolvido]Ajuda com SQL com LIKE

    Mensagem  Misson Lira 27/8/2019, 15:42

    Bom dia Pessoal !!


    Tenho um formulário que contem uma caixa de listagem acima da caixa tem uma TexteBox... A minha caixa de listagem recebe todos os cliente cadastrados, Lembrando que a caixa não é acoplada, uso esse comando para alimenta a caixa

    No Evento Ao Carregar FRM
    Dim strListar As String
    strListar = "SELECT IDCliente, Cliente FROM TBL_CDS_Clientes ORDER BY Cliente;"
    Me!CXL_Cliente.RowSource = strListar

    A minha texteBox serviria para fazer a pesquisa por nome do cliente, usando o método SQL like

    No evento Alterar do Objeto (TEXTBOX)
    strListar = "SELECT IDCliente, Cliente FROM TBL_CDS_Clientes WHERE Cliente Like=" " * " & Me!TXT_PesquisaCliente.Text & " * ";"

    Mais esse comando acima da erro... Alguém ai teria a solução?
    • Ir para o topo
    Avelino Sampaio
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010
    • Mensagem nº2

    [Resolvido]Ajuda com SQL com LIKE Empty Re: [Resolvido]Ajuda com SQL com LIKE

    Mensagem  Avelino Sampaio 27/8/2019, 16:44

    Olá!

    o LIKE não se utiliza do "=".  Leia este meu artigo com calma e vc mesmo irá matar a questão:

    https://www.usandoaccess.com.br/tutoriais/aprenda-filtragens-no-access.asp?id=1#inicio
    Copie e cole o endereço acima no seu navegador

    Aguardamos


    • Ir para o topo
    Misson Lira
    avatar
    Misson Lira
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 335
    Registrado : 01/12/2016
    • Mensagem nº3

    [Resolvido]Ajuda com SQL com LIKE Empty Re: [Resolvido]Ajuda com SQL com LIKE

    Mensagem  Misson Lira 28/8/2019, 12:56

    Bom dia !!


    Primeiro lugar muito legal o seu artigo, muito bom!! já li e compreendir algumas coisa, e estava fazendo alguns teste comecei ontem mesmo, só que o resultado não chegou no que preciso.


    Private Sub TXT_PesquisaCliente_Change()
    Dim strPesquisaNome As
    strPesquisaNome = "SELECT IDCliente, Cliente FROM TBL_CDS_Clientes WHERE Cliente Like '*' & [Formulários]![FRM_CDS_Clientes]![TXT_PesquisaCliente].[Text] & ' * ' ;"
    Me!CXL_Cliente.RowSource = strPesquisaNome

    End Sub

    Conseguir chegar ai estudando o seu artigo, ele não da nenhum tipo de erro, simplemeste limpar a minha lista na caixa de listagem. Poderia me ajuda nessa?
    • Ir para o topo
    Avelino Sampaio
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010
    • Mensagem nº4

    [Resolvido]Ajuda com SQL com LIKE Empty Re: [Resolvido]Ajuda com SQL com LIKE

    Mensagem  Avelino Sampaio 28/8/2019, 13:41

    Olá!

    experimente

    Private Sub TXT_PesquisaCliente_Change()
       Dim strPesquisaNome As 
       strPesquisaNome = "SELECT IDCliente, Cliente FROM TBL_CDS_Clientes WHERE Cliente Like '*" & me![TXT_PesquisaCliente].Text & "*';"
       Me!CXL_Cliente.RowSource = strPesquisaNome
    End Sub

    Aguardamos


    • Ir para o topo
    Misson Lira
    avatar
    Misson Lira
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 335
    Registrado : 01/12/2016
    • Mensagem nº5

    [Resolvido]Ajuda com SQL com LIKE Empty Re: [Resolvido]Ajuda com SQL com LIKE

    Mensagem  Misson Lira 28/8/2019, 14:22

    Quem sabe é outra coisa, ficou perfeito.

    Vendo aqui o código, fiquei com uma dúvida nas ", elas tem a função de abrir e fechar uma condição? só uma dúvida para intende o código

    olhei no seu artigo, mais não encontrei uma explicação para elas. Não gosto só cola e copiar, gosto de entende como funcionar pq que assim posso e mais fundo no código e elabora outras coisa e tal.
    Mais o código ficou perfeito, era o que estava precisando mesmo. MUITO OBROGADO!
    • Ir para o topo
    thiagomcosta
    thiagomcosta
    thiagomcosta
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 377
    Registrado : 23/01/2017
    • Mensagem nº6

    [Resolvido]Ajuda com SQL com LIKE Empty Re: [Resolvido]Ajuda com SQL com LIKE

    Mensagem  thiagomcosta 28/8/2019, 17:53

    As aspas duplas " tem função de delimitar a string. Elas indicam onde começam e onde termina a string.
    O E comercial & indica concatenação de strings.

    Na linha
    strPesquisaNome = "SELECT IDCliente, Cliente FROM TBL_CDS_Clientes WHERE Cliente Like '*" & me![TXT_PesquisaCliente].Text & "*';"

    Temos a primeira string:
    Código:
    "SELECT IDCliente, Cliente FROM TBL_CDS_Clientes WHERE Cliente Like '*"
    Que é concatenada com a segunda string (que é o valor de um campo)
    Código:
    me![TXT_PesquisaCliente].Text
    E temos a terceira string
    Código:
    "*';"


    Se o valor de me![TXT_PesquisaCliente].Text for, por exemplo, João, então a variável strPesquisaNome iria ficar com o valor.

    Código:
    SELECT IDCliente, Cliente FROM TBL_CDS_Clientes WHERE Cliente Like '*João*';
    • Ir para o topo
    Misson Lira
    avatar
    Misson Lira
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 335
    Registrado : 01/12/2016
    • Mensagem nº7

    [Resolvido]Ajuda com SQL com LIKE Empty Re: [Resolvido]Ajuda com SQL com LIKE

    Mensagem  Misson Lira 28/8/2019, 19:39

    Ficou claro agora


    Muito obrigado pela ajuda do senhores na minha caminhada.
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº8

    [Resolvido]Ajuda com SQL com LIKE Empty Re: [Resolvido]Ajuda com SQL com LIKE

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 8/11/2024, 13:01