PARA BORRAR REGISTROS EN MASA: ALGUNOS. HELP
Publicado por Eduardo Yuptón C (96 intervenciones) el 19/08/2005 00:28:22
HOLA AMIGOS, COMO HAGO PARA BORRAR SOLO ALGUNOS REGISTROS DE UNA TABLA, POR QUE YA HAN SIDO PROCESADOS.
ANTES MI CODIGO CON EL CONTROL DATA Y BASE EN ACCESS2000 ERA:
DataRelojTempFaltas.RecordSource = "select * from RELOJ_TEMP_FALTAS where _
(FECHA=#" & fec1 & "#)"
DataRelojTempFaltas.Refresh
Do While Not DataRelojTempFaltas.Recordset.EOF
DataRelojTempFaltas.Recordset.Delete
DataRelojTempFaltas.Recordset.MoveNext
Loop
PERO AHORA HE MIGRADO A PROGRAMACION ADO CON BASE EN SQL SERVER Y HE PENSADO EN EL SIGUIENTE CODIGO. ESTARA BIEN?
Set RsRelojTempFaltas = New ADODB.Recordset
With RsRelojTempFaltas
.ActiveConnection = Cn
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.Source = "select * from RELOJ_TEMP_FALTAS where (FECHA=" & fec1 & ")"
.Open
End With
If RsRelojTempFaltas.RecordCount > 0 Then
RsRelojTempFaltas.MoveFirst
Do While Not RsRelojTempFaltas.EOF
RsRelojTempFaltas.Delete
RsRelojTempFaltas.MoveNext
Loop
End If
HABIA PENSADO EN UTILIZAR "EXECUTE" DE ESTA FORMA:
Cn.Execute "delete from RELOJ_TEMP_FALTAS where (FECHA=" & fec1 & ")"
Y ADEMAS YA NO TENDRIA QUE ABRIR UN RECORDSET
QUE ME DICEN
MUCHAS GRACIAS
EDUARDO YC
ANTES MI CODIGO CON EL CONTROL DATA Y BASE EN ACCESS2000 ERA:
DataRelojTempFaltas.RecordSource = "select * from RELOJ_TEMP_FALTAS where _
(FECHA=#" & fec1 & "#)"
DataRelojTempFaltas.Refresh
Do While Not DataRelojTempFaltas.Recordset.EOF
DataRelojTempFaltas.Recordset.Delete
DataRelojTempFaltas.Recordset.MoveNext
Loop
PERO AHORA HE MIGRADO A PROGRAMACION ADO CON BASE EN SQL SERVER Y HE PENSADO EN EL SIGUIENTE CODIGO. ESTARA BIEN?
Set RsRelojTempFaltas = New ADODB.Recordset
With RsRelojTempFaltas
.ActiveConnection = Cn
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.Source = "select * from RELOJ_TEMP_FALTAS where (FECHA=" & fec1 & ")"
.Open
End With
If RsRelojTempFaltas.RecordCount > 0 Then
RsRelojTempFaltas.MoveFirst
Do While Not RsRelojTempFaltas.EOF
RsRelojTempFaltas.Delete
RsRelojTempFaltas.MoveNext
Loop
End If
HABIA PENSADO EN UTILIZAR "EXECUTE" DE ESTA FORMA:
Cn.Execute "delete from RELOJ_TEMP_FALTAS where (FECHA=" & fec1 & ")"
Y ADEMAS YA NO TENDRIA QUE ABRIR UN RECORDSET
QUE ME DICEN
MUCHAS GRACIAS
EDUARDO YC
Valora esta pregunta


0