DUVIDAS SOBRE SISTEMA MULTI USUARIO

Citação:

NIL escreveu:

Agora Fox, Esse metodo você não é o primeiro que eu vejo aqui recomendando
criar campo booleano e gravar sim quando estiver editando.
Funciona muito bem sem utilizar begintrans, mas utilizando, não funcionou.
e sem controle de transações eu não recomendo.

Se eu estiver errado por favor aguém entre e colabore com o tópico.

' BeginTrans - Dá inicio ao processamento

'CommitTrans - Conclui a transacção

'RollBack - Repõe a situação anterior, ou melhor, não executa a transacção.

 
[c]Sub begintrans()


bd.BeginTrans 

' Aqui abro a tabela, edito, altero enfim, manipulo todos os dados.

If MsgBox("Confirma Alterações ?", vbYesNo) = vbYes Then
         [b]bd.CommitTrans' aki confirmo as alterações/edições.

Else
          bd.Rollback 
End If

End Sub

  
[c]Private Sub cmdAlterar_Click()

On Error GoTo SAIFUNC

cmdGravar.Enabled = False
cmdUltimo.Enabled = False
cmdAnterior.Enabled = False
cmdPrimeiro.Enabled = False
cmdProximo.Enabled = False
cmdSair.Enabled = False
    
    bd.BeginTrans ' atente-se a este momento, onde inicio a transação

Set rsProdutos = New ADODB.Recordset
rsProdutos.Open "select * from produtos WHERE CODBARRAS='" & txt.Item(2).Text & "' order by codproduto", bd, adOpenStatic, adLockOptimistic
LerRegistroAtual ' aki leio o registro atual

Select Case rsProdutos.Fields("AlteradoPor") 'o campo que define se pode ou naum ser editado é o 'mesmo campo que registra quem editou.

    Case Is <> 1 ' caso o "alteradopor" for diferente de 1 (ou seja o nome de quem alterou pela ultima vez)

        rsProdutos.Fields("AlteradoPor") = 1 ' aki defino que esta sendo editado
        rsProdutos.Update ' atualizo o campo
        Dim I As Integer
         For I = 0 To 20
          If txt(I).Locked = True Then: txt(I).Locked = False
          If txt(I).Enabled = False Then: txt(I).Enabled = True
         Next I
        txtUnidade.Enabled = True
        Check3.Enabled = True
        chkATIVO.Enabled = True
        chkPromocional.Enabled = True
        cmdSalvar.Enabled = True
        cmdAdicionar.Enabled = False
        cmdAlterar.Enabled = False
        cmdCancelar.Enabled = True
    Case Is = 1 ' agora caso o campo seja = a 1 
        MsgBox "Este registro não poderá ser editado." & vbCrLf & "Tente novamente mais tarde !!!!", vbInformation, "Edição de registro"
        cmdExcluir.Enabled = False
        cmdSair.Enabled = True
End Select
SAIFUNC:
Select Case Err.Number
Case 0
'faz nada
Case -2147168237
MsgBox "Na última tentativa não foi possível alterar este registro, " & Chr(10) & "Verifique se já não estão editando!"
bd.RollbackTrans ' aki dou um rollback soh para finalizar a transação, pois se o usuário clicar 'novamente no botão alterar , naum dara o erro 

Err.Clear

Case -2147217864
MsgBox Err.Description
End Select
Err.Clear
End Sub

  Private Sub cmdSalvar_Click()

On Error GoTo TRATAERRO

cmdUltimo.Enabled = True
cmdAnterior.Enabled = True
cmdPrimeiro.Enabled = True
cmdProximo.Enabled = True

rsProdutos.Fields("Lista") = Check3.Value
rsProdutos.Fields("CODPRODUTO") = txt.Item(2).Text
rsProdutos.Fields("CODBARRAS") = txt.Item(2).Text
rsProdutos.Fields("NOMEPRODUTO") = txt.Item(3).Text
rsProdutos.Fields("PRECOCUSTO") = CCur(txt.Item(4).Text)
BLA
BLA
BLA
BLA
BLA
BLA
BLA
BLA
BLA

rsProdutos.Fields("ALTERADOPOR") = txt.Item(13).Text ' OBSERVE QUE NESTE MOMENTO ESTOU ALTERANDO A CONDIÇÃO 1 DO CAMPO Q DEFINE SE PODE OU NÃO SER ALTERADO.
cmdCancelar.Enabled = False
rsProdutos.Update
bd.CommitTrans ' OLHA A CONFIRAMÇÃO DO BEGINTRANS AKI.....PORTANTO VC NAUM VIU NESTE PROCEDIMENTO A 'CHAMADA PARA O BEGINTRANS, QUE JÁ FOI FEITA LÁ NO BOTÃO ALTERAR.


TRATAERRO:

Select Case Err.Number
Case 0
    BlockRegistro (I)
    cmdAdicionar.Enabled = True
    cmdAlterar.Enabled = True
    cmdSalvar.Enabled = False
    cmdSair.Enabled = True
Case -2147217864
MsgBox "Houve um erro na transação e todas as alterações serão descartadas" & Chr(10) & Err.Description
bd.RollbackTrans
End Select
End Sub
 

Citação:

Utilizando .execute"Update tabela", não da certo pois o jet não bloqueia um unico registro e sim a pagina e isso depende do tamanho dos registros.
Selecionando antes o registro e utilizando rs.Update eu consegui, segue exemplo.

Citação:

rsProdutos.Open "select * from produtos WHERE CODBARRAS='" & txt.Item(2).Text & "' order by

Citação:

NIL escreveu:
Fox,
Então é como eu disse acima , Utilizando .execute Update tabela , não da certo pois o jet não bloqueia um unico registro e sim a pagina e isso depende do tamanho dos registros.
Selecionando antes o registro e utilizando rs.Update eu consegui, segue exemplo. . Selecionando o registro asim como voê fez:
rsProdutos.Open select * from produtos WHERE CODBARRAS=[ÃÂ'] & txt.Item(2).Text & [ÃÂ'] order by , e sem utilizar instruçoçes sql db.Execute Update , eu consegui , mas nem precisou criar campo para isso , o proprio Jet ja se encarregou de bloquear e gerar a mensagem de erro que foi tratada.

O que eu disse é que se você tentar fazer via .execute, não é possivel.

beleza ?