cambiar varios SELECT por uno

Pelao · #1 (**permalink**) 09/06/2008, 06:49

Hola,
estoy realizando me parece demasiadas consultas y conexiones, cuando creo que se podria simplificar a una sola. Aqui mi ejemplo:

Código:

<%
  Set Conn = Server.CreateObject("ADODB.Connection")
  Conn.open "tablero", "sa", ""
  set rs = CreateObject("ADODB.Recordset")
  set rs2 = CreateObject("ADODB.Recordset")
  set rs3 = CreateObject("ADODB.Recordset")
  set rs4 = CreateObject("ADODB.Recordset")
%>
<% 
	Dim SQL
	SQL = "SELECT sum(cub) as parolaccia FROM costos_maxirest WHERE local <= 4  AND month(fecha) = " & month(date()) &" AND year(fecha) = " & year(date()) &" or local >= 7 AND month(fecha) = " & month(date()) &" AND year(fecha) = " & year(date()) &""
	set rs = conn.execute(SQL)
%>
<% 
	Dim SQL2
	SQL2 = "SELECT sum(cub) as bistecca FROM costos_maxirest WHERE local = 5 AND month(fecha) = " & month(date()) &" AND year(fecha) = " & year(date()) &" or local = 6 AND month(fecha) = " & month(date()) &" AND year(fecha) = " & year(date()) &""
	set rs2 = conn.execute(SQL2)
%>
<% 
	Dim SQL3
	SQL3 = "SELECT sum(cub) as total FROM costos_maxirest WHERE month(fecha) = " & month(date()) &" AND year(fecha) = " & year(date()) &""
	set rs3 = conn.execute(SQL3)
%>
<%
	Dim SQL4
	SQL4 = "SELECT MAX(fecha) as fecha2 FROM costos_maxirest WHERE month(fecha) = " & month(date()) &" AND year(fecha) = " & year(date()) &""
	set rs4 = conn.execute(SQL4)
%>

Alguien sabe como mejorar esto?

Muchas gracias a todos!

guille_el3 · #2 (**permalink**) 09/06/2008, 07:02

mmm sin entender que hace tiro esto...

Y ojo que tenes algunas condiciones redundantes

Código:

select (SELECT sum(cub) as parolaccia
       FROM costos_maxirest
       WHERE local <= 4
       AND month(fecha) = " & month(date()) &"
       AND year(fecha) = " & year(date()) &"
       or local >= 7),
       
       (SELECT sum(cub) as bistecca
       FROM costos_maxirest
       WHERE local = 5
       AND month(fecha) = " & month(date()) &"
       AND year(fecha) = " & year(date()) &"
       or local = 6) ,

       (SELECT sum(cub) as total
       FROM costos_maxirest
       WHERE month(fecha) = " & month(date()) &"
       AND year(fecha) = " & year(date()) &"") ,

       (SELECT MAX(fecha) as fecha2
       FROM costos_maxirest
       WHERE month(fecha) = " & month(date()) &"
       AND year(fecha) = " & year(date()) &"")

pruébalo así, espero que sirva.
saludos

Pelao · #3 (**permalink**) 09/06/2008, 07:04

Gracias guille lo pruebo.
Saludos

Pelao · #4 (**permalink**) 09/06/2008, 08:02

Guille,
con el codigo completo de esta forma:

Código:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
  Set Conn = Server.CreateObject("ADODB.Connection")
  Conn.open "tablero", "sa", ""
  set rs = CreateObject("ADODB.Recordset")
		
		Dim SQL
	   SQL = "select (SELECT sum(cub) as parolaccia
       FROM costos_maxirest
       WHERE local <= 4
       AND month(fecha) = " & month(date()) &"
       AND year(fecha) = " & year(date()) &"
       or local >= 7),
       
       (SELECT sum(cub) as bistecca
       FROM costos_maxirest
       WHERE local = 5
       AND month(fecha) = " & month(date()) &"
       AND year(fecha) = " & year(date()) &"
       or local = 6) ,

      (SELECT sum(cub) as total
       FROM costos_maxirest
       WHERE month(fecha) = " & month(date()) &"
       AND year(fecha) = " & year(date()) &"),

      (SELECT MAX(fecha) as fecha2
       FROM costos_maxirest
       WHERE month(fecha) = " & month(date()) &"
       AND year(fecha) = " & year(date()) &")"
	   
	   set rs = Conn.execute(SQL)
%>

me dice lo siguiente:

Tipo de error:
Error de compilación de Microsoft VBScript (0x800A03FD)
Se esperaba 'Case'
/cubiertos/mespormarca.asp, línea 3, columna 7
select (SELECT sum(cub) as parolaccia

Por ahi soy yo que cometi algun error, lo unico que cambie de lo que me pasaste fueron algunas comillas.

Saludos y gracias nuevamente.

guille_el3 · #5 (**permalink**) 09/06/2008, 08:06

Fijate si podes tirar el query directamente en la base de datos. Si ahí anda el problema es de tu código ASP (del que no puedo opinar porque no se...).

Shiryu_Libra · #6 (**permalink**) 09/06/2008, 13:38

lo que les falta es concatenar las lineas para que proceda el codigo

Cita:

SQL = "select (SELECT sum(cub) as parolaccia"&_
"FROM costos_maxirest"&_
"WHERE local <= 4"&_
"AND month(fecha) = " & month(date()) &_
"AND year(fecha) = " & year(date()) &_
"or local >= 7),"&_
"(SELECT sum(cub) as bistecca"&_
"FROM costos_maxirest"&_
"WHERE local = 5"&_
"AND month(fecha) = " & month(date()) &_
"AND year(fecha) = " & year(date()) &_
"or local = 6) ,"&_
"(SELECT sum(cub) as total"&_
"FROM costos_maxirest"&_
"WHERE month(fecha) = " & month(date()) &""&_
"AND year(fecha) = " & year(date()) &"),"&_
"(SELECT MAX(fecha) as fecha2"&_
"FROM costos_maxirest"&_
"WHERE month(fecha) = " & month(date()) &_
"AND year(fecha) = " & year(date()) &")"

tambien, recuerden que para concatenar lineas con este metodo "&_", no debe existir lineas en blanco, marca error

vuelve a intentar y comenta

Pelao · #7 (**permalink**) 09/06/2008, 15:07

Exacto Shiryu_Libra con eso funciono, pero creo que hay un error en la forma de escribir el SELECT...por que poniendo solo esta linea:

Código:

<%    
Dim SQL
SQL = "SELECT (select sum(cub) as parolaccia FROM costos_maxirest)"
set rs = conn.execute(SQL)
%>

me dice:

Tipo de error:
ADODB.Recordset (0x800A0CC1)
No se encontró el elemento en la colección que corresponde con el nombre o el ordinal pedido.

Como que no encuentra el campo cub, pero poniendo solo esto funciona:

Código:

<%
Dim SQL
SQL = "SELECT sum(cub) as parolaccia FROM costos_maxirest"
set rs = conn.execute(SQL)
%>

Entonces pienso que lo que falla es la busqueda de varios SELECT al mismo tiempo.

Espero que se entienda es un poco complicado de explicar.
Gracias a todos por la colaboracion.

Pelao · #8 (**permalink**) 10/06/2008, 12:09

alguien sabe como hacer?

Gracias :$

u_goldman · #9 (**permalink**) 10/06/2008, 12:12

Fijate que tu campo se llama parolaccia, pues utilizaste un alias, por ende, debes llamarlo por ese alias

rs("parolaccia") en lugar de rs("cub")

Saludos

P.D. Por favor no reflotes los temas para que te contesten -no es necesario-, sin duda alguien llegara a hacerlo.

Pelao · #10 (**permalink**) 10/06/2008, 12:17

ok perdon.

yo lo llamo con ese nombre parolaccia, es mas como digo en mi post anterior, usando el select simple funciona...pero no cuando intento hacer otro select.

COmo hago un select dentro de otro?

select (select sum(cub) as parolaccia FROM costos_maxirest) , (select ....
no me funciona de esta manera

gracias

u_goldman · #11 (**permalink**) 10/06/2008, 12:50

Ya...es que el alias en realidad lo debes poner al final de cada sentencia de agregado, fijate en esta salida:

Código:

SELECT
SELECT sum(cub) FROM costos_maxirest [WHERE condiciones] as parolaccia,
SELECT sum(cub) FROM costos_maxirest [WHERE condiciones] as bistecca,
SELECT sum(cub) FROM costos_maxirest [WHERE condiciones] as total,
SELECT MAX(fecha) FROM costos_maxirest [WHERE condiciones] as fecha2

Saludos

Pelao · #12 (**permalink**) 10/06/2008, 12:52

Muchas gracias u_goldman !!! me salvaste :D

u_goldman · #13 (**permalink**) 10/06/2008, 12:54

Por nadas