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


2 participantes

    [Resolvido]select não lista todos os dados[RESOLVIDO]

    adriano_byte
    adriano_byte
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 115
    Registrado : 12/12/2013

    [Resolvido]select não lista todos os dados[RESOLVIDO] Empty [Resolvido]select não lista todos os dados[RESOLVIDO]

    Mensagem  adriano_byte 29/3/2014, 15:18

    Me deparei com o código do select em banco de dados no access e ele não liista dotos os dados via codigo.

    Se o mesmo codigo for posto na query no editor sql no access ele lista todos os dados referentes aquele usuario normalmente.

    exemplo:

    select * from tabela where nome= nome;

    Isso lista todos os dados deste usua´rio normalmente.

    Em codigo:

    dim rs as recordset
    select * from tabela where valor= valor;

    txtvalor=rs!valor
    txtnome2=rs!valor
    txtnome3=rs!valor

    Veja que eu repito a coluna do banco nas caixas de texto, mas ele reconhece apenas txtvalor, não lista outros valores nas outras caixas ele repeti o valor para todas as caixas de texto

    A query via codigo lista apenas o primeiro dado, não lista se tiver mais de um, por ser uma query em resultset ele deveria listar todos os dados sem exceção, como devo proceder via codigo?


    Como podem ver não tem erro algum, mas via codigo não entendi e nem lista tudo so diretmante o editor sql.

    Help amigo!


    Última edição por adriano_byte em 22/4/2014, 21:07, editado 1 vez(es)
    Cláudio Más
    Cláudio Más
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1314
    Registrado : 21/01/2012

    [Resolvido]select não lista todos os dados[RESOLVIDO] Empty Re: [Resolvido]select não lista todos os dados[RESOLVIDO]

    Mensagem  Cláudio Más 30/3/2014, 15:10

    Está meio confuso, facilita se puder enviar uma cópia do bd.
    avatar
    Convidado
    Convidado


    [Resolvido]select não lista todos os dados[RESOLVIDO] Empty Re: [Resolvido]select não lista todos os dados[RESOLVIDO]

    Mensagem  Convidado 30/3/2014, 18:44

    Cláudio, acredito que o colega está pretendendo ao digitar um nome em uma txtBox traga informações de uma tabela para o formulário, procede Adriano? Se sim, tenta lá:

    Dim RS As DAO.Recordset

    Set RS = CurrentDb.OpenRecordset("SELECT * FROM NomeDaTabela WHERE CampoFiltroTabela='" & Me.TxtBox & "'")
    If Not RS.EOF Then
       Campo1DoFornulario = RS!Campo1DaTabela
       Campo2DoFornulario = RS! Campo2DaTabela
       Campo2DoFornulario = RS! Campo3DaTabela
    End If
    RS.Close
    Set RS = Nothing
    adriano_byte
    adriano_byte
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 115
    Registrado : 12/12/2013

    [Resolvido]select não lista todos os dados[RESOLVIDO] Empty Beto

    Mensagem  adriano_byte 31/3/2014, 02:55

    Isso mesmo. Quero trazer informações do banco para o formulário. Este codigo que vc passou é quase isso, veja oq mudaria.

    Dim RS As DAO.Recordset

    Código:
    Set RS = CurrentDb.OpenRecordset("SELECT * FROM NomeDaTabela WHERE CampoFiltroTabela='" & Me.TxtBox & "'")
    If Not RS.EOF Then
      Campo1DoFornulario = RS!Campo1DaTabela
      Campo2DoFornulario = RS! Campo1DaTabela
      Campo2DoFornulario = RS! Campo1DaTabela
    End If
    RS.Close
    Set RS = Nothing

    Veja que o campo da tabela é igual para todos os campos do formulário, isso pq o meu cliente tem mais de uma informação de um mesmo campo.

    Só que infelizmente só retorna o primeiro dado para todos os campos.

    O que se pode fazer?
    avatar
    Convidado
    Convidado


    [Resolvido]select não lista todos os dados[RESOLVIDO] Empty Re: [Resolvido]select não lista todos os dados[RESOLVIDO]

    Mensagem  Convidado 31/3/2014, 03:02

    anexa os objetos envolvidos no pedido de ajuda, fica mais fácil saber como estais fazendo, pois o código que passei retorna 3 campos de 1 tabela para o formulário.
    Cláudio Más
    Cláudio Más
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1314
    Registrado : 21/01/2012

    [Resolvido]select não lista todos os dados[RESOLVIDO] Empty Re: [Resolvido]select não lista todos os dados[RESOLVIDO]

    Mensagem  Cláudio Más 31/3/2014, 03:17

    Não seria isso?
    Código:
    Dim RS As DAO.Recordset
    Set RS = CurrentDb.OpenRecordset("SELECT * FROM NomeDaTabela WHERE CampoFiltroTabela='" & Me.TxtBox & "'")
    If Not RS.EOF Then
       Campo1DoFormulario = RS!Campo1DaTabela
       RS.MoveNext
    End If
    If Not RS.EOF Then
       Campo2DoFormulario = RS!Campo1DaTabela
       RS.MoveNext
    End If
    If Not RS.EOF Then
       Campo3DoFormulario = RS!Campo1DaTabela
    End If
    RS.Close
    Set RS = Nothing
    avatar
    Convidado
    Convidado


    [Resolvido]select não lista todos os dados[RESOLVIDO] Empty Re: [Resolvido]select não lista todos os dados[RESOLVIDO]

    Mensagem  Convidado 31/3/2014, 04:23

    posta o código completo, pois no teu último post colocastes do mesmo jeito que eu coloquei e é preciso mudares os nomes dos campos para os campos reais do teu projeto.
    adriano_byte
    adriano_byte
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 115
    Registrado : 12/12/2013

    [Resolvido]select não lista todos os dados[RESOLVIDO] Empty Claudio

    Mensagem  adriano_byte 31/3/2014, 17:35

    Perfeito Cláudio, deu certinho.

    Antes de finalizar o tópico embora esteja resolvido, eu gostaria de entender o conceito de

    EOF e BOF.

    Obrigado a a vocês dois.

    Beto e Cláudio.
    avatar
    Convidado
    Convidado


    [Resolvido]select não lista todos os dados[RESOLVIDO] Empty Re: [Resolvido]select não lista todos os dados[RESOLVIDO]

    Mensagem  Convidado 3/5/2014, 00:16

    O Fórum agradece o Retorno.

    Não se esqueça de clicar no botão de resolvido!
    Desta vez eu coloco.


    Moderação
    Cláudio Más
    Cláudio Más
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1314
    Registrado : 21/01/2012

    [Resolvido]select não lista todos os dados[RESOLVIDO] Empty Re: [Resolvido]select não lista todos os dados[RESOLVIDO]

    Mensagem  Cláudio Más 3/5/2014, 22:14

    EOF = End Of File (fim do arquivo): método que retorna um valor booleano verdadeiro quando o ponteiro está na última posição de um recordset.

    BOF = Begin Of File.
    avatar
    Convidado
    Convidado


    [Resolvido]select não lista todos os dados[RESOLVIDO] Empty Re: [Resolvido]select não lista todos os dados[RESOLVIDO]

    Mensagem  Convidado 3/5/2014, 22:37

    Não havia lido completamente a questão do colega.

    Obrigado pela atenção Cláudio.
    adriano_byte
    adriano_byte
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 115
    Registrado : 12/12/2013

    [Resolvido]select não lista todos os dados[RESOLVIDO] Empty Cláudio

    Mensagem  adriano_byte 4/5/2014, 18:24

    Obrigado pela atenção.

    Foi muito útil Cláudio.

    Tópico resolvido. E conforme as regras clicado no botão verde.
    avatar
    Convidado
    Convidado


    [Resolvido]select não lista todos os dados[RESOLVIDO] Empty Re: [Resolvido]select não lista todos os dados[RESOLVIDO]

    Mensagem  Convidado 4/5/2014, 18:30

    O Fórum agradece o Retorno.

    Antes porém uma dica.. O botão verde deverá ser clicado na mensagem que o auxiliou com a sua dúvida.

    Conteúdo patrocinado


    [Resolvido]select não lista todos os dados[RESOLVIDO] Empty Re: [Resolvido]select não lista todos os dados[RESOLVIDO]

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/10/2024, 20:28