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


    Exclusão no mysql

    marcelo3092
    marcelo3092
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Exclusão no mysql  Empty Exclusão no mysql

    Mensagem  marcelo3092 em 17/4/2019, 20:10

    Boa tarde pessoal gostaria de pedir uma ajuda referente a um código para exclusão via mysql pois ela esta incompleta;

    Public Sub Delete_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)




    rs.Delete
    rs.Close
    cn.Close

    End Sub



    e onde ela é chamada


    Call Delete_MySQL("select * from tblcliente where Cod_Cliente=" & Me.Lista.Column(0), Me.Form.Name)


    Porem não tem nada nela para poder executar sera que alguem pode me da uma mão.
    avatar
    renpv
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 155
    Registrado : 12/01/2015

    Exclusão no mysql  Empty Re: Exclusão no mysql

    Mensagem  renpv em 9/6/2019, 22:01

    Ao invés de usar todo esse código considere usar apenas o comando a seguir:

    Código:
    DoCmd.RunSQL "DELETE FROM tblcliente WHERE Cod_Cliente =" & Me.Lista.Column(0)

    Espero ter ajudado

      Data/hora atual: 19/7/2019, 13:42