Ok, ¿Cómo borar Registros?
Mira uso Visual Basic 6.0, y utilizo la base de datos de access además utliso en data, OK, no soy muy bueno en esto!
Ahora!, lo que deseo en borrar todos los registros y dejar ni BD vacía! Lista para ingresar nuevos datos, OK!. Además requiero hacerlo cuando estos viendo el reporte en un MSFlexGird y con un solo clic poder borrar todos los registros.
Espero aver sido más espeficico; y me puedas ayudar...
Te lo agradezco de antemano
Ahora!, lo que deseo en borrar todos los registros y dejar ni BD vacía! Lista para ingresar nuevos datos, OK!. Además requiero hacerlo cuando estos viendo el reporte en un MSFlexGird y con un solo clic poder borrar todos los registros.
Espero aver sido más espeficico; y me puedas ayudar...
Te lo agradezco de antemano
1 Respuesta
Respuesta de bezael
1
Si necesitas algo más enviame un mail.
====================================
If (Data1.Recordset.EOF Or Data1.Recordset.BOF) Then MsgBox " NO HAY REGISTRO ACTIVO": Exit Sub
If MsgBox(" Está Seguro de Borrar TODOS", vbYesNo) = vbYes Then
Data1.Recordset.MoveFirst
Do While Data1.Recordset.EOF = False
Data1.Recordset.Delete
Data1.Recordset.MoveNext
Loop
MsgBox " SE HAN BORRARDO TODOS LOS REGISTROS"
End If
====================================
If (Data1.Recordset.EOF Or Data1.Recordset.BOF) Then MsgBox " NO HAY REGISTRO ACTIVO": Exit Sub
If MsgBox(" Está Seguro de Borrar TODOS", vbYesNo) = vbYes Then
Data1.Recordset.MoveFirst
Do While Data1.Recordset.EOF = False
Data1.Recordset.Delete
Data1.Recordset.MoveNext
Loop
MsgBox " SE HAN BORRARDO TODOS LOS REGISTROS"
End If
