MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Problema em consulta quando executada em SQL

    Compartilhe

    M2013
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 56
    Registrado : 07/06/2013

    [Resolvido]Problema em consulta quando executada em SQL

    Mensagem  M2013 em Qua 04 Nov 2015, 16:20

    Prezados,  Tenho uma consulta que funciona normalmente quando executada pela janela BD Access.
    Eu copiei essa consulta em Sql e quando executo com "CurrentDb.Execute" ela apresenta erro em tempo de execução '13'....
    Alguém poderai ajudar?

    Não consegui anexar arquivo no site, retorna erro de nome e arquivo não é valido para o formato ZIP e "Não é possível enviar o arquivo : o espaço total de armazenamento foi ultrapassado. (Espaço restante : 0 Kb)" para o formato accdb , não adiantou.

    Consulta:

    CurrentDb.Execute "UPDATE tb_Variaveis, tbTemp SET tbTemp.Flag = [tb_Variaveis].[Descritivo] WHERE (((tbTemp.Texto) Like " * " & [tb_Variaveis].[Texto] & " * ") AND ((tbTemp.[Item financeiro]) Like 420001 Or (tbTemp.[Item financeiro])=420005 Or (tbTemp.[Item financeiro])=420003 Or (tbTemp.[Item financeiro])=430033 Or (tbTemp.[Item financeiro])=440009 Or (tbTemp.[Item financeiro])=440011));"

    onde os campos Flag (tbTemp) é igual a Descritivo(tb_Variaveis) -> texto (255)
    Texto (tbTemp) é igual a Texto (tb_Variaveis) -> texto (255)


    Obrigado

    cleverson_manaus
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 620
    Registrado : 23/09/2011

    Re: [Resolvido]Problema em consulta quando executada em SQL

    Mensagem  cleverson_manaus em Qua 04 Nov 2015, 23:22



    Tente assim, retirando ponto e vírgula e acrescentando duas aspas simples no campo Texto:

    CurrentDb.Execute "UPDATE tb_Variaveis, tbTemp SET tbTemp.Flag = [tb_Variaveis].[Descritivo] " _
    & "WHERE (((tbTemp.Texto) LIKE " * """ & [tb_Variaveis].[Texto] & """ * ") AND " _
    & "((tbTemp.[Item financeiro]) LIKE 420001 OR (tbTemp.[Item financeiro])=420005 " _
    & "OR (tbTemp.[Item financeiro])=420003 OR (tbTemp.[Item financeiro])=430033 " _
    & "OR (tbTemp.[Item financeiro])=440009 OR (tbTemp.[Item financeiro])=440011))"


    Abraços,



    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.]

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Tópico resolvido!!!!

    M2013
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 56
    Registrado : 07/06/2013

    Problema em consulta quando executada em SQL

    Mensagem  M2013 em Qui 05 Nov 2015, 10:30

    Cleverson, obrigado pela resposta.
    Alterei conforme voce postou (copiei inclusive o código) , porém o erro continua "tipos incompativeis".
    Não consegui postar aqui o banco.

    cleverson_manaus
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 620
    Registrado : 23/09/2011

    Re: [Resolvido]Problema em consulta quando executada em SQL

    Mensagem  cleverson_manaus em Qui 05 Nov 2015, 12:00

    Tente postar por aqui:

    [Você precisa estar registrado e conectado para ver este link.] › pt_BR

    Abraços,


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.]

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Tópico resolvido!!!!

    M2013
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 56
    Registrado : 07/06/2013

    Problema em consulta quando executada em SQL

    Mensagem  M2013 em Qui 05 Nov 2015, 12:14

    Cleverson, não tenho acesso ao dropbox pela rede agora.Poderia ser para seu email?
    obrigado

    M2013
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 56
    Registrado : 07/06/2013

    Problema em consulta quando executada em SQL

    Mensagem  M2013 em Sex 06 Nov 2015, 00:27

    Cleverson,

    Segue link
    [Você precisa estar registrado e conectado para ver este link.]

    M2013
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 56
    Registrado : 07/06/2013

    Re: [Resolvido]Problema em consulta quando executada em SQL

    Mensagem  M2013 em Ter 10 Nov 2015, 12:31

    Foi resolvido.

    CurrentDb.Execute "UPDATE tb_Variaveis, tbTemp SET tbTemp.Flag = [tb_Variaveis].[Descritivo]" _
    &"WHERE ((tbTemp.Texto Like '*' & [tb_Variaveis].[Texto] & '*') AND " _
    &"((tbTemp.[Item financeiro]) Like 420001 Or (tbTemp.[Item financeiro])=420005" _
    &"Or (tbTemp.[Item financeiro])=420003 Or (tbTemp.[Item financeiro])=430033" _
    &"Or (tbTemp.[Item financeiro])=440009 Or (tbTemp.[Item financeiro])=440011));"


    '*' & [tb_Variaveis].[Texto] & '*'

    em vez de ...

    " * """ & [tb_Variaveis].[Texto] & """ * ")


      Data/hora atual: Sab 03 Dez 2016, 02:24