MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Lentidão com o Dlookup Substituir por SQL ou algo assim

    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 893
    Registrado : 09/11/2012

    [Resolvido]Lentidão com o Dlookup Substituir por SQL ou algo assim Empty [Resolvido]Lentidão com o Dlookup Substituir por SQL ou algo assim

    Mensagem  =>Nois em 19/8/2019, 14:46

    Bom dia Srs!

    Preciso aprender um novo comando em Sql ou algo assim que substitua o Dlookup, tenho muitas tarefas que fazem esse tipo de consulta, mas a medida do tempo o Banco de Dados vai gerando muitos registros... tenho percebido que o tempo de resposta demora um pouco, então pensei em tentar mudar para outro comando.

    por exemplo este abaixo funciona:

    Me.txtdesc = Nz(DLookup("DESCRICAO_FP", "tbl_Cons_Receb_followup", "[DESENHO_FP] = txtdesenho"), "-")


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    baldocchi
    baldocchi
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 125
    Registrado : 03/11/2014

    [Resolvido]Lentidão com o Dlookup Substituir por SQL ou algo assim Empty Re: [Resolvido]Lentidão com o Dlookup Substituir por SQL ou algo assim

    Mensagem  baldocchi em 19/8/2019, 14:55

    oi, eu tentaria algo assim

    Dim bd As DAO.Database
    Dim rs As DAO.Recordset
    Dim str As String
    Dim variavel As String

    Set db = CurrentDb

    variavel = txtdesenho.value

    str = "SELECT * FROM tbl_Cons_Receb_followup WHERE Desenho_FP='" & variavel "'"


    Set rs = db.OpenRecordset(str)
    alozs
    alozs
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 284
    Registrado : 07/02/2018

    [Resolvido]Lentidão com o Dlookup Substituir por SQL ou algo assim Empty Re: [Resolvido]Lentidão com o Dlookup Substituir por SQL ou algo assim

    Mensagem  alozs em 19/8/2019, 15:42

    acompanhando o tópico!
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 893
    Registrado : 09/11/2012

    [Resolvido]Lentidão com o Dlookup Substituir por SQL ou algo assim Empty Re: [Resolvido]Lentidão com o Dlookup Substituir por SQL ou algo assim

    Mensagem  =>Nois em 19/8/2019, 16:49

    vou testar e comparar e ja retorno, obrigado!


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 893
    Registrado : 09/11/2012

    [Resolvido]Lentidão com o Dlookup Substituir por SQL ou algo assim Empty Re: [Resolvido]Lentidão com o Dlookup Substituir por SQL ou algo assim

    Mensagem  =>Nois em 19/8/2019, 17:01

    então como que eu pego a descrição_FP?

    conforme o de baixo


    Me.txtdesc = Nz(DLookup("DESCRICAO_FP", "tbl_Cons_Receb_followup", "[DESENHO_FP] = txtdesenho"), "-")


    Dim bd As DAO.Database
    Dim rs As DAO.Recordset
    Dim str As String
    Dim variavel As String
    Set bd = CurrentDb
    variavel = txtdesenho.value
    str = "SELECT * FROM tbl_Cons_Receb_followup WHERE Desenho_FP=" & variavel & ""
    Set rs = bd.OpenRecordset(str)

    Me.txtdesc = ?


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2531
    Registrado : 22/11/2016

    [Resolvido]Lentidão com o Dlookup Substituir por SQL ou algo assim Empty Re: [Resolvido]Lentidão com o Dlookup Substituir por SQL ou algo assim

    Mensagem  DamascenoJr. em 19/8/2019, 18:07

    Um ótimo artigo com o caminha das pedras aqui (se precisar, cole o link no google tradutor para ver em português)
    mendipdatasystems.co.uk/speed-comparison-tests-7/4594524997

    E uma dica:
    no aplicativo maestro do mestre Avelino existe um módulo chamado funções_D que seguem a dica da mensagem nº 2. Com comentários e tratamento de erros. Funções com o origem no tópico abaixo
    https://www.maximoaccess.com/t7919-funcoes-dlookupdcountdmaxdmin-em-front-end-desvinculado


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    baldocchi
    baldocchi
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 125
    Registrado : 03/11/2014

    [Resolvido]Lentidão com o Dlookup Substituir por SQL ou algo assim Empty Re: [Resolvido]Lentidão com o Dlookup Substituir por SQL ou algo assim

    Mensagem  baldocchi em 19/8/2019, 20:49

    Pelo o que entendi sobre a sua dúvida é que você deseja pesquisar alguma descrição na sua tabela.

    Então, o item Me.txtdesc é uma caixa de texto onde você insere o argumento para a pesquisa.
    O código pode ser adicionado num botão ou no evento "após atualizar" da caixa de texto.
    Esta variável "variavel" armazena o que foi digitado na caixa de texto "txtdesenho.value".

    Acho que é isso.

    _____________________________________________

    então como que eu pego a descrição_FP?

    conforme o de baixo


    Me.txtdesc = Nz(DLookup("DESCRICAO_FP", "tbl_Cons_Receb_followup", "[DESENHO_FP] = txtdesenho"), "-")


    Dim bd As DAO.Database
    Dim rs As DAO.Recordset
    Dim str As String
    Dim variavel As String
    Set bd = CurrentDb
    variavel = txtdesenho.value
    str = "SELECT * FROM tbl_Cons_Receb_followup WHERE Desenho_FP=" & variavel & ""
    Set rs = bd.OpenRecordset(str)

    Me.txtdesc = ?
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 893
    Registrado : 09/11/2012

    [Resolvido]Lentidão com o Dlookup Substituir por SQL ou algo assim Empty Re: [Resolvido]Lentidão com o Dlookup Substituir por SQL ou algo assim

    Mensagem  =>Nois em 21/8/2019, 19:06

    Gostei IvanJr. muito bom, já senti diferença em algumas coisas.

    obrigado a todos pela ajuda.


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2531
    Registrado : 22/11/2016

    [Resolvido]Lentidão com o Dlookup Substituir por SQL ou algo assim Empty Re: [Resolvido]Lentidão com o Dlookup Substituir por SQL ou algo assim

    Mensagem  DamascenoJr. em 23/8/2019, 01:08

    O fórum agradece o retorno. Sucesso.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 22/1/2021, 09:18