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 25

Sonia Yadira Chávez Saucedo

080260266-4 5101
 Lista de Cotejo

Práctica # 25 Programación de componentes de la aplicación.

Nombre de la Materia: Plantel: Conalep Juárez I

Programación Básica
Instructor: Ing. Sergio González Pérez Grupo: 5101
Alumno: Fecha de aplicación : / / 2010

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 Navegar Base de Datos

Firma del Alumnos Firma del Instructor

 Alumnos
Matricula Nombre Paterno Materno Promedio
12334 Stefani Germanotta McUrdy 9
12335 Miranda Cosgrove Green 10
12336 Alejandro Gomez Farias 9
12337 Alberto Gonzalez Avila 9

Pantalla principal:

Public Class Form1

Dim dt As New DataTable
Dim cn As New
OleDb.OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0; Data
Source=C:\Documents and Settings\Administrador\Mis
documentos\Downloads\p25.mdb")
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Agregar.Show()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button2.Click
Borrar.Show()
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button3.Click
Consultar.Show()
End Sub
 Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button4.Click
Modificar.Show()
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MyBase.Load
cn.Open()
Dim MostrarDatos As String = "Select * From Alumnos"
Dim dataAdapter As New OleDb.OleDbDataAdapter(MostrarDatos, cn)
dataAdapter.Fill(dt)
Actualiza()
dataAdapter.Dispose()
cn.Close()
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button5.Click
If (fila > 0 And fila <= dt.Rows.Count) Then
fila = fila - 1
Actualiza()
Else
MsgBox("Primer registro encontrado")
End If
End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button6.Click
If (fila >= 0 And fila < dt.Rows.Count - 1) Then
fila = fila + 1
Actualiza()
Else
MsgBox("Ultimo registro encontrado")
End If
End Sub
Public Sub Actualiza()
Matricula.Text = CInt(dt.Rows(fila)("Matricula"))
Nombre.Text = CStr(dt.Rows(fila)("Nombre"))
Paterno.Text = CStr(dt.Rows(fila)("Paterno"))
Materno.Text = CStr(dt.Rows(fila)("Materno"))
Promedio.Text = CInt(dt.Rows(fila)("Promedio"))
End Sub

End Class

Pantalla agregar:

Public Class Agregar

Dim dt As New DataTable
Dim cn As New
OleDb.OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0; Data
Source=C:\Documents and Settings\Administrador\Mis
documentos\Downloads\p25.mdb")
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
cn.Open()
Dim Guardar As String = "Insert into Alumnos(Matricula, Nombre,
Paterno, Materno, Promedio)" & " values ('" & Matricula.Text & "', '" &
Nombre.Text & "', '" & Paterno.Text & "', '" & Materno.Text & "', '" &
Promedio.Text & "')"
Dim dataAdapter As New OleDb.OleDbDataAdapter(Guardar, cn)
dataAdapter.Fill(dt)
MsgBox("Se ha agregado el registro correctamente")
dataAdapter.Dispose()
cn.Close()
Me.Close()
End Sub

Pantalla Consultar:

Public Class Consultar

Dim dt As New DataTable
Dim cn As New
OleDb.OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0; Data
Source=C:\Documents and Settings\Administrador\Mis
documentos\Downloads\p25.mdb")
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
cn.Open()
dt.Reset()
Dim ConsultarDatos As String = "Select * From Alumnos Where
Matricula=" & (CInt(Matricula.Text))
Dim dataAdapter As New OleDb.OleDbDataAdapter(ConsultarDatos, cn)
dataAdapter.Fill(dt)
fila = 0
Matricula.Text = CInt(dt.Rows(fila)("Matricula"))
Nombre.Text = CStr(dt.Rows(fila)("Nombre"))
Paterno.Text = CStr(dt.Rows(fila)("Paterno"))
Materno.Text = CStr(dt.Rows(fila)("Materno"))
Promedio.Text = CInt(dt.Rows(fila)("Promedio"))
cn.Close()
End Sub

Pantalla Modificar:

Public Class Modificar

Dim dt As New DataTable
Dim cn As New
OleDb.OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0; Data
Source=C:\Documents and Settings\Administrador\Mis
documentos\Downloads\p25.mdb")
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
cn.Open()
dt.Reset()
Dim ConsultarDatos As String = "Select * From Alumnos Where
Matricula=" & (CInt(Matricula.Text))
Dim dataAdapter As New OleDb.OleDbDataAdapter(ConsultarDatos, cn)
dataAdapter.Fill(dt)
 fila = 0
Matricula.Text = CInt(dt.Rows(fila)("Matricula"))
Nombre.Text = CStr(dt.Rows(fila)("Nombre"))
Paterno.Text = CStr(dt.Rows(fila)("Paterno"))
Materno.Text = CStr(dt.Rows(fila)("Materno"))
Promedio.Text = CInt(dt.Rows(fila)("Promedio"))
cn.Close()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button1.Click
cn.Open()
Dim modificarDatos As String = "Update Alumnos set Matricula = '"
& Matricula.Text & "' , Nombre = '" & Nombre.Text & "', Paterno = '" &
Paterno.Text & "', Materno = '" & Materno.Text & "', Promedio = '" &
Promedio.Text & "'"
Dim dataAdapter As New OleDb.OleDbDataAdapter(modificarDatos, cn)
dataAdapter.Fill(dt)
Matricula.Text = CInt(dt.Rows(fila)("Matricula"))
Nombre.Text = CStr(dt.Rows(fila)("Nombre"))
Paterno.Text = CStr(dt.Rows(fila)("Paterno"))
Materno.Text = CStr(dt.Rows(fila)("Materno"))
Promedio.Text = CInt(dt.Rows(fila)("Promedio"))
MsgBox("Registro Modificado")
cn.Close()
End Sub

Pantalla Borrar:

Public Class Borrar

Dim dt As New DataTable
Dim cn As New
OleDb.OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0; Data
Source=C:\Documents and Settings\Administrador\Mis
documentos\Downloads\p25.mdb")
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
cn.Open()
dt.Reset()
Dim ConsultarDatos As String = "Select * From Alumnos Where
Matricula=" & (CInt(Matricula.Text))
Dim dataAdapter As New OleDb.OleDbDataAdapter(ConsultarDatos, cn)
dataAdapter.Fill(dt)
fila = 0
Matricula.Text = CInt(dt.Rows(fila)("Matricula"))
Nombre.Text = CStr(dt.Rows(fila)("Nombre"))
Paterno.Text = CStr(dt.Rows(fila)("Paterno"))
Materno.Text = CStr(dt.Rows(fila)("Materno"))
Promedio.Text = CInt(dt.Rows(fila)("Promedio"))
cn.Close()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button1.Click
cn.Open()
Dim BorrarDatos As String = "Delete * From Alumnos Where
Matricula = " & (CInt(Matricula.Text))
 Dim dataAdapter As New OleDb.OleDbDataAdapter(BorrarDatos, cn)
dataAdapter.Fill(dt)
dataAdapter.Dispose()
cn.Close()
End Sub