Práctica 20. Programación

Practica 20. Crea una base de datos para un video club con los siguientes campos: clave de la película, título de la película, género, clasificación y costo de la renta. Realice una conexión con Visual Basic para accesar a la base de datos del videoclub. Agregue 20 registros. Utilice los controles para manejar la base de datos. Después eliminará 5 registros, modificará 5 registros, y agregará 5 registros.

Empezamos creando una base de datos con el nombre de “Videoclub” y creamos una tabla con el nombre de “Películas”, y posteriormente, ponemos los datos para la tabla.

[pic 1]

Después insertamos datos en la tabla.

[pic 2]

Práctica 20

Videoclub

Tabla.Peliculas

Consulta Tabla  Peliculas Select

Use Videoclub

Select*

From Películas

Insert Into Películas (Clave, Título, Género, Clasificación, Costo)

Values (1351354, 'Hasta Que Llegó Su Hora', 'Western', 'PG-15', 50.0000)

Insert Into Películas (Clave, Título, Género, Clasificación, Costo)

Values (3523523, 'Dr. Strangelove', 'Comedia negra', 'R', 60.0000)

Insert Into Películas (Clave, Título, Género, Clasificación, Costo)

Values (7358378, 'Full Metal Jacket', 'Bélico', 'C', 70.0000)

Insert Into Películas (Clave, Título, Género, Clasificación, Costo)

Values (4624626, 'La Lista De Schindler', 'Drama', 'B-15', 70.0000)

Insert Into Películas (Clave, Título, Género, Clasificación, Costo)

Values (5623425, 'Taxi Driver', 'Drama', 'R', 80.0000)

Insert Into Películas (Clave, Título, Género, Clasificación, Costo)

Values (4626247, 'Apocalipsis Now', 'Bélico', 'R', 70.0000)

Insert Into Películas (Clave, Título, Género, Clasificación, Costo)

Values (5783583, 'Blade Runner', 'Ciencia ficción', 'B-15', 60.0000)

Insert Into Películas (Clave, Título, Género, Clasificación, Costo)

Values (4642624, 'Casino', 'Drama', 'R', 70.0000)

Insert Into Películas (Clave, Título, Género, Clasificación, Costo)

Values (7835466, 'El Perfecto Asesino', 'Drama', 'C', 80.0000)

Insert Into Películas (Clave, Título, Género, Clasificación, Costo)

Values (4235235, 'Psicosis', 'Terror', 'B-15', 60.0000)[pic 3]

Después procedemos a utilizar la opción de eliminar 

Use Videoclub

Select*

From Películas

Delete from Películas

Where Clave=1234567

...