Estou tento problema com transações e o MSDE, eu abro uma transação, executo as ações, dou o comiittrans ele funciona normal.
Um pouco + abaixo tendo novamente abrir outra transação, da a mensagem que não foi possivel abrir a transação pq ultrapassou o limite permitido, só que se eu tento dar um .rolbacktransaction da a mensagem que não existe uma transação aberta.... eu não to entendendo + nada.
Abaixo o código onde ocorre o erro.
On Error GoTo erro
'essa primeira transação faz normalmente, sem erro algum
BASEDEDADOS.BeginTrans
BASEDEDADOS.Execute "delete from pes_grafico1"
BASEDEDADOS.CommitTrans
If Not abt(xx, "Select * from pes_grafico1", "", 1) Then Exit Sub
Usuario.open "select cad_usuarios.cod_usuario, cad_usuarios.nome from cad_usuarios where cad_usuarios.ATIVO = " & Verdadeiro & " order by cad_usuarios.nome", basededados, dbopenkeyset, adOpenKeyset, adLockPessimistic, adCmdText
'aqui da o erro, logo que eu tento a segunda transação
BASEDEDADOS.BeginTrans
Do Until Usuario.EOF
xx.AddNew
xx("cod_grupo") = Usuario("cod_usuario")
xx("nome") = Usuario("nome")
xx("mes1") = 0
xx("mes2") = 0
xx.Update
Usuario.MoveNext
Loop
BASEDEDADOS.CommitTrans
