rutinas de error para vb 6

victor
28 de Diciembre del 2007
alguien tiene e codig para rutinas de error para guardar datos en una bd de access, por ejemplo transacciones completas, registros duplicados, etc.

mvallejos
28 de Diciembre del 2007
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