
13/05/2010, 11:17
|
 | | | Fecha de Ingreso: septiembre-2009
Mensajes: 502
Antigüedad: 15 años, 6 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. |