Segunda Guerra Mundial

Les recuerdo que las consultas deben de ser por medio de botones (anterior, siguiente, primero y último) y el objeto de la BASE de datos ADO debe de estar invisible cuando se ejecute el proyecto,esto se hace seleccionando el objeto ADO y en propiedades en la propiedad visible asignarle el valor de False

Los códigos para estos botones son:

Private Sub btnanterior_Click()Adodc1.Recordset.MovePrevious -----------> Mueve el apuntador al registro anterior
If Adodc1.Recordset.BOF Then ---verifica si esta el apuntador esta al inicio de la TablaAdodc1.Recordset.MoveNext - de ser así, mueve el apuntador al siguiente registro
End If
End Sub

Private Sub btnprimero_Click()
Adodc1.Recordset.MoveFirst -----------> Mueve el apuntador al primer registroEnd Sub

Private Sub btnsiguiente_Click()
Adodc1.Recordset.MoveNext -----------> Mueve el apuntador al registro siguienter
If Adodc1.Recordset.EOF Then --verifica si esta elapuntador esta al final de la Tabla
Adodc1.Recordset.MovePrevious de ser así, mueve el apuntador registro anterior
End If
End Sub

Private Sub btnultimo_Click()
Adodc1.Recordset.MoveLast-Mueve el apuntador al último registro
End Sub
-------------------------------------------------

BORRAR REGISTROS

Para eliminar un registro, primero se debe de buscar a través de la claveprincipal, si esta el registro buscado se muestra toda la información que presenta y una vez que se pulsa el botón eliminar , se preguntará si está seguro por medio de un msgbox y los botonescorrespondientes. Si dice que sí, el código para eliminar es el siguiente:

Private Sub btneliminar_Click()
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext para que pase el apuntador alsiguiente registro o puede
ser el primero ( Adodc1.Recordset.MoveFirst )
End Sub

Modificar

Para modificar el registro se busca primero por medio de la clave principal, si existe...