Manual Para Programar Sistema Gestor De Base De Datos

CENTRO DE ESTUDIOS TECNOLOGICOS INDUSTRIAL Y DE SERVICIOS No. 79

Manual para programar sistema gestor de base de datos. Mayo/2012 L.I. TOMÁS HERNÁNDEZ MEDINA .- preguntasytareas@hotmail.com pág. 1

Manual para programar sistema gestor de base de datos

Crear una carpeta de trabajo con nombre “Sistema Base de Datos Escolares”

Dentro de la carpeta de trabajo, crear la base de datos “Escolares” desde Access.

La primera tabla TblaAlumno.

Observe que el campo IdNumControl es el campo llave. Además el campo IdGrupo tendrá las propiedades Indexado Si con duplicados, quedando como campo llave secundario. Un campo llamado activo para manejar las eliminaciones físicas y lógicas de los registros.

Segunda tabla TblCalificasiones.

La tabla no tiene campo llave primario, se dice que es una tabla secundaria o hija de una tabla primaria o padre, los campos IdNumControl y IdMateria llevaran forzosamente las propiedades indexado Si con duplicados.

CENTRO DE ESTUDIOS TECNOLOGICOS INDUSTRIAL Y DE SERVICIOS No. 79

Manual para programar sistema gestor de base de datos. Mayo/2012 L.I. TOMÁS HERNÁNDEZ MEDINA .- preguntasytareas@hotmail.com pág. 2

Tercera tabla TblEspecialidad.

La tabla tendrá un campo llave primario donde guardaremos la clave de la especialidad y un campo donde guardáremos el nombre de la especialidad.

Cuarta tabla TblGrupo

La tabla tendrá su campo lleve primario, y el campo lleve secundario será IdEspecialidad, que obviamente será indexado Si con duplicados.

Quinta y última tabla TblMateria.

Esta tabla solo tendrá un campo llave secundario, el campo IdEspecialidad que sirve para indexar a las tablas, el campo tendrá para ello la propiedad indexado Si con duplicados.

CENTRO DE ESTUDIOS TECNOLOGICOS INDUSTRIAL Y DE SERVICIOS No. 79

Manual para programar sistema gestor de base de datos. Mayo/2012 L.I. TOMÁS HERNÁNDEZ MEDINA .- preguntasytareas@hotmail.com pág. 3

Relacionamos las tablas.

Una tabla extra, la TblPassword.

Esta tabla esta creada dentro de la base de datos, pero no tiene relación con ninguna tabla, será única y exclusivamente de acceso a la base de daros como seguridad. Aprovechamos y metemos un registro dentro de la tabla, que servirá como el login y el password para nuestro sistema.

Guardamos nuestra base de datos con el nombre de “Escolares”.

Listo tenemos nuestra primera parte.

Abrimos Visual Basic, nuestro proyecto tendrá como formulario de inicio el formulario Frmpasword. Recuerde ir grabando su proyecto.

CENTRO DE ESTUDIOS TECNOLOGICOS INDUSTRIAL Y DE SERVICIOS No. 79

Manual para programar sistema gestor de base de datos. Mayo/2012 L.I. TOMÁS HERNÁNDEZ MEDINA .- preguntasytareas@hotmail.com pág. 4

Objeto Propiedad Valor TextBox Text Empty Nombre TxtUsuario TextBox Text Empty Nombre TxtPassword PassWordChar * CommandButton Caption Acceptar Nombre CmdAceptar

Crear un Modulo. Y dentro del modulo escribiremos el siguiente código.

Public conexion As New ADODB.Connection

Private Sub Main() On Error GoTo LineaError conexion.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\Escolar.mdb" FrmPassWord.Show Exit Sub

LineaError: MsgBox "Error en la base de datos" End Sub

Nota: En clase se irán explicando cada línea y cada paso, esto es para que este manual no sea demasiado largo.

Creamos un formulario de tipo MDI, con nombre MdiMenu, dentro de el por el momento ingresamos el componente Microsoft ADO Data Control 6.0

CENTRO DE ESTUDIOS TECNOLOGICOS INDUSTRIAL Y DE SERVICIOS No. 79

Manual para programar sistema gestor de base de datos. Mayo/2012 L.I. TOMÁS HERNÁNDEZ MEDINA .- preguntasytareas@hotmail.com pág. 5

Ingresarlo dentro del proyecto, esto se puede hacer metiéndolo en el formulario MdiMenu, y después borrarlo, esto es para el que el proyecto reconozca el componente.

Configuramos como objeto inicial al Sub Main

CENTRO DE ESTUDIOS TECNOLOGICOS INDUSTRIAL Y DE SERVICIOS No. 79

Manual para programar sistema gestor de base de datos. Mayo/2012 L.I. TOMÁS HERNÁNDEZ MEDINA .- preguntasytareas@hotmail.com pág. 6

Insertemos el código para el botón Aceptar del formulario FrmPassword.

Private Sub CmdAceptar_Click() Dim RsBuscar As New ADODB.Recordset Dim Bandera As Boolean Bandera = False RsBuscar.Open "SELECT NomUsuario, Password From TBLPassword WHERE NomUsuario='" & TxtUsuario.Text & "' and Password='" & TxtPassword.Text & "'", conexion While Not RsBuscar.EOF Bandera = True RsBuscar.MoveNext Wend If Bandera = True Then MDIMenu.Show Else MsgBox "Error de Acceso", vbInformation, "Mensaje del sistema" End End If Unload me End Sub

Listo, nuestra segunda parte está finalizada, ya podemos comprobar que la conexión de la base de datos está funcionando, además observamos las parte de código para trabajar con el RecordSet y las sentencias SQL.

CENTRO DE ESTUDIOS TECNOLOGICOS INDUSTRIAL Y DE SERVICIOS No. 79

Manual para programar sistema gestor de base de datos. Mayo/2012 L.I. TOMÁS HERNÁNDEZ MEDINA .- preguntasytareas@hotmail.com pág. 7

Al

...