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

Delete from Películas

Where Clave=4562352

Delete from Películas

Where Clave=3523552

Delete from Películas

Where Clave=3523525

Delete from Películas

Where Clave=4623472

[pic 4]

Después utilizamos la opción de update, para modificar los registros.

Use Videoclub

Select*

From Películas

Update        Películas Set Título = 'Matrix'

Where Clave = 5783583

Update        Películas Set Clasificación = 'C'

Where Clave = 5692325

Update        Películas Set Costo = 40.0000

Where Clave = 4235235

Update        Películas Set Costo = 90.0000

...