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

    Duvida com OpenRecordset.

    avatar
    aeps
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 05/10/2016

    Duvida com OpenRecordset. Empty Duvida com OpenRecordset.

    Mensagem  aeps 27/4/2022, 15:08

    Saudações.

    Tenho uma duvida com OpenRecordset.

    Tenho uma rotina que após fazer a conexão com a base de dados.

    Tem uma rotina que determina a ordem do dados.

    Call CarregarDados("nmArea")

    Em outra ordem eu chamo:

    Call CarregarDados("idArea")


    Duvida:
    Posso chamar a rotina toda vez que eu queira mudar a ordem?
    Tenho que fechar o OpenRecordset e abrir com outra Ordem (ORDER )?
    Correto este procedimento?



    Private Sub CarregarDados(Ordem)

    Dim sSQL As String

    sSQL = "SELECT idArea, sgArea, nmArea FROM tabArea ORDER BY " & Ordem

    Set rstArea = dbsBD.OpenRecordset(sSQL, dbOpenDynaset)

    End Sub

    Obrigado.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3364
    Registrado : 13/12/2016

    Duvida com OpenRecordset. Empty Re: Duvida com OpenRecordset.

    Mensagem  Alexandre Fim 27/4/2022, 15:17

    Toninho bom dia,

    Sim. Correto
    Toda vez que utilizar recordset, após seu uso, tem que fechar e limpar da memória. Desta forma:

    Private Sub CarregarDados(Ordem)

    Dim sSQL As String

    sSQL = "SELECT idArea, sgArea, nmArea FROM tabArea ORDER BY " & Ordem

    Set rstArea = dbsBD.OpenRecordset(sSQL, dbOpenDynaset)
    '-- rotina para carregar dados..
    ' ...
    ' ...


    rstArea.Close
    Set rstArea = Nothinhg


    End Sub


    É isso.
    Espero ter ajudado.

    Att,

    FIM


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    Duvida com OpenRecordset. Setinf11
    Sistemas e Tecnologia Ltda

    aeps gosta desta mensagem


      Data/hora atual: 18/7/2024, 23:52