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

3 participantes

    [Resolvido]Duvida em metodo de conexão recordset

    avatar
    egnaldo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 68
    Registrado : 11/03/2012

    [Resolvido]Duvida em metodo de conexão recordset Empty [Resolvido]Duvida em metodo de conexão recordset

    Mensagem  egnaldo 28/2/2022, 20:13

    Boa tarde
    quando no código abaixo já indico o tipo de cursor ou bloqueio :

    Dim rs4 As New ADODB.Recordset
    Set rs4.ActiveConnection = conexao
    rs4.CursorLocation = adUseClient
    rs4.CursorType = adOpenKeyset
    rs4.LockType = adLockReadOnly ' somente leitura

    'método 1
    rs4.Open "SELECT CodigoDoProduto, Descricao, Aplicacao, Referencia, Fabricante, Venda, UnidadeMedida, Loja1, Loja2, Observacoes, Locacao, Locacao2, Multiplo, CodigoDaMensagem, CodigodeBarras " & _
    "FROM Tbl_Produtos WHERE CodigodeBarras Like '" & Me.CodBarras & "'", conexao, adOpenKeyset, adLockReadOnly '<==== estaria errado aqui pois ja indiquei la em cima

    'método 2
    rs4.Open "SELECT CodigoDoProduto, Descricao, Aplicacao, Referencia, Fabricante, Venda, UnidadeMedida, Loja1, Loja2, Observacoes, Locacao, Locacao2, Multiplo, CodigoDaMensagem, CodigodeBarras " & _
    "FROM Tbl_Produtos WHERE CodigodeBarras Like '" & Me.CodBarras & "'" '<==== assim ele reage conforme indiquei em cima

    somente uma confirmação os dois métodos seriam corretos
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3596
    Registrado : 21/04/2011

    [Resolvido]Duvida em metodo de conexão recordset Empty Re: [Resolvido]Duvida em metodo de conexão recordset

    Mensagem  Marcelo David 8/3/2022, 18:02

    Boa tarde,
    as duas formas estão corretas, assim decida por uma e seja feliz!


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Clique aqui e conheça o treinamento.
    [Resolvido]Duvida em metodo de conexão recordset Marcel11
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Duvida em metodo de conexão recordset Empty Re: [Resolvido]Duvida em metodo de conexão recordset

    Mensagem  Alexandre Fim 8/3/2022, 18:16

    As 2 formas estão corretas.

    Apenas um pitaco: Particularmente, uso concatenação de Instrução SQL para ficar mais legível também:

    Código:


        Dim rs4    As New ADODB.Recordset
        Dim sSQL    As String
       
       
        sSQL = ""
        sSQL = sSQL & " SELECT "
        sSQL = sSQL & "  CodigoDoProduto"
        sSQL = sSQL & " ,Descricao"
        sSQL = sSQL & " ,Aplicacao"
        sSQL = sSQL & " ,Referencia"
        sSQL = sSQL & " ,Fabricante"
        sSQL = sSQL & " ,Venda"
        sSQL = sSQL & " ,UnidadeMedida"
        sSQL = sSQL & " ,Loja1"
        sSQL = sSQL & " ,Loja2"
        sSQL = sSQL & " ,Observacoes"
        sSQL = sSQL & " ,Locacao"
        sSQL = sSQL & " ,Locacao2"
        sSQL = sSQL & " ,Multiplo"
        sSQL = sSQL & " ,CodigoDaMensagem"
        sSQL = sSQL & " ,CodigodeBarras "
        sSQL = sSQL & " FROM Tbl_Produtos "
        sSQL = sSQL & " WHERE CodigodeBarras Like '" & Me.CodBarras & "'"
        rs4.Open sSQL, conexao, adOpenKeyset, adLockReadOnly
       
        If Not rs4.EOF Then
            '-- seu código...
        Else
            MsgBox "Registro não localizado.", vbExclamation, "Mensagem"
        End If
       
        rs4.Close
        Set rs4 = Nothing


    Valeu.
    []'s

    FIM


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

    [Resolvido]Duvida em metodo de conexão recordset Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    egnaldo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 68
    Registrado : 11/03/2012

    [Resolvido]Duvida em metodo de conexão recordset Empty Re: [Resolvido]Duvida em metodo de conexão recordset

    Mensagem  egnaldo 9/3/2022, 00:17

    Obrigado Marcelo e Alexandre,  vou aplicar aqui as aplicações,   obrigado  !

    Marcelo David gosta desta mensagem

    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3596
    Registrado : 21/04/2011

    [Resolvido]Duvida em metodo de conexão recordset Empty Re: [Resolvido]Duvida em metodo de conexão recordset

    Mensagem  Marcelo David 9/3/2022, 14:20

    Grato pelo retorno! Very Happy


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Clique aqui e conheça o treinamento.
    [Resolvido]Duvida em metodo de conexão recordset Marcel11

      Data/hora atual: 24/9/2022, 20:48