rutinas de error para vb 6
alguien tiene e codig para rutinas de error para guardar datos en una bd de access, por ejemplo transacciones completas, registros duplicados, etc.
Con ADO una transacción con tratamiento de error serÃa asÃ
Sub Transaccion
Err.Clear
On Error Goto Salto
Conexion.BeginTran
<<accion sql 1>
<<accion sql 2>
----------------------
<<accion sql N>
Conexion.CommitTran
Exit Sub
Salto:
Conexion.RollBackTran
MsgBox Err-Description
Err.Clear
End Sub
El tratamiento de error sirve para que en caso de producirse un error en las acciones sql, deshaga todo con RollBackTran
Ahora con el tema de duplicados de una tabla, eso se soluciona con una consulta Sql agrupada con un filtro Having
Select CampoClave,Count(*) as Cant From Tabla
Group By CampoClave
Having Count(*) > 1
Saludos
Sub Transaccion
Err.Clear
On Error Goto Salto
Conexion.BeginTran
<<accion sql 1>
<<accion sql 2>
----------------------
<<accion sql N>
Conexion.CommitTran
Exit Sub
Salto:
Conexion.RollBackTran
MsgBox Err-Description
Err.Clear
End Sub
El tratamiento de error sirve para que en caso de producirse un error en las acciones sql, deshaga todo con RollBackTran
Ahora con el tema de duplicados de una tabla, eso se soluciona con una consulta Sql agrupada con un filtro Having
Select CampoClave,Count(*) as Cant From Tabla
Group By CampoClave
Having Count(*) > 1
Saludos
