Visual Basic - Ayúdenme, por favor

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 7
Ha aumentado su posición en 3 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Ayúdenme, por favor

Publicado por Vero (106 intervenciones) el 24/05/2002 00:39:42
Hola, me gustaría saber cómo puedo borrar los registros duplicados de una tabla con una sentencia SQL en Visual Basic. Aquí les muestro el código que utilizo:

SELECT DISTINCTROW Campo1, Fecha, Campo3, Campo4, Campo5, Count(Campo1)
FROM Tabla
WHERE Fecha>= #' & Format(frmFecha.mskFecha.Text, "dd/mm/yy") & "#"
GROUP BY Campo1, Fecha, Campo3, Campo4, Campo5
HAVING Count(Campo1)>1;
ORDER BY Fecha DESC;

Set datTabla.Recordset=frmForm.datTabla.Database.Openrecordset(cSQL,dbOpenDynaset)

Hasta aquí bien, pero ahora me gustaría poder borrarlos en un dbgrid o en cajas de texto enlazadas a la base de datos. En la rejilla me dice que la base de datos es de solo lectura, y he revisado todas las propiedades y no están para lectura.
También había pensado en borrarlos de una vez con otra sentencia SQL, pero en vez de borrármelos los repetidos, me borra toda la tabla. Esta es la sentencia:
DELETE *
FROM Tabla
WHERE EXISTS (
SELECT DISTINCTROW Campo1, Fecha, Campo3, Campo4, Campo5, Count(Campo1)
FROM Tabla
WHERE Fecha>= #' & Format(frmFecha.mskFecha.Text, "dd/mm/yy") & "#"
GROUP BY Campo1, Fecha, Campo3, Campo4, Campo5
HAVING Count(Campo1)>1;
ORDER BY Fecha DESC);

Si alguien me pudiera ayudar, se lo agradecería. Muchas gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ayúdenme, por favor

Publicado por Luis Fernando Melo (49 intervenciones) el 24/05/2002 01:28:31
Inserta los registros a otra tabla (temporal) con la misma estructura pero que no permita duplicados....
.. Listo ya tienes los que no se repieten......
borra los registros de la primera tabla e inserta los datos de la segunda tabla (temporal)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar