MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    Controle de Transações

    Compartilhe

    ArielFibbi
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 28/08/2015

    Controle de Transações

    Mensagem  ArielFibbi em Sex 28 Ago 2015, 6:28 pm

    Hola amigos!

    Venho com uma duvida que tenho faz tempo e que me resulta difícil de testar.
    O controle de transações com: BeginTrans, ComminTrans, RollBack funciona se colocamos dentro dela o
    Docmd.runsql "MinhaConsultadeAção"? Quer dizer, funciona com consultas de ação?

    Sei que com ADO e DAO funciona (Edit, Update, etc), mas não sei se é ignorado quando usamos os objetos de Access.

    Bueno, se me podem tirar esta duvida, desde já, agradecido.

    Abraço.

    Ricardo Ivan
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 28/04/2015

    Re: Controle de Transações

    Mensagem  Ricardo Ivan em Qui 10 Set 2015, 10:07 am

    você pode usar, é opcional como você pode ver na documentação:

    [Você precisa estar registrado e conectado para ver este link.]

    expression .RunSQL(SQLStatement, UseTransaction)

    adm.nneto
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 27/11/2012

    Re: Controle de Transações

    Mensagem  adm.nneto em Qua 23 Nov 2016, 1:55 pm

    Pessoal, segue exemplo de transações no access "BeginTrans, ComminTrans, RollBack". Pode ser que sirva para alguém!


    Sub ExemploTransacao() 'exemplo de transação begin trans

    Dim wrkCurrent As DAO.Workspace

    On Error GoTo ErrorHandler

    Set wrkCurrent = DBEngine.Workspaces(0)
    wrkCurrent.BeginTrans

    'Gravar no Banco
    '...................................................................

    CurrentDb.Execute "Insert Into importaRA(usuario) Values('NNETO')"
    CurrentDb.Execute "Insert Into importaRA(usuario) Values('MARCIO')"

    '...................................................................

    wrkCurrent.CommitTrans
    wrkCurrent.Close
    Set wrkCurrent = Nothing

    Exit Sub
    ErrorHandler:
    wrkCurrent.Rollback
    MsgBox "Erro: " & Err.Number & vbCrLf & Err.Description, vbCritical, "Aviso", Err.HelpFile, Err.HelpContext

    End Sub

      Data/hora atual: Qui 08 Dez 2016, 9:09 am