Base de datos en visual studio

Ejemplo del Manejo de una Base de Datos en Access con Visual Studio. para alumnos de ITeCA.

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

2. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 2 ITeCA Base de datos en Visual Basic.NET

3. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 3 ITeCA 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.

4. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 4 ITeCA 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

5. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 5 ITeCA 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

6. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 6 ITeCA 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

7. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 7 ITeCA En nuestro caso vamos a crear 4 tablas que son: Usuarios Clientes Productos Ventas La tabla de usuarios va a contener la siguiente estructura.

8. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 8 ITeCA La tabla de Clientes va a contener la siguiente estructura.

9. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 9 ITeCA La tabla de Productos va a contener la siguiente estructura.

10. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 10 ITeCA La tabla de Ventas va a contener la siguiente estructura.

11. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 11 ITeCA 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

12. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 12 ITeCA 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 Productos

13. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 13 ITeCA 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 Ventas En la Tabla Ventas solo se debe agregar un registro “ VACIO ”. Todos los demás datos deben contener el valor 0.

14. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 14 ITeCA 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

15. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 15 ITeCA 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

16. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 16 ITeCA 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

17. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 17 ITeCA 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 .

18. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 18 ITeCA 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.

19. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 19 ITeCA 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

20. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 20 ITeCA . 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

21. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 21 ITeCA 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

22. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 22 ITeCA 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.

23. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 23 ITeCA A continuación se indica el diseño de los formularios del proyecto. Formulario 1 = Acceso al Sistema.

24. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 24 ITeCA 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).

25. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 25 ITeCA Botón INGRESAR . Cuando se de clic al botón ingresar se debe hacer lo siguiente: Mover el puntero al primer registro Buscar el registro 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.

26. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 26 ITeCA BOTÓN INGRESAR BOTÓN TERMINAR End

27. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 27 ITeCA 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.

28. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 28 ITeCA Formulario 3 = Alta de Clientes.

29. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 29 ITeCA 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

30. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 30 ITeCA 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

31. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 31 ITeCA 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

32. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 32 ITeCA 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. Limpiar los cuadros de texto Mostrar el siguiente número de cliente Ubicar el cursor en el segundo cuadro de texto.

33. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 33 ITeCA 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. Limpiar los cuadros de texto Mostrar el siguiente número de cliente Ubicar el cursor en el segundo cuadro de texto.

34. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 34 ITeCA 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

35. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 35 ITeCA Código del botón Al dar clic en este botón Cerrar el formulario 3 y regresar al formulario 2

36. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 36 ITeCA Fin de la clase 2 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.

37. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 37 ITeCA 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. 37 ITeCA MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE

38. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 38 ITeCA 38 ITeCA MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE Formulario 4 = Consulta de Clientes. 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

39. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 39 ITeCA 39 ITeCA MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE Formulario 4 = Consulta de Clientes. RUTA = "PROVIDER=MICROSOFT.ACE.OLEDB.12.0;DATA SOURCE=" & _ CurDir () & "\TIENDA.ACCDB" CONEXION.ConnectionString = RUTA CONEXION.Open () TABLA.Open ("SELECT * FROM CLIENTES", _ CONEXION, _ ADODB.CursorTypeEnum.adOpenDynamic , _ ADODB.LockTypeEnum.adLockOptimistic ) TextBox1.Clear() TextBox2.Clear() TextBox3.Clear() TextBox4.Clear() TextBox5.Clear() TextBox6.Clear()

40. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 40 ITeCA 40 ITeCA MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 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()

41. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 41 ITeCA 41 ITeCA MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE Botón Cuando se de clic al botón ingresar se debe hacer lo siguiente: Mover el puntero al primer registro Buscar el registro 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 .

42. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 42 ITeCA 42 ITeCA MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 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

43. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 43 ITeCA 43 ITeCA MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE Código del Botón Al dar clic en este botón Cerrar el formulario 4 y regresar al formulario 2 CÓDIGO : Me.hide () Form2.show()

44. 44 ITeCA 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

45. Formulario 5 = Modificar datos del Cliente. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 45 ITeCA 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.

46. Formulario 5 = Modificar Clientes. Para esto en el código del formulario se debe hacer los siguiente: Conexión a la base de dato de tienda.accdb Enlace a la tabla de clientes Limpiar los cuadros de texto El botón de Guardar debe estar oculto o deshabilitado. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 46 ITeCA

47. Formulario 5 = Código del formulario RUTA = "PROVIDER=MICROSOFT.ACE.OLEDB.12.0;DATA SOURCE=" & _ CurDir () & "\TIENDA.ACCDB" CONEXION.ConnectionString = RUTA CONEXION.Open () TABLA.Open ("SELECT * FROM CLIENTES", _ CONEXION, _ ADODB.CursorTypeEnum.adOpenDynamic , _ ADODB.LockTypeEnum.adLockOptimistic ) TextBox1.Clear() TextBox2.Clear() TextBox3.Clear() TextBox4.Clear() TextBox5.Clear() TextBox6.Clear() Button3.Visible = False MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 47 ITeCA

48. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 48 ITeCA 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() Button3.Visible = False

49. Botón Cuando se de clic al botón Buscar se debe hacer lo siguiente: Mover el puntero al primer registro Buscar el registro Si es fin de archivo entonces es que el cliente no existe y se muestra el 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). MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 49 ITeCA

50. Botón MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 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") Button3.Visible=True End If End With 50 ITeCA

51. 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 MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 51 ITeCA

52. 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" ) Button1.PerformClick() End If MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 52 ITeCA

53. Código del botón Al dar clic en este botón Cerrar el formulario 5 y regresar al formulario 2. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 53 ITeCA

54. Formulario 6 = Eliminar datos del Cliente. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 54 ITeCA En este formulario el usuario del sistema podrá dar de baja o eliminar la información del cliente, el cual primero se debe buscar. Primero debemos declarar las siguientes variables.

55. Formulario 6 = Eliminar Datos del Cliente. Para esto en el código del formulario se debe hacer los siguiente: Conexión a la base de dato de tienda.accdb Enlace a la tabla de clientes Limpiar los cuadros de texto El botón de Eliminar debe estar oculto o deshabilitado. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 55 ITeCA

56. Formulario 6 = Código del formulario RUTA = "PROVIDER=MICROSOFT.ACE.OLEDB.12.0;DATA SOURCE=" & _ CurDir () & "\TIENDA.ACCDB" CONEXION.ConnectionString = RUTA CONEXION.Open () TABLA.Open ("SELECT * FROM CLIENTES", _ CONEXION, _ ADODB.CursorTypeEnum.adOpenDynamic , _ ADODB.LockTypeEnum.adLockOptimistic ) TextBox1.Clear() TextBox2.Clear() TextBox3.Clear() TextBox4.Clear() TextBox5.Clear() TextBox6.Clear() Button3.Visible = False MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 56 ITeCA

57. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 57 ITeCA 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() Button3.Visible = False

58. Botón Cuando se de clic al botón Buscar se debe hacer lo siguiente: Mover el puntero al primer registro Buscar el registro Si es fin de archivo entonces es que el cliente no existe y se muestra el 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 Eliminar (button3). MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 58 ITeCA

59. Botón MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 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") Button3.Visible=True End If End With 59 ITeCA

60. Código del botón Al dar clic en este botón. 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. Mandar a ejecutar el botón limpiar. De los contrario Mostrar el mensaje de operación cancelado y ejecutar el botón limpiar MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 60 ITeCA

61. 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" ) Button1.PerformClick() Else MsgBox( "LA OPERACION FUE CANCELADA" ) Button1.PerformClick() End If MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 61 ITeCA

62. Código del botón Al dar clic en este botón Cerrar el formulario 6 y regresar al formulario 2. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 62 ITeCA

63. Fin de la clase 4 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 63 ITeCA

64. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 64 ITeCA 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.

65. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 65 ITeCA Formulario 7 = Alta de Productos. Este formulario nos permitirá ingresar nuevos productos 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 productos. 3. Limpiar los cuadros de texto .

66. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 66 ITeCA Código del formulario Conexión a la base de datos de tienda Conexión a la tabla de productos Limpiar los cuadros de texto

67. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 67 ITeCA 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. Limpiar los cuadros de texto Ubicar el cursor en el primer cuadro de texto.

68. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 68 ITeCA 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.

69. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 69 ITeCA Código del botón Al dar clic en este botón Cerrar el formulario 7 y regresar al formulario 2.

70. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 70 ITeCA 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.

71. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 71 ITeCA Formulario 8 = Consulta de Productos. 71 ITeCA 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.

72. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 72 ITeCA 72 ITeCA MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE Formulario 8 = Consulta de Productos. 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 productos. 3. Limpiar los cuadros de texto.

73. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 73 ITeCA 73 ITeCA MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE Formulario 8 = Consulta de productos. RUTA = "PROVIDER=MICROSOFT.ACE.OLEDB.12.0;DATA SOURCE=" & _ CurDir () & "\TIENDA.ACCDB" CONEXION.ConnectionString = RUTA CONEXION.Open () TABLA.Open ("SELECT * FROM PRODUCTOS", _ CONEXION, _ ADODB.CursorTypeEnum.adOpenDynamic , _ ADODB.LockTypeEnum.adLockOptimistic ) TextBox1.Clear() TextBox2.Clear() TextBox3.Clear() TextBox4.Clear() TextBox5.Clear() TextBox6.Clear()

74. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 74 ITeCA 74 ITeCA MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 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()

75. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 75 ITeCA 75 ITeCA MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE Botón Cuando se de clic al botón ingresar se debe hacer lo siguiente: Mover el puntero al primer registro Buscar el registro Si es fin de archivo entonces es que el cliente no existe y se muestra el 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 .

76. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 76 ITeCA 76 ITeCA MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 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

77. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 77 ITeCA 77 ITeCA MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE Código del Botón Al dar clic en este botón Cerrar el formulario 8 y regresar al formulario 2 CÓDIGO : Me.hide () Form2.show()

78. 78 ITeCA Fin de la clase Buscar 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. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE

79. Formulario 9 = Modificar datos del producto. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 79 ITeCA En este formulario el usuario del sistema podrá modificar o actualizar la información del producto, el cual primero se debe buscar. Primero debemos declarar las siguientes variables.

80. Formulario 9 = Modificar Datos de Productos. Para esto en el código del formulario se debe hacer los siguiente: Conexión a la base de dato de tienda.accdb. Enlace a la tabla de productos. Limpiar los cuadros de texto. El botón de Guardar debe estar oculto o deshabilitado. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 80 ITeCA

81. Formulario 9 = Código del formulario RUTA = "PROVIDER=MICROSOFT.ACE.OLEDB.12.0;DATA SOURCE=" & _ CurDir () & "\TIENDA.ACCDB" CONEXION.ConnectionString = RUTA CONEXION.Open () TABLA.Open ("SELECT * FROM PRODUCTOS", _ CONEXION, _ ADODB.CursorTypeEnum.adOpenDynamic , _ ADODB.LockTypeEnum.adLockOptimistic ) TextBox1.Clear() TextBox2.Clear() TextBox3.Clear() TextBox4.Clear() TextBox5.Clear() TextBox6.Clear() Button3.Visible = False MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 81 ITeCA

82. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 82 ITeCA 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() Button3.Visible = False

83. Botón Cuando se de clic al botón Buscar se debe hacer lo siguiente: Mover el puntero al primer registro Buscar el registro Si es fin de archivo entonces es que el cliente no existe y se muestra el mensaje EL PRODUCTO 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 PRODUCTO DISPONIBLE y se mostrar el botón de guardar (button3). MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 83 ITeCA

84. Botón MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 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() Button3.Visible = True MsgBox("DATOS DEL PRODUCTO DISPONIBLES") End If End With 84 ITeCA

85. Código del botón Al dar clic en este botón. Se debe preguntar si desea guardar datos del Producto. 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 del producto. Mandar a ejecutar el botón limpiar. De los contrario Mostrar el mensaje de operación cancelado y ejecutar el botón limpiar MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 85 ITeCA

86. 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" ) Button1.PerformClick() Else MsgBox( "LA OPERACION FUE CANCELADA" ) Button1.PerformClick() End If Código del botón MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 86 ITeCA Formulario 9.

87. Código del botón Al dar clic en este botón Cerrar el formulario 9 y regresar al formulario 2. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 87 ITeCA

88. Fin de la clase Modificar 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. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 88 ITeCA

89. Formulario 10 = Eliminar datos del Producto. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 89 ITeCA En este formulario el usuario del sistema podrá dar de baja o eliminar la información de un producto, el cual primero se debe buscar. Primero debemos declarar las siguientes variables.

90. Formulario 10 = Eliminar Datos del Cliente. Para esto en el código del formulario se debe hacer los siguiente: Conexión a la base de dato de tienda.accdb Enlace a la tabla de productos. Limpiar los cuadros de texto. El botón de Eliminar debe estar oculto o deshabilitado. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 90 ITeCA

91. Formulario 10 = Código del formulario RUTA = "PROVIDER=MICROSOFT.ACE.OLEDB.12.0;DATA SOURCE=" & _ CurDir () & "\TIENDA.ACCDB" CONEXION.ConnectionString = RUTA CONEXION.Open () TABLA.Open ("SELECT * FROM PRODUCTOS", _ CONEXION, _ ADODB.CursorTypeEnum.adOpenDynamic , _ ADODB.LockTypeEnum.adLockOptimistic ) TextBox1.Clear() TextBox2.Clear() TextBox3.Clear() TextBox4.Clear() TextBox5.Clear() TextBox6.Clear() Button3.Visible = False MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 91 ITeCA

92. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 92 ITeCA 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() Button3.Visible = False

93. Botón Cuando se de clic al botón Buscar se debe hacer lo siguiente: Mover el puntero al primer registro Buscar el registro Si es fin de archivo entonces es que el cliente no existe y se muestra el mensaje EL PRODUCTO NO EXISTENTE . De lo contrario, es decir, el producto 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 PRODUCTO DISPONIBLE y se mostrar el botón de Eliminar (button3). MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 93 ITeCA

94. Botón MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 94 ITeCA 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() Button3.Visible = True MsgBox( "DATOS DEL PRODUCTO DISPONIBLES" ) End If End With

95. Código del botón Al dar clic en este botón. 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. Mandar a ejecutar el botón limpiar. De los contrario Mostrar el mensaje de operación cancelado y ejecutar el botón limpiar MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 95 ITeCA

96. 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" ) Button1.PerformClick() Else MsgBox( "LA OPERACION FUE CANCELADA" ) Button1.PerformClick() End If MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 96 ITeCA

97. Código del botón Al dar clic en este botón Cerrar el formulario 10 y regresar al formulario 2. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 97 ITeCA

98. Fin de la clase Eliminar 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. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 98 ITeCA

99. Formulario 11 = Entrada de productos. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 99 ITeCA En este formulario el usuario del sistema podrá más productos ala base de datos, el cual primero se debe buscar. Primero debemos declarar las siguientes variables.

100. Formulario 11 = Entrada de Productos. Para esto en el código del formulario se debe hacer los siguiente: Conexión a la base de dato de tienda.accdb. Enlace a la tabla de productos. Limpiar los cuadros de texto. El botón de Guardar debe estar oculto o deshabilitado. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 100 ITeCA

101. Formulario 11 = Código del formulario RUTA = "PROVIDER=MICROSOFT.ACE.OLEDB.12.0;DATA SOURCE=" & _ CurDir () & "\TIENDA.ACCDB" CONEXION.ConnectionString = RUTA CONEXION.Open () TABLA.Open ("SELECT * FROM PRODUCTOS", _ CONEXION, _ ADODB.CursorTypeEnum.adOpenDynamic , _ ADODB.LockTypeEnum.adLockOptimistic ) TextBox1.Clear() TextBox2.Clear() TextBox3.Clear() TextBox4.Clear() TextBox5.Clear() TextBox6.Clear() TextBox7.Clear() Button3.Visible = False MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 101 ITeCA

102. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 102 ITeCA 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() TextBox7.Clear() TextBox1.Focus() Button3.Visible = False

103. Botón Cuando se de clic al botón Buscar se debe hacer lo siguiente: Mover el puntero al primer registro Buscar el registro Si es fin de archivo entonces es que el cliente no existe y se muestra el mensaje EL PRODUCTO NO EXISTENTE . De lo contrario, es decir, el producto 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 PRODUCTO DISPONIBLE y se mostrar el botón de guardar (button3). Además colocar el puntero del mouse en el cuadro de texto 7. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 103 ITeCA

104. Botón MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 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 Button3.Visible = False TextBox7.Focus() MsgBox("DATOS DEL PRODUCTO DISPONIBLES") End If End With 104 ITeCA

105. Código del botón Al dar clic en este botón. 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. Actualizar o guardar los datos. Mostrar el mensaje que fue actualizado el registro del producto. Mandar a ejecutar el botón limpiar. De los contrario Mostrar el mensaje de operación cancelado y ejecutar el botón limpiar MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 105 ITeCA

106. 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" ) Button1.PerformClick() Else MsgBox( "LA OPERACION FUE CANCELADA" ) Button1.PerformClick() End If Formulario 11 - Código del botón MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 106 ITeCA

107. Código del botón Al dar clic en este botón Cerrar el formulario 9 y regresar al formulario 2. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 107 ITeCA

108. 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. MATERIA: VISUAL BASIC .NET - TERCER SEMESTRE 108 ITeCA