MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Ajuda com o RecordSet

    Compartilhe

    Robervaldo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 7
    Registrado : 29/06/2015

    Ajuda com o RecordSet

    Mensagem  Robervaldo em Sex 05 Maio 2017, 09:49

    Bom dia, preciso pegar alguns dados do record set a partir de uma consulta, e dando uma pesquisada pelo fórum eu achei o seguinte código:

    Código:

    Dim DB As DAO.Database
    Dim rs As DAO.Recordset
    Dim qdf As DAO.QueryDef
    Dim prm As DAO.

    Set DB = CurrentDb
    Set qdf = DB.QueryDefs("byRGI")
    'Preenche os parâmetros da consulta
    For Each prm In qdf.Parameters
        prm.value = Eval(prm.Name)
    Next prm
        
    Set rs = qdf.OpenRecordset

    Blz, ele funciona perfeitamente, porém as vezes a consulta volta mais de um dado, e mesmo assim ele só diz q tem um quando eu uso o rs.RecordCount, alguem sabe o q é?
    avatar
    CassioFabre
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 524
    Registrado : 18/01/2013

    Re: Ajuda com o RecordSet

    Mensagem  CassioFabre em Sex 05 Maio 2017, 14:13

    Boa tarde

    No tracho Dim prm As DAO. qual o restante da empressao?

    Abraço.

    FabianoJesus
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    Registrado : 22/03/2012

    Re: Ajuda com o RecordSet

    Mensagem  FabianoJesus em Sab 06 Maio 2017, 13:59

    Se o que você quer, é rotornar todos os dados de sua consulta, você precisa percorrer o recordset, no exemplo, você está percorrendo apenas os parâmetros de suas consulta.

    Tente algo mais ou menos assim, para ver se ajuda:
    Código:
       ' Declara a variável do tipo recordset
       Dim rs As Recordset
       ' Seta a variável usando o método OpenRecordset, que retorna um objeto do tipo recordset
       Set rs = CurrentDb.OpenRecordset("NomeDaSuaConsulta")
       ' Iterar/percorrer o recorset enquanto EOF (EndOfField) for falso
       Do While Not rs.EOF
           ' Imprimir o valor do campo desejado
           Debug.Print rs.fields("NomeDoSeuCampo").value
           rs.MoveNext
       Loop
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6496
    Registrado : 05/11/2009

    Re: Ajuda com o RecordSet

    Mensagem  Alexandre Neves em Dom 11 Jun 2017, 17:00

    Boa noite,
    Como anda a dúvida?


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

      Data/hora atual: Sab 18 Nov 2017, 10:53