-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathSOLUCIÓN-SIMULACRO EXAMEN U7.sql
More file actions
167 lines (132 loc) · 4.56 KB
/
SOLUCIÓN-SIMULACRO EXAMEN U7.sql
File metadata and controls
167 lines (132 loc) · 4.56 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
/*
USANDO CURSORES PREPARA UN CATÁLOGO DE CASAS POR ZONAS E INDICANDO LAS CARACTERISTICAS DE CADA CASA
ZONA: ZONA1 (NOMBRE)
CASA: NOMBRE DE CASA 1 (M2, BAÑOS: X, HABIT: Y)
CARACTERÍSTICAS:
PISCINA, BARBACOA, .....
CASA: NOMBRE DE CASA 15 (M2, BAÑOS: X, HABIT: Y)
CARACTERÍSTICAS:
PISCINA CLIMATIZADA, BARBACOA, JARDÍN,L A/A.....
...
PRECIO MEDIO DE LA ZONA: PRECIO_MEDIO_DE_CASAS_DE_LA_ZONA
ZONA: ZONA2 (NOMBRE)
CASA: NOMBRE DE CASA 4 (M2, BAÑOS: X, HABIT: Y)
CARACTERÍSTICAS:
PISCINA, BARBACOA, .....
CASA: NOMBRE DE CASA 18 (M2, BAÑOS: X, HABIT: Y)
CARACTERÍSTICAS:
PISCINA CLIMATIZADA, BARBACOA, JARDÍN,L A/A.....
...
PRECIO MEDIO DE LA ZONA: PRECIO_MEDIO_DE_CASAS_DE_LA_ZONA
*/
USE GBDturRural2015;
/*
SELECT nomcasa, m2, numbanios, numhabit, preciobase, nomzona, nomcaracter
-- (select avg(preciobase) from casas as c where casas.codzona = c.codzona) as mediazona -- no es eficiente ya que se calcula la media de la zona de cada casa
FROM casas join zonas on casas.codzona = zonas.numzona
join caracteristicasdecasas on casas.codcasa = caracteristicasdecasas.codcasa
join caracteristicas on caracteristicasdecasas.codcaracter = caracteristicas.numcaracter
ORDER BY nomzona, nomcasa;
*/
/*
FROM zonas join casas on zonas.codzona = casas.numzona
join caracacteristicasdecasas on casas.codcasa = caracacteristicasdecasas.codcasa
join caracteristicas on caracacteristicasdecasas.codcaracter = caracteristicas.numcaracter
*/
drop procedure if exists SIMULACRO_EXAMEN_U7;
DELIMITER $$
CREATE PROCEDURE SIMULACRO_EXAMEN_U7()
BEGIN
-- CALL SIMULACRO_EXAMEN_U7;
DECLARE nombrecasa, nomcasaaux varchar(100) default '';
DECLARE nombrezona, nomzonaaux varchar(100) default '';
DECLARE nombrecaracteristica varchar(100) default '';
DECLARE metros, baños, habitaciones int default 0;
DECLARE preciocasa, preciototalzona decimal(9,2) default 0;
DECLARE primeraZona, primeraCasa boolean default 1;
DECLARE numcasaszona int default 0;
DECLARE DesCaracteristicas varchar(4000) default '';
DECLARE final bit default 0;
DECLARE curCasas CURSOR
FOR SELECT nomcasa, m2, numbanios, numhabit, preciobase, nomzona, nomcaracter
-- (select avg(preciobase) from casas as c where casas.codzona = c.codzona) as mediazona /* no es eficiente ya que se calcula la media de la zona de cada casa*/
FROM casas join zonas on casas.codzona = zonas.numzona
join caracteristicasdecasas on casas.codcasa = caracteristicasdecasas.codcasa
join caracteristicas on caracteristicasdecasas.codcaracter = caracteristicas.numcaracter
ORDER BY nomzona, nomcasa;
DECLARE CONTINUE HANDLER FOR SQLSTATE '02000' SET final = 1;
drop table if exists listado;
create temporary table listado
(descripcion varchar(4000));
OPEN curCasas;
FETCH FROM curCasas INTO nombrecasa, metros, baños, habitaciones, preciocasa, nombrezona, nombrecaracteristica;
-- WHILE not final DO
WHILE final = 0 DO
BEGIN
IF nomzonaaux <> nombrezona THEN
begin
set nomzonaaux = nombrezona;
IF (primeraZona = 1) THEN
set primeraZona = 0;
ELSE
BEGIN
INSERT INTO listado
(descripcion)
VALUES
(concat('PRECIO MEDIO DE LA ZONA: ', preciototalzona/numcasaszona));
set numcasaszona = 0;
END;
END IF;
INSERT INTO listado
(descripcion)
VALUES
(concat('ZONA: ', nombrezona));
set primeraCasa = 1;
set preciototalzona = 0;
end;
END IF;
if nomcasaaux <> nombrecasa then
begin
IF (primeraCasa = 1) THEN
set primeraCasa = 0;
ELSE
begin
-- guardarmos los datos del anterior grupo
INSERT INTO listado
(descripcion)
VALUES
('CARACTERÍSTICAS:'),
(DesCaracteristicas);
set DesCaracteristicas= '';
end;
END IF;
INSERT INTO listado
(descripcion)
VALUES
(concat('CASA: ', nombrecasa,' (METROS:', metros, ', BAÑOS: ', baños, ', HABIT: ',habitaciones, ')'));
set preciototalzona = preciototalzona + preciocasa;
set numcasaszona = numcasaszona + 1;
set nomcasaaux = nombrecasa;
end;
end if;
set DesCaracteristicas = concat(DesCaracteristicas, ', ', nombrecaracteristica);
FETCH FROM curCasas INTO nombrecasa, metros, baños, habitaciones, preciocasa, nombrezona, nombrecaracteristica;
END;
END WHILE;
CLOSE curCasas;
if (select count(*) from listado) > 0 then
BEGIN
INSERT INTO listado
(descripcion)
VALUES
('CARACTERÍSTICAS:'),
(DesCaracteristicas),
(concat('PRECIO MEDIO DE LA ZONA: ', preciototalzona/numcasaszona));
select * from listado;
END;
else
select 'NO EXISTEN CASAS';
end if;
drop table if exists listado;
END $$
DELIMITER ;