Botones para Control-ADO, Recuerden Configurar el ADO, y luego el DataSource y el Data Field de cada caja de Texto o Combo....!!!
Listas Básicas
Boton Nuevo
Private Sub Command1_Click()
Adodc1.Recordset.AddNew
End Sub
Boton
Guardar
Private Sub Command2_Click()
Adodc1.Recordset.Update
Adodc1.Refresh
MsgBox "Registro Guardado"
End Sub
Boton
Modificar
Private Sub Command4_Click()
Adodc1.Recordset.Update
Adodc1.Refresh
MsgBox "Registro Modificado"
End Sub
Boton
Eliminar
Private Sub Command6_Click()
Adodc1.Recordset.Delete
MsgBox "Registro Eliminado"
End Sub
0 Comentarios