visual basic

VISUAL BASIC

BOTON DE ANTERIOR
Private Sub cmdAnterior_Click()
Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF Then
Adodc1.Recordset.MoveFirst
End If
End Sub
BOTON DE BORRAR
PrivateSub cmdBorrar_Click()
Dim r As Integer

On Error GoTo RutinaDeError
r = MsgBox("¿Desea borrar el registro?", vbYesNo, "Atención")
If r vbYes Then Exit Sub
Adodc1.Recordset.Delete 'borrar elregistro
Adodc1.Recordset.MoveNext 'situarse en el registro siguiente
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
End If
Exit Sub
RutinaDeError:
r = MsgBox(Error, vbOKOnly, "Se haproducido un error:")
Adodc1.Recordset.CancelUpdate
End Sub
BOTON DE BUSCAR
Private Sub cmdBuscar_Click()
Dim buscando As String, criterio As String
buscado = InputBox("¿Que nombre quieres buscar?")If buscado = "" Then Exit Sub
criterio = "Nombre Like '*" & buscado & "*'"
Adodc1.Recordset.MoveNext
If Not Adodc1.Recordset.EOF Then
Adodc1.Recordset.Find criterio
End If
IfAdodc1.Recordset.EOF Then
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find criterio

If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
MsgBox ("No encuentro ese nombre")
End If
End If
End Sub
BOTON DECANCELAR
Private Sub cmdCancelar_Click()
Adodc1.Recordset.CancelUpdate
cmdEditar.Enabled = True 'habilitamos los botones
cmdBorrar.Enabled = True
cmdRefrescar.Enabled = True
cmdBuscar.Enabled =True
cmdCancelar.Enabled = True
cmdNuevo.Enabled = True
cmdGrabar.Enabled = False ' inhabilitamos los botones de grabar
Text1.Enabled = False ' inhabilitamos las cajas de texto
Text2.Enabled =False
Text3.Enabled = False
End Sub
BOTON DE EDITAR
Private Sub cmdEditar_Click()
Text1.Enabled = True ' habilitamos las cajas de texto
Text2.Enabled = True
Text3.Enabled = TruecmdEditar.Enabled = False 'inhabilitamos los botones

cmdBorrar.Enabled = False
cmdRefrescar.Enabled = False
cmdBuscar.Enabled = False
cmdGrabar.Enabled = True ' habilitamos los botones de grabar y cancelar...