Desconocido
|
| Enviado - 22/7/2004 |
| |
Espero me puedan ayudar. Soy nuevo en el manejo de Visual Basic y tengo un error al momento de eliminar un todos los Registros de una Tabla. Me presenta el siguiente mensaje de error:
Error '-2147217887(80040e21)' en tiempo de ejecucion:
La operacion en varios pasos genero errores. Compruebe los valores de estado
Mi codigo es el siguiente:
Eliminar = 0
FrmEliminarTodo.Show 1, FrmPantalla
'El Formulario EliminarTodo me retorna un valor para la variable Eliminar (de tipo Global)
If Eliminar = 1 Then
Y = ADOAlumnos.Recordset.RecordCount
For X = 1 To Y
ADOAlumnos.Recordset.Delete 'AQUI MARCA ERROR ESTA MA#$%
ADOAlumnos.Recordset.MoveFirst
Next X
end if
Aqui es donde busco que elimine todos los registros, lo mismo me marca al querer eliminar uno solo como acontinuacion les muestro:
Eliminar = 0
FrmEliminar.Show 1, FrmPantalla
If Eliminar = 1 Then
ADOAlumnos.Recordset.Delete 'AQUI MARCA ERROR LA MA%#& ESTA
ADOAlumnos.Recordset.MoveFirst
End If
|
| |
|
