Base de datos en visual studio

ITeCA
MATERIA: Visual Basic .Net
Tema: Base de Datos
C.C.T. 15PBT1506L
MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 1ITeCA

Base de datos en Visual
Basic.NET

Objetivo:
Una de las funciones de cualquier lenguaje de programación es poder usar
bases de datos y principalmente de Access, aunque puede ser de cualquier
otro manejador de base de datos, para llevar el control de cualquier
actividad que requiera almacenar registros.
En nuestro caso vamos a emplear una vez más la practica de base de
datos de la tienda que haremos en Access 365.
Por lo tanto, primero veremos el diseño de los formularios del proyecto.

Lo primero que debemos hacer es crear el proyecto en visual Basic 2008
con el nombre TiendaVBNet y guardarlo en su memoria.
1
2 3

Ahora procederemos a guardar el proyecto, desde el menú ARCHIVO debe
seleccionar la opción GUARDAR TODO (Ctrl + Shift + S)
Si desea puede guardar el proyecto en el escritorio, en su USB, o donde
usted guste y dar clic al botón GUARDAR
1

Ahora sin cerrar el
proyecto de Visual Basic
.NET, debemos ingresar
al programa de ACCESS
y crear la base de datos
que emplearemos para
este proyecto. Que en
este caso la llamaremos
tienda.accdb y la
debemos almacenar en
la carpeta debug.
1
2
3
4

En nuestro caso vamos a crear 4 tablas que son:
1. Usuarios
2. Clientes
3. Productos
4. Ventas
La tabla de usuarios va a contener la siguiente estructura.

La tabla de Clientes va a contener la siguiente estructura.

La tabla de Productos va a contener la siguiente estructura.

La tabla de Ventas va a contener la siguiente estructura.

Hecho lo anterior debemos ingresar datos a las diversas tablas y la
información que se indica a continuación es solo de ejemplo.
Tabla Usuarios Tabla de Clientes

Tabla Productos

Tabla Ventas
En la Tabla Ventas solo se debe agregar un registro “VACIO”. Todos los
demás datos deben contener el valor 0.

Ordenes para el manejo de Base de Datos en VBNet
Lo primero que debemos hacer en todos los formularios que tendrán
acceso a las diversas tablas de la base de datos se debe insertar el objeto
ADODC1
Este es el icono en el
Cuadro de
Herramientas. Así se muestra dentro
del formulario

Declaración de variables.
Se requieren al menos dos variables: una para conexión a la base de datos
y otras para indicar la tabla a utilizar en cada formulario, la primera debe
ser de tipo adodb.Connection y la segunda de tipo adodb.recordset.
Dim CONEXION As New ADODB.Connection
Dim TABLA As New ADODB.Recordset
Dim RUTA As String
Como se muestra en la imagen

Configuración de la conexión a la base de datos.
En la variable ruta de debe dejar la configuración del motor de la base de
datos, que en este caso es de Access 365, la ruta del directorio de trabajo y
el nombre de la base de datos con la que se va a trabajar.
La variable conexión se asocia a la variable ruta.
Abrir la conexión a la base de datos.
Abrir la tabla de datos en la variable tabla.
Lo anterior se hace por lo general dentro del código del formulario

Configuración de la conexión a la base de datos.
RUTA = "PROVIDER=MICROSOFT.ACE.OLEDB.12.0;DATA SOURCE=" &
CurDir() & "TIENDA.ACCDB"
CONEXION.ConnectionString = RUTA
CONEXION.Open()
TABLA.Open("SELECT * FROM USUARIOS", _
CONEXION, _
ADODB.CursorTypeEnum.adOpenDynamic, _
ADODB.LockTypeEnum.adLockOptimistic)
En los demás formulario los único que cambia en el nombre de la tabla de
datos con la que se va a trabajar, que en este ejemplo es USUARIOS.

A continuación se muestra la imagen de como se debe ingresar el código
en el evento load del formulario.
Este es el código mínimo necesario. Pero puede contener mas
instrucciones según lo requiera cada formulario.

Ordenes para control de registros de la tabla de datos
.MoveFirst() <-- mover puntero al primer registro.
.MoveNnext() <-- mover puntero al siguiente registro.
.MoveLast() <-- mover puntero al ultimo registro.
.MovePrevious() <-- mover puntero al registro anterior.
dato="campo=" & datobuscar & "" <-- dato numérico
dato="campo='" & datobuscar & "'" <-- dato texto
.Find(dato) <-- buscar un dato

.Bof  Función lógica que devuelve verdadero si puntero esta la
principio de la tabla de datos de lo contrario devuelve falso.
.Eof  Función lógica que devuelve verdadero si puntero esta la final de
la tabla de datos de lo contrario devuelve falso.
.Addnew()  Agrega un registro en blanco al final de la tabla
.Fields("campo").value  Indicar el campo a utilizar. ( en vb era !campo)
.Update()  Guardar cambios en la tabla
.Delete()  Eliminar el registro

Orden With
Esta orden nos permite ejecutar las ordenes antes vistas, ya que de lo
contrario no se indica a que tabla se aplicaran.
Se emplea de la siguiente forma:
With TABLA
Ordenes a ejecutar
End With

Fin de la clase 1 de Base de Datos en VBNet. Gracias por su atención. Hagan el
ejercicio y pasen los apuntes a su cuaderno. Cualquier duda pueden enviar
mensaje por WhatsApp o Messenger de FaceBook. Hagan saber a sus papás de
los apuntes y ejercicios. Gracias chicos.

A continuación se indica el diseño de los formularios del proyecto.
Formulario 1 = Acceso al Sistema.

En el código del formulario se debe configurar la conexión y la tabla,
además de que se limpien los dos cuadros de texto. (esta tarea será casi la
misma en los demás formularios).

Botón INGRESAR.
Cuando se de clic al botón ingresar se debe hacer lo siguiente:
1. Mover el puntero al primer registro
2. Buscar el registro
3. Si es fin de archivo entonces es que el usuario no existe y se muestra el
mensaje USUARIO NO EXISTENTE. De lo contrario ahora se compara
la contraseña y si es correcta se oculta el formulario 1 y se muestra el
formulario 2; de lo contrario se muestra el mensaje de que la CLAVE
NO ES VALIDA.
Botón TERMINAR.
Solo debe terminar el programa.
Quedando el código de la siguiente forma.

BOTÓN INGRESAR
BOTÓN TERMINAR
End

Formulario 2 = Menú Principal
El código de los botones es para
mostrar el formulario respectivo y
ocultar el formulario 2.
En clientes es desde NUEVO
hasta ELIMNAR
En Productos es desde NUEVO
hasta ENTRADAS
En Ventas es VENTA y CORTE.
Salir solo lleva la orden END.

Formulario 3 = Alta de Clientes.

Formulario 3 = Alta de Clientes.
Este formulario nos permitirá ingresar nuevos clientes a la tabla de datos.
Para esto en el código del formulario se debe hacer los siguiente:
1. Conexión a la base de dato de tienda.accdb
2. Enlace a la tabla de clientes
3. Limpiar los cuadros de texto
4. Mostrar el siguiente número de cliente disponible

Código del formulario
Conexión a la base de datos
de tienda
Conexión a la tabla de clientes
Limpiar los cuadros de texto
Mostrar el siguiente número de
cliente

Conexión a la base de datos
de tienda
Conexión a la tabla de clientes
cliente

Código del botón
Se debe limpiar los cuadros de texto, mostrar el siguiente numero de
cliente y ubicar el cursor en el segundo cuadro de texto.
cliente
Ubicar el cursor en el segundo
cuadro de texto.

Código del botón
cliente
Ubicar el cursor en el segundo
cuadro de texto.

Código del botón Al dar clic en este botón
Se debe preguntar si desea guardar datos del cliente. En caso afirmativo
hay que agregar un registro en blanco, dejar en los campos el contenido de
los cuadros de texto, actualizar o guardar los datos, mostrar el mensaje que
fue almacenado el registro, ejecutar el botón limpiar; de los contrario
mostrar el mensaje de operación cancelado y ejecutar el botón limpiar

Cerrar el formulario 3 y regresar al formulario 2

Fin de la clase 2 de Base de Datos en VBNet. Gracias por su atención. Hagan el
mensaje por WhatsApp o Messenger de FaceBook. Hagan saber a sus papás de
los apuntes y ejercicios. Gracias chicos.

Formulario 4 = Consulta de Clientes.
En este formulario el usuario podrá ver o consultar los datos de un cliente
en especifico debiendo ingresar su Número; después de esto deberá dar
clic el botón buscar.
Por lo tanto veremos el código y lógica de los diferentes botones y código
del formulario.
37ITeCA MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE

MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 38ITeCA 38ITeCA MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE

RUTA = "PROVIDER=MICROSOFT.ACE.OLEDB.12.0;DATA SOURCE=" & _
CONEXION.Open()
TABLA.Open("SELECT * FROM CLIENTES", _
CONEXION, _
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()

Código del botón
Se debe limpiar los cuadros de texto, y ubicar el cursor en el segundo
cuadro de texto.
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()
TextBox2.Focus()

Botón
3. Si es fin de archivo entonces es que el cliente no existe y se muestra el
mensaje EL CLIENTE NO EXISTENTE. De lo contrario se dejara en los
cuadros de texto el contenido de los campos y mostrar el mensaje que
diga DATOS DEL CLIENTE DISPONIBLE.

Botón With TABLA
.MoveFirst()
YY = "NUMERO=" & TextBox1.Text & ""
.Find(YY)
If (.EOF) Then
MsgBox("EL CLIENTE NO EXISTE")
Else
TextBox1.Text = .Fields("NUMERO").Value
TextBox2.Text = .Fields("NOMBRE").Value
TextBox3.Text = .Fields("RFC").Value
TextBox4.Text = .Fields("DOMICILIO").Value
TextBox5.Text = .Fields("CIUDAD").Value
TextBox6.Text = .Fields("TELEFONO").Value
TextBox2.Focus()
MsgBox("DATOS DEL CLIENTE ESTAN DISPONIBLES")
End If
End With

Código del Botón
Al dar clic en este botón
CÓDIGO:
Me.hide()
Form2.show()

44ITeCA
Fin de la clase 3 de base de datos en VB.Net. Gracias por su atención. Hagan
el ejercicio y pasen los apuntes a su cuaderno. Cualquier duda pueden enviar
mensaje por WhatsApp o Messenger de FaceBook. Hagan saber a sus papás
de los apuntes y ejercicios. Gracias chicos.
MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE

Formulario 5 = Modificar datos del Cliente.
En este formulario el usuario del sistema
podrá modificar o actualizar la
información del cliente, el cual primero
se debe buscar.
Primero debemos declarar las siguientes
variables.

Formulario 5 = Modificar Clientes.
4. El botón de Guardar debe estar oculto o deshabilitado.

Formulario 5 = Código del formulario
CONEXION.Open()
CONEXION, _
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()
Button3.Visible = False

Código del botón
Se debe limpiar los cuadros de texto, y ubicar el cursor en el primer cuadro
de texto.
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()
TextBox1.Focus()

Botón
Cuando se de clic al botón Buscar se debe hacer lo siguiente:
mensaje EL CLIENTE NO EXISTENTE. De lo contrario, es decir, el
cliente se encontró y por lo tanto se dejara en los cuadros de texto el
contenido de los campos, mostrar el mensaje que diga DATOS DEL
CLIENTE DISPONIBLE y se mostrar el botón de guardar (button3).

Botón
With TABLA
.MoveFirst()
.Find(YY)
If (.EOF) Then
Else
TextBox2.Focus()
Button3.Visible=True
End If
End With
50ITeCA

Código del botón Al dar clic en este botón.
Se debe preguntar si desea guardar datos del cliente.
En caso afirmativo, entonces
Dejar en los campos el contenido de los cuadros de texto.
Actualizar o guardar los datos.
Mostrar el mensaje que fue actualizado el registro.
Mandar a ejecutar el botón limpiar.
De los contrario
Mostrar el mensaje de operación cancelado y ejecutar el botón limpiar

Código del botón
xx = MsgBox("GUARDAR DATOS DEL CLIENTE?", vbYesNo, “MODIFICAR DATOS DE CLIENTES")
If (xx = 6) Then
With TABLA
.Fields("NUMERO").Value = TextBox1.Text
.Fields("NOMBRE").Value = TextBox2.Text
.Fields("RFC").Value = TextBox3.Text
.Fields("DOMICILIO").Value = TextBox4.Text
.Fields("CIUDAD").Value = TextBox5.Text
.Fields("TELEFONO").Value = TextBox6.Text
.Update()
End With
MsgBox("EL CLIENTE FUE ACTUALIADO")
Button1.PerformClick()
Else
MsgBox("LA OPERACION FUE CANCELADA")
End If

Cerrar el formulario 5 y regresar al formulario 2.

Formulario 6 = Eliminar datos del Cliente.
podrá dar de baja o eliminar la
información del cliente, el cual primero
se debe buscar.
variables.

Formulario 6 = Eliminar Datos del Cliente.
4. El botón de Eliminar debe estar oculto o deshabilitado.

CONEXION.Open()
CONEXION, _
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()

Código del botón
de texto.
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()
TextBox1.Focus()

Botón
mensaje EL CLIENTE NO EXISTENTE. De lo contrario, es decir, el
CLIENTE DISPONIBLE y se mostrar el botón de Eliminar (button3).

Botón
With TABLA
.MoveFirst()
.Find(YY)
If (.EOF) Then
Else
TextBox2.Focus()
Button3.Visible=True
End If
End With
59ITeCA

Se debe preguntar si desea Eliminar datos del cliente.
En caso afirmativo entonces,
Eliminar el registro.
Mostrar el mensaje que fue eliminado el registro del cliente.
De los contrario

Código del botón
xx = MsgBox(“ELIMINAR DATOS DEL CLIENTE?", vbYesNo, “ELIMINAR CLIENTES")
If (xx = 6) Then
With TABLA
.Delete
End With
MsgBox("EL CLIENTE FUE ELIMINADO")
Else
End If

Fin de la clase 4 de base de datos en VB.Net. Gracias por su atención. Hagan

Formulario 7 = Alta de Productos.
Diseño del formulario de alta
de productos. Donde solo se
indican 6 campos, para
hacerlo igual que el
formulario de clientes.

Formulario 7 = Alta de Productos.
Este formulario nos permitirá ingresar nuevos productos a la tabla de datos.
1. Conexión a la base de dato de tienda.accdb.
2. Enlace a la tabla de productos.
3. Limpiar los cuadros de texto.

Conexión a la base de datos de
tienda
Conexión a la tabla de productos

Código del botón
Ubicar el cursor en el primer
cuadro de texto.

Código del botón Al
dar clic en este botón
Se debe preguntar si desea
guardar datos del producto. En
caso afirmativo hay que agregar
un registro en blanco, dejar en los
campos el contenido de los
cuadros de texto, actualizar o
guardar los datos, mostrar el
mensaje que fue almacenado el
registro, ejecutar el botón limpiar;
de los contrario mostrar el
mensaje de operación cancelado
y ejecutar el botón limpiar.

Fin de la clase Formulario de Alta de Clientes VBNet. Gracias por su atención.
Hagan el ejercicio y pasen los apuntes a su cuaderno. Cualquier duda pueden
enviar mensaje por WhatsApp o Messenger de FaceBook. Hagan saber a sus
papás de los apuntes y ejercicios. Gracias chicos.

Formulario 8 = Consulta de Productos.
71ITeCA MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE
En este formulario el usuario podrá
ver o consultar los datos de un
producto en específico debiendo
ingresar la clave del producto;
después de esto deberá dar clic el
botón buscar.
Por lo tanto veremos el código y
lógica de los diferentes botones y
código del formulario.

Formulario 8 = Consulta de Productos.

Formulario 8 = Consulta de productos.
CONEXION.Open()
TABLA.Open("SELECT * FROM PRODUCTOS", _
CONEXION, _
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()

Código del botón
de texto.
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()
TextBox1.Focus()

Botón
mensaje EL PRODUCTO NO EXISTENTE. De lo contrario se dejara en
los cuadros de texto el contenido de los campos y mostrar el mensaje
que diga DATOS DEL PRODUCTO DISPONIBLE.

Botón With TABLA
.MoveFirst()
YY = "CLAVE=" & TextBox1.Text & ""
.Find(YY)
If (.EOF) Then
MsgBox("EL PRODUCTO NO EXISTE")
Else
TextBox1.Text = .Fields("CLAVE").Value
TextBox2.Text = .Fields("PRODUCTO").Value
TextBox3.Text = .Fields("MARCA").Value
TextBox4.Text = .Fields("DESCRIPCION").Value
TextBox5.Text = .Fields("PRECIO").Value
TextBox6.Text = .Fields("EXISTENCIA").Value
TextBox2.Focus()
MsgBox("DATOS DEL PRODUCTO DISPONIBLES")
End If
End With

Código del Botón
Al dar clic en este botón
CÓDIGO:
Me.hide()
Form2.show()

78ITeCA
Fin de la clase Buscar Productos en VB.Net. Gracias por su atención. Hagan el

Formulario 9 = Modificar datos del producto.
podrá modificar o actualizar la
información del producto, el cual primero
se debe buscar.
variables.

Formulario 9 = Modificar Datos de Productos.

CONEXION.Open()
CONEXION, _
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()

Código del botón
de texto.
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()
TextBox1.Focus()

Botón
mensaje EL PRODUCTO NO EXISTENTE. De lo contrario, es decir, el
PRODUCTO DISPONIBLE y se mostrar el botón de guardar (button3).

Botón
With TABLA
.MoveFirst()
.Find(YY)
If (.EOF) Then
Else
TextBox2.Focus()
Button3.Visible = True
End If
End With
84ITeCA

Se debe preguntar si desea guardar datos del Producto.
En caso afirmativo, entonces
Dejar en los campos el contenido de los cuadros de texto.
Mostrar el mensaje que fue actualizado el registro del producto.
De los contrario

XX = MsgBox("GUARDAR DATOS DEL PRODUCTO?", vbYesNo, "GUARDAR")
If (XX = 6) Then
With TABLA
.Fields("CLAVE").Value = TextBox1.Text
.Fields("PRODUCTO").Value = TextBox2.Text
.Fields("MARCA").Value = TextBox3.Text
.Fields("DESCRIPCION").Value = TextBox4.Text
.Fields("PRECIO").Value = TextBox5.Text
.Fields("EXISTENCIA").Value = TextBox6.Text
.Update()
End With
MsgBox("EL PRODUCTO FUE INGRESADO")
Else
End If
Código del botón
Formulario 9.

Fin de la clase Modificar Productos en VB.Net. Gracias por su atención. Hagan

Formulario 10 = Eliminar datos del Producto.
podrá dar de baja o eliminar la
información de un producto, el cual
primero se debe buscar.
variables.

Formulario 10 = Eliminar Datos del Cliente.
4. El botón de Eliminar debe estar oculto o deshabilitado.

CONEXION.Open()
CONEXION, _
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()

Código del botón
de texto.
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()
TextBox1.Focus()

Botón
producto se encontró y por lo tanto se dejara en los cuadros de texto el
PRODUCTO DISPONIBLE y se mostrar el botón de Eliminar (button3).

Botón
With TABLA
.MoveFirst()
.Find(YY)
If (.EOF) Then
Else
TextBox2.Focus()
Button3.Visible = True
End If
End With

Se debe preguntar si desea Eliminar datos del producto.
En caso afirmativo entonces,
Eliminar el registro.
Mostrar el mensaje que fue eliminado el registro del producto.
De los contrario

Código del botón
xx = MsgBox(“ELIMINAR DATOS DEL PRODUCTO?", vbYesNo, “ELIMINAR PRODUCTOS")
If (xx = 6) Then
With TABLA
.Delete
End With
MsgBox("EL PRODUCTO FUE ELIMINADO")
Else
End If

Fin de la clase Eliminar productos en VB.Net. Gracias por su atención. Hagan

Formulario 11 = Entrada de productos.
podrá más productos ala base de datos,
el cual primero se debe buscar.
variables.

Formulario 11 = Entrada de Productos.

CONEXION.Open()
CONEXION, _
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()
TextBox7.Clear()

Código del botón
de texto.
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()
TextBox7.Clear()
TextBox1.Focus()

Botón
producto se encontró y por lo tanto se dejara en los cuadros de texto el
PRODUCTO DISPONIBLE y se mostrar el botón de guardar (button3).
Además colocar el puntero del mouse en el cuadro de texto 7.

Botón
With TABLA
.MoveFirst()
.Find(YY)
If (.EOF) Then
Else
TextBox7.Focus()
End If
End With
104ITeCA

Se debe sumar la cantidad de la existencia más la cantidad ingresada y
dejar la suman en la existencia (textbox6).
La cantidad ingresada (textbox7) ponerla a cero.
Se debe preguntar si desea guardar datos del Producto.
En caso afirmativo, entonces:
Dejar en el campo de existencia el contenido del textbox6.
Mostrar el mensaje que fue actualizado el registro del producto.
De los contrario

TextBox6.Text = Val(TextBox6.Text) + Val(TextBox7.Text)
TextBox7.Text = 0
XX = MsgBox("GUARDAR DATOS DE PRODUCTO?", vbYesNo, "ENTRADA PRODUCTOS")
If (XX = 6) Then
With TABLA
.Fields("EXISTENCIA").Value = TextBox6.Text
.Update()
End With
MsgBox("LOS CAMBIOS FUERON GUARDADOS")
Else
End If
Formulario 11 - Código del botón

Fin de la clase Entrada de Productos en VB.Net. Gracias por su atención.
Hagan el ejercicio y pasen los apuntes a su cuaderno. Cualquier duda pueden
enviar mensaje por WhatsApp o Messenger de FaceBook. Hagan saber a sus
papás de los apuntes y ejercicios. Gracias chicos.

Base de datos en visual studio

Más contenido relacionado

La actualidad más candente (20)

Similar a Base de datos en visual studio (20)

Último (20)

Base de datos en visual studio