Colegio de educación profesional técnica del
estado de Chihuahua
Programación con sistemas gestores de bases de
datos
Ing. Sergio González Pérez
Practica 20
Sonia Yadira Chávez Saucedo
5101 080260266-4
Lista de Cotejo
Práctica # 20 Manejo operadores, fechas y estructuras
selección
Nombre de la Materia: Plantel: Conalep Juárez I
Programación Básica
Instructor: Ing. Sergio González Pérez Grupo: 5101
Alumno: Sonia Yadira Chavez Saucedo Fecha de aplicación :
INSTRUCCIONES DE APLICACIÓN.
Verifique que se encuentren los componentes señalados abajo y marque con una √ el registro
de cumplimiento correspondiente.
REGISTRO DE
No Características a verificar CUMPLIMIENTO OBSERVACIONES
SI NO
1 Inicia el Sistema Gestor de Base de Datos √
2 Abre la Base de Datos que será utilizada √
3 Realiza los pasos de la practica √
4 Manipula correctamente el SGBD √
5 Almacena en su carpeta las actividades planteadas √
6 Realiza el reporte del resultado del programa. √
DESARROLLO
REGISTRO DE
No Actividades a desarrollar CUMPLIMIENTO OBSERVACIONES
SI NO
1 Inicializa Lenguaje de Programación √
2 Agrega Formulario √
3 Diseña los Controles del Formulario √
4 Realiza Código para Manejo de Fechas √
Firma del Alumnos Firma del Instructor
Fecha en texto
Private Sub cmdfecha_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link] = [Link]
If (Int([Link]) >= 1 And Int([Link] <= 31) And
Int([Link] >= 1) And Int([Link] <= 12)) Then
Select Case Int([Link])
Case 1
[Link] = [Link] + " de enero de "
Case 2
[Link] = [Link] + " de febrero de "
Case 3
[Link] = [Link] + " de marzo de "
Case 4
[Link] = [Link] + " de abril de "
Case 5
[Link] = [Link] + " de mayo de "
Case 6
[Link] = [Link] + " de junio de "
Case 7
[Link] = [Link] + " de julio de "
Case 8
[Link] = [Link] + " de agosto de "
Case 9
[Link] = [Link] + " de septiembre de "
Case 10
[Link] = [Link] + " de octubre de "
Case 11
[Link] = [Link] + " de noviembre de "
Case 12
[Link] = [Link] + " de diciembre de "
End Select
[Link] = [Link] + [Link]
Else
MsgBox("Valor fuera de rango", [Link],
"Alerta")
End If
End Sub
Botón Anterior
Private Sub cmdanterior_Click(ByVal sender As [Link], ByVal e
As [Link]) Handles [Link]
If (fila > 0 And fila <= [Link] - 1) Then
fila = fila - 1
actualiza()
Else
MsgBox("Se encontro el primer registro")
End If
End Sub
Botón Siguiente
Private Sub cmdsiguente_Click(ByVal sender As [Link], ByVal e
As [Link]) Handles [Link]
If (fila >= 0 And fila < [Link] - 1) Then
fila = fila + 1
actualiza()
Else
MsgBox("Se encontro el ultimo registro")
End If
End Sub
Botón Agregar
Dim dt As New DataTable
Dim cn As New
[Link]("Provider=[Link].4.0;Data
Source=G:\Trabajos conalep\5tosem\PSGBD\Programas\fechas
conversion\[Link]")
Private Sub cmdagregar_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link]()
Dim GuardarDatos As String = "insert into fechas(D, M, A)" &
"Values('" & [Link] & "' ,'" & [Link] & "' ,'" &
[Link] & "' )"
Dim dataAdapter As New [Link](GuardarDatos,
cn)
[Link](dt)
MsgBox("Se agrego el registro correctmente",
[Link], "Mensaje")
[Link]()
[Link]()
End Sub
Boton Consultar
Public fila As Integer = 0
Private Sub cmdcons_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link]()
[Link]()
Dim ConsultarDatos As String = "Select * From fechas Where D=
" & (CInt([Link]))
Dim dataAdapter As New [Link](ConsultarDatos,
cn)
[Link](dt)
fila = 0
[Link] = CInt([Link](fila)("D"))
[Link] = CInt([Link](fila)("M"))
[Link] = CInt([Link](fila)("A"))
MsgBox("Se encontro el registro correctmente",
[Link], "Mensaje")
[Link]()
[Link]()
End Sub
fechas
D M A
15 6 1993
13 8 1995
12 12 1900
8 4 1999
18 8 1978
12 5 1993
