Hola estoy trabajando con visual y access y tengo este problema a la hora de borrar filas de una tabla, porque me borra todas las filas. Os dejo el código y me decis, el fallo lo da en lo marcado en negrita:

Dim cnn As ADODB.Connection
Dim rs As New ADODB.Recordset
Dim ruta_nueva As String
ruta_nueva = user.ruta.CurrentValue & "\" & user.fichero.CurrentValue & ".mdb"

Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset

'txtNombreBase.Text = "C:\SCADA\DATOS\DATOS_SCADA.mdb"

With cnn
.CursorLocation = adUseClient
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source= C:\SCADA\DATOS\DATOS_SCADA.mdb"
.Open
End With

With rs


.Open "DELETE FROM prueba WHERE fecha < #12/03/2010# ", cnn, adOpenDynamic, adLockReadOnly



End With
cnn.Close



Un saludo y gracias.

Saludos:

Yo diria que es la linea open:

"DELETE FROM prueba WHERE fecha < #12/03/2010#

Basicamente estas borrando todo lo que es menor (anterior) a Diciembre 03 de 2010. Y si hoy estamos a 03/15/2010 (Marzo 15 de 2010), el sistema lo esta haciendo bien.

Mira el manejo de fechas (configuracion regional), de la BD del OS y de tu aplicacion, que sean iguales, no se que tu envias Marzo 12 y te asuma Dic 03.

Espero ayude.


JOSE LUIS