Algoritmos

Nombre: RAFAEL JIMENEZ SUMANO Grado y Grupo: 3°D Calif.:____

-------------------------------------------------
Nombre del Algoritmo / Función: Crear un nuevo registro
Interpretación: |
Elalgoritmo sirve para la creación de un nuevo registro |
Variables y Constantes: |
|
Detalle codigo: |
Private Sub Command1_click()Call clearrs.AddNewText2.SetFocusEnd SubPrivate Sub clear()Text1.Text = "" Text2.Text = "" Text3.Text = ""End Sub |

Nombre: RAFAEL JIMENEZ SUMANO Grado y Grupo: 3°D Calif.:____

-------------------------------------------------
Nombre delAlgoritmo / Función: Algoritmo para la conexión de la base de datos por código y enlazar textbox
Interpretación: |
El algoritmo sirve para conectar la base de datos por código y enlazar los textbox |Variables y Constantes: |
|
Detalle codigo: |
Option ExplicitDim CNN As New Adodb.ConnectionDim rs As New Adodb.RecordsetPivate SubForm_Load()CNN.ConnectionString=”Provider=Microsoft.Jet.OLEDB.4.0;&”DataSource=”&”c:\agenditaxp.mdb”&”J”CNN,OpenRs.Open “select nombre, cellular from REGISTROS”,CNN,adOpenDynamic,adLockOptimisticCall Visualizar_DatosRs.UpdateEnd SubPrivate SubVisualizar_Datos()Text1.text=rs(“nombre”)Text2.text= rs (“celular”)End Sub |
Nombre: RAFAEL JIMENEZ SUMANO Grado y Grupo: 3°D Calif.:____

-------------------------------------------------
Nombre delAlgoritmo / Función: Algoritmo para regresar un registro
Interpretación: |
El algoritmo sirve para ir al registro anterior |
Variables y Constantes: |
|
Detalle codigo: |
Private SubCommand7_Click()Rs.MovePrevious If rs.BOF ThenRs.MoveFirst Msgbox “estas en el primer registro”,vbInformation,”PRIMER REGISTRO”ELSE Call Visualizar_Datos End IfEnd Sub |

Nombre: RAFAEL JIMENEZSUMANO Grado y Grupo: 3°D Calif.:____

-------------------------------------------------
Nombre del Algoritmo / Función: Algoritmo para ir al primer registro
Interpretación: |
El algoritmo...