Visual Basic.NET - Problema al consultar tabla temporal

Val: 229

Problema al consultar tabla temporal

Publicado por José Vicente (113 intervenciones) el 21/10/2021 11:11:21

Hola, creo una tabla temporal en Postgresql y luego intento extraer los máximos, minimos y medias de cada columna, el problema es que al intentar ejecutar la segunda consulta me dice que todavía está ejecutando la primera y no sé porqué puesto que sólo es calcular el máximo valor de esa columna. Mi código es:

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

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

251

252

253

254

255

256

257

258

        'CREAMOS LA TABLA TEMPORAL

        Dim creaSQL As New NpgsqlCommand("CREATE TEMP TABLE medias AS (SELECT sistolica, diastolica, pulsaciones, saturacion FROM valores UNION ALL SELECT sistolica, diastolica, pulsaciones, saturacion FROM respaldo);", conexion)

        creaSQL.ExecuteNonQuery()

        creaSQL.CommandText = "SELECT * FROM medias"

        Dim datemporal As New NpgsqlDataAdapter(creaSQL)

        Dim dt1 As New DataTable

        datemporal.Fill(dt1)

        'NÚMERO DE REGISTROS GRABADOS EN LA TABLA ANUAL

        registrosSQL = New NpgsqlCommand("SELECT COUNT(*) FROM valores;", conexion)

        valor13 = registrosSQL.ExecuteScalar

        numDatos_lbl.Text = "REGISTROS ESTE AÑO EN LA BD: " & valor13

        'NÚMERO DE REGISTROS EN LA BD

        historicoSQL = New NpgsqlCommand("SELECT ((SELECT COUNT(*) FROM valores)+(SELECT COUNT(*) FROM respaldo));", conexion)

        valor14 = historicoSQL.ExecuteScalar

        datosHistorico_lbl.Text = "TOTAL DE REGISTROS EN LA BD: " & valor14

        'MOSTRAMOS MAYOR TENSIÓN SISTÓLICA

        sistomaxSQL = New NpgsqlCommand("SELECT MAX (sistolica) FROM medias;", conexion)

        lee = sistomaxSQL.ExecuteReader()

        lee.Read()

        If lee(0) Is DBNull.Value Then

            valor1 = 0 'lee(0)

        Else

            valor1 = lee(0)

        End If

        sistmax_lbl.Text = "MÁXIMA SISTÓLICA: " & valor1

        'MOSTRAMOS MENOR TENSIÓN SISTÓLICA

        sistominSQL = New NpgsqlCommand("SELECT MIN (sistolica) FROM medias;", conexion) '

        lee4 = sistominSQL.ExecuteReader() 'A command is already in progress: SELECT MAX (sistolica) FROM medias;

        lee4.Read()

        If lee4(0) Is DBNull.Value Then

            valor5 = 0

        Else

            valor5 = lee4(0)

        End If

        sistomin_lbl.Text = "MÍNIMA SISTÓLICA: " & valor5

        'MOSTRAMOS MEDIA SISTÓLICA

        sistomedSQL = New NpgsqlCommand("SELECT ROUND (AVG (sistolica),1) FROM medias;", conexion)

        lee8 = sistomedSQL.ExecuteReader()

        lee8.Read()

        If lee8(0) Is DBNull.Value Then

            valor9 = 0

        Else

            valor9 = lee8(0)

        End If

        MedSisto_lbl.Text = "MEDIA: " & valor9

        'MOSTRAMOS MAYOR TENSIÓN DIASTÓLICA

        diastmaxSQL = New NpgsqlCommand("SELECT MAX (diastolica) FROM medias;", conexion)

        lee1 = diastmaxSQL.ExecuteReader()

        lee1.Read()

        If lee1(0) Is DBNull.Value Then

            valor2 = 0

        Else

            valor2 = lee1(0)

        End If

        diast_lbl.Text = "MÁXIMA DIASTÓLICA: " & valor2

        'MOSTRAMOS MENOR TENSIÓN DIASTÓLICA

        diastminSQL = New NpgsqlCommand("SELECT MIN (diastolica) FROM medias;", conexion)

        lee5 = diastminSQL.ExecuteReader()

        lee5.Read()

        If lee5(0) Is DBNull.Value Then

            valor6 = 0

        Else

            valor6 = lee5(0)

        End If

        diastomin_lbl.Text = "MÍNIMA DIASTÓLICA: " & valor6

        'MOSTRAMOS MEDIA DIASTÓLICA

        diastomedSQL = New NpgsqlCommand("SELECT ROUND (AVG (diastolica),1) FROM medias;", conexion)

        lee9 = diastomedSQL.ExecuteReader()

        lee9.Read()

        If lee9(0) Is DBNull.Value Then

            valor10 = 0

        Else

            valor10 = lee9(0)

        End If

        medDia_lbl.Text = "MEDIA: " & valor10

        'MOSTRAMOS MAYOR SATURACIÓN

        saturmaxSQL = New NpgsqlCommand("SELECT MAX (saturacion) FROM medias;", conexion)

        lee2 = saturmaxSQL.ExecuteReader()

        lee2.Read()

        If lee2(0) Is DBNull.Value Then

            valor3 = 0

        Else

            valor3 = lee2(0)

        End If

        satur_lbl.Text = "MÁXIMA SATURACIÓN: " & valor3

        'MOSTRAMOS MENOR SATURACIÓN

        saturminSQL = New NpgsqlCommand("SELECT MIN (saturacion) FROM medias;", conexion)

        lee6 = saturminSQL.ExecuteReader()

        lee6.Read()

        If lee6(0) Is DBNull.Value Then

            valor7 = 0

        Else

            valor7 = lee6(0)

        End If

        satmin_lbl.Text = "MÍNIMA SATURACIÓN: " & valor7

        'MOSTRAMOS MEDIA DE SATURACIÓN

        saturmedSQL = New NpgsqlCommand("SELECT ROUND (AVG (saturacion)) FROM medias;", conexion)

        lee10 = saturmedSQL.ExecuteReader()

        lee10.Read()

        If lee10(0) Is DBNull.Value Then

            valor11 = 0

        Else

            valor11 = lee10(0)

        End If

        Medsat_lbl.Text = "MEDIA: " & valor11

        'MOSTRAMOS MAYORES PULSACIONES

        pulsamaxSQL = New NpgsqlCommand("SELECT MAX (pulsaciones) FROM medias;", conexion)

        lee3 = pulsamaxSQL.ExecuteReader()

        lee3.Read()

        If lee3(0) Is DBNull.Value Then

            valor4 = 0

        Else

            valor4 = lee3(0)

        End If

        pulsa_lbl.Text = "MÁXIMAS PULSACIONES: " & valor4

        'MOSTRAMOS MENORES PULSACIONES

        pulsaminSQL = New NpgsqlCommand("SELECT MIN (pulsaciones) FROM medias;", conexion)

        lee7 = pulsaminSQL.ExecuteReader()

        lee7.Read()

        If lee7(0) Is DBNull.Value Then

            valor8 = 0

        Else

            valor8 = lee7(0)

        End If

        pulsomin_lbl.Text = "MÍNIMAS PULSACIONES: " & valor8

        'MOSTRAMOS MEDIA DE PULSACIONES

        pulsomedSQL = New NpgsqlCommand("SELECT ROUND (AVG (pulsaciones)) FROM medias;", conexion)

        lee11 = pulsomedSQL.ExecuteReader()

        lee11.Read()

        If lee11(0) Is DBNull.Value Then

            valor12 = 0

        Else

            valor12 = lee11(0)

        End If

        MedPuls_lbl.Text = "MEDIA: " & valor12

¿Podéis echarme una mano? Gracias

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

0

Responder

Pos: 11

Val: 229

Problema al consultar tabla temporal

Publicado por José Vicente (113 intervenciones) el 21/10/2021 13:34:31

Hola, he cambiado la tabla temporal por una vista y me sigue dando el mismo error. ¿Que puedo hacer?. Gracias.

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

0

Comentar

Pos: 7

Val: 377

Problema al consultar tabla temporal

Publicado por Giancarlo (488 intervenciones) el 21/10/2021 16:10:44

cuando ejecutas un reader, debes abrir y cerrar, en este caso te faltó cerrar con el comando close: lee.close

1

2

3

4

5

6

7

8

9

10

11

12

  'MOSTRAMOS MAYOR TENSIÓN SISTÓLICA

         sistomaxSQL = New NpgsqlCommand("SELECT MAX (sistolica) FROM medias;", conexion)

         lee = sistomaxSQL.ExecuteReader()

        lee.Read()

         If lee(0) Is DBNull.Value Then

             valor1 = 0 'lee(0)

         Else

             valor1 = lee(0)

         End If

        lee.close'================== esto te falta=============

        sistmax_lbl.Text = "MÁXIMA SISTÓLICA: " & valor1

         'MOSTRAMOS MENOR TENSIÓN SISTÓLICA

Valora esta respuesta

0

Comentar

Pos: 7

Val: 377

Problema al consultar tabla temporal

Publicado por Giancarlo (488 intervenciones) el 21/10/2021 16:16:36

otro tema, puedes unir la mayoria de tus comando en una sola consulta, asi ya no tienes que enviar comandos a cada rato:

1

2

3

4

5

6

7

8

9

10

11

12

13

14

SELECT

MAX (sistolica),

MIN (sistolica),

ROUND (AVG (sistolica),1),

MAX (diastolica),

MIN (diastolica),

ROUND (AVG (diastolica),1),

MAX (saturacion),

MIN (saturacion),

ROUND (AVG (saturacion)),

MAX (pulsaciones),

MIN (pulsaciones),

ROUND (AVG (pulsaciones))

FROM medias

con esto tendrías todos los valores en una sola fila

adicionalmente, si en caso la cantidad de registros superan los miles (o millones) te recomendaría usar una tabla con solo los valores máximo y minimos, entonces al ingresar datos (con trigger sería lo ideal) modifique esa tabla, asi solo consultas una tabla y ya no haces operaciones

Valora esta respuesta

0

Comentar

Pos: 11

Val: 229

Problema al consultar tabla temporal

Publicado por José Vicente (113 intervenciones) el 21/10/2021 17:25:53

Gracias, ahora si funciona. La última query que me propones ya la tenía prevista. he afinado el código y una de las cosas era optimizar las querys. Gracias amigo.

Valora esta respuesta

0

Comentar