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.