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

    [Resolvido]Pegar Ultimo Id Mysql

    marcelo3092
    marcelo3092
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 250
    Registrado : 19/08/2010

    [Resolvido]Pegar Ultimo Id Mysql Empty [Resolvido]Pegar Ultimo Id Mysql

    Mensagem  marcelo3092 Sab 16 Fev 2019, 5:05 pm

    Bom dia pessoal venho aqui pedir a ajuda de vcs para resgata o id que acabei de salvar no access x mysql servidor online pois ao salvar ele não coloca o id no formulario somente se sair e entrar novamente e que ele aparece sera que alguem pode da uma ajuda.

    Pra salvar uso este;


    If IsNull(Me.Cod_Pedido) Then

    Call Add_MySQL("select * from tblpedidos", Me.Form.Name)
    'Call Lista_Load("select * from tblcliente order by Razao_Social", Me.Form.Name)

    MsgBox "Dados salvos com sucesso."

    Else

    Call Updade_MySQL("select * from tblpedidos where Cod_Pedido=" & Me.Cod_Pedido, Me.Form.Name)
    'Call Lista_Load("select * from tblcliente order by Razao_Social", Me.Form.Name)

    MsgBox "Dados atualizados com sucesso."


    End If


    e para abrir o formulario este;


    Dim MySQL As String



    MySQL = " Select * from tblpedidos"


    Call Conexao_Open(MySQL)

    Set Forms(Me.Form.Name).Recordset = rs


    Lembrando que formulario desvinculado.

    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7999
    Registrado : 06/11/2009

    [Resolvido]Pegar Ultimo Id Mysql Empty Re: [Resolvido]Pegar Ultimo Id Mysql

    Mensagem  Alexandre Neves Sab 16 Fev 2019, 7:02 pm

    Boa tarde
    Tente

    Dim MySQL As String
    If IsNull(Me.Cod_Pedido) Then

    Call Add_MySQL("select * from tblpedidos", Me.Form.Name)
    MsgBox "Dados salvos com sucesso." 
    Else
    Call Updade_MySQL("select * from tblpedidos where Cod_Pedido=" & Me.Cod_Pedido, Me.Form.Name)
    MsgBox "Dados atualizados com sucesso."
    End If
    MySQL = " Select * from tblpedidos"
    Call Conexao_Open(MySQL)
    Set Forms(Me.Form.Name).Recordset = rs


    .................................................................................
    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
    marcelo3092
    marcelo3092
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 250
    Registrado : 19/08/2010

    [Resolvido]Pegar Ultimo Id Mysql Empty Pegar Ultimo Id Mysql

    Mensagem  marcelo3092 Sab 16 Fev 2019, 7:18 pm

    Grande Alexandre testei teve o mesmo efeito ele salva normal porem não adiciona o cod_pedido no campo no formulario no servidor ele adiciona no formulario somente se sair e entrar novamente.
    No caso ele teria que buscar o ultimo registro da tabela pedido e coloca o registro + 1 na teoria eu sei mais na pratica me falta conhecimento, tipo um recordset tambem
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7999
    Registrado : 06/11/2009

    [Resolvido]Pegar Ultimo Id Mysql Empty Re: [Resolvido]Pegar Ultimo Id Mysql

    Mensagem  Alexandre Neves Sab 16 Fev 2019, 7:58 pm

    Informe o código subjacente a
    Add_MySQL e Updade_MySQL


    .................................................................................
    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
    marcelo3092
    marcelo3092
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 250
    Registrado : 19/08/2010

    [Resolvido]Pegar Ultimo Id Mysql Empty Pegar Ultimo Id Mysql

    Mensagem  marcelo3092 Sab 16 Fev 2019, 10:20 pm

    Public Sub Add_MySQL(sMySQL, FrMy)

    Call Conexao_Open(sMySQL) 'Abre a conexão para a tabela informada

    rs.AddNew

    Dim FormAberto As Form
    Dim Controle As Control

    Set FormAberto = Forms(FrMy)

    For Each Controle In FormAberto

    If Controle.ControlType = acTextBox Then

    rs(Controle.Name) = FormAberto.Controls(Controle.Name).Value

    End If

    Next

    rs.Update
    rs.Close
    cn.Close


    End Sub


    Public Function Updade_MySQL(sMySQL, FrMy)

    Call Conexao_Open(sMySQL) 'Abre a conexão para a tabela informada

    Dim FormAberto As Form
    Dim Controle As Control

    Set FormAberto = Forms(FrMy)

    For Each Controle In FormAberto

    If Controle.ControlType = acTextBox Then

    rs(Controle.Name) = FormAberto.Controls(Controle.Name).Value

    End If

    Next

    rs.Update
    rs.Close
    cn.Close

    End Function
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7999
    Registrado : 06/11/2009

    [Resolvido]Pegar Ultimo Id Mysql Empty Re: [Resolvido]Pegar Ultimo Id Mysql

    Mensagem  Alexandre Neves Dom 17 Fev 2019, 12:40 am

    Para obter novo ID
    Código:
    Public Function NovoID()
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        '   código criado por Alexandre Neves, do Fórum MaximoAccess   '
        '     utilize o código livremente mas mantenha os créditos     '
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        Call Conexao_Open("select * from tblpedidos") 'Abre a conexão para a tabela informada
        rs.MoveLast
        NovoID = rs("ID") + 1
        rs.Close
        cn.Close
    End Function


    .................................................................................
    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
    marcelo3092
    marcelo3092
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 250
    Registrado : 19/08/2010

    [Resolvido]Pegar Ultimo Id Mysql Empty Pegar Ultimo Id Mysql

    Mensagem  marcelo3092 Dom 17 Fev 2019, 5:10 am

    Grande Alexandre ficou show ele pega o id, agora me surgiu uma duvida a gente tem que pensar e testar todo possivel erro né, e se não tiver um registro na tabela como poderia verificar ou pular a verificação se for um registro novo e a tabela não tiver registro qual poderia ser a solução.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Pegar Ultimo Id Mysql Empty Re: [Resolvido]Pegar Ultimo Id Mysql

    Mensagem  Alexandre Fim Dom 17 Fev 2019, 5:58 pm

    Olá MArcelo,

    Aproveitando o gancho do Alexandre Neves.


    Código:


    Public Function NovoID()
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        '  código criado por Alexandre Neves, do Fórum MaximoAccess  '
        '    utilize o código livremente mas mantenha os créditos    '
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
       
        Call Conexao_Open("select * from tblpedidos") 'Abre a conexão para a tabela informada
       
        If rs.EOF Then
            NovoID = 1
        Else
            rs.MoveLast
            NovoID = rs("ID") + 1
        End If
       
        rs.Close
        cn.Close

    End Function


    Boa sorte.

    []'s
    marcelo3092
    marcelo3092
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 250
    Registrado : 19/08/2010

    [Resolvido]Pegar Ultimo Id Mysql Empty Pegar Ultimo Id Mysql

    Mensagem  marcelo3092 Dom 17 Fev 2019, 6:19 pm

    Valeu a ajuda era essa minha duvida. ficou show quem sabe sabe.

    Limpa_Campos (Me.Form.Name)

    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    ' código criado por Alexandre Neves, do Fórum MaximoAccess '
    ' utilize o código livremente mas mantenha os créditos '
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

    Call Conexao_Open("select * from tblsubgrupo") 'Abre a conexão para a tabela informada

    If rs.EOF Then
    NovoID = 1
    Else
    rs.MoveLast
    NovoID = rs("Cod_SubGrupo") + 1
    End If

    rs.Close
    cn.Close
    Call Add_MySQL("select * from tblsubgrupo", Me.Form.Name)
    Me.Cod_SubGrupo = NovoID
    Me.GUIADADOS.Enabled = True
    Me.Data_Cadastro = Date
    Me.SubGrupo.SetFocus
    Me.Cod_Empresa = 2
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7999
    Registrado : 06/11/2009

    [Resolvido]Pegar Ultimo Id Mysql Empty Re: [Resolvido]Pegar Ultimo Id Mysql

    Mensagem  Alexandre Neves Dom 17 Fev 2019, 8:17 pm

    Boa tarde
    Código:
    Public Function NovoID()
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        '  código criado por Alexandre Neves, do Fórum MaximoAccess  '
        '    utilize o código livremente mas mantenha os créditos    '
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        Call Conexao_Open("select * from tblpedidos") 'Abre a conexão para a tabela informada
        If rs.EOF Then
            NovoID = 1
        Else
            rs.MoveLast
            NovoID = rs("ID") + 1
        End If
        rs.Close
        cn.Close
    End Function


    .................................................................................
    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: Qui 29 Jul 2021, 5:26 pm