Ver Mensaje Individual
  #2 (permalink)  
Antiguo 13/05/2010, 11:17
Avatar de lokoman
lokoman
 
Fecha de Ingreso: septiembre-2009
Mensajes: 502
Antigüedad: 14 años, 7 meses
Puntos: 47
Respuesta: Eliminar registros duplicados...

Hola!
Intenta asi:

NOTA: ASUMO QUE TIENES UN CAMPO LLAMADO "DOCUMENTO"

Despues de insertar todos los registros, haz un recordset con la instruccion: "SELECT DISTINCT DOCUMENTO FROM TABLA"

Do while not recordset1.eof

Despues, otro recordset con esta instruccion: "SELECT * FROM TABLA WHERE DOCUMENTO=" & Recordset1!DOCUMENTO

Luego preguntas:
Do while not recordset2.eof
Cont=Cont+1
Loop

IF cont>1 THEN

Recordset2.movefirst

aqui debes guardar todos los campos en variables temporales, luego los borras, luego insertas los que guardaste en las vaiables temporales, asi:

VAR1=Recordset2!campo1
VAR2=Recordset2!campo2
VAR3=Recordset2!documento
VAR4=Recordset2!campo4

conexion.execute "delete from tabla where documento=" & recordset2!documento
conexion.execute "insert into tabla (campo1,campo2,documento,campo4) values (VAR1,VAR2,VAR3,VAR4)

Cont=0
ELSE
Recordset1.movenext
If Recordset2.state=1 then recordset2.close
END IF
Loop

Verifia si la logica te funciona.