Hola tengo un problema para importar a excel, me manda mi tabla vacia es decir me manda el excel pero sin los datos que tiene que poner de la bases de datos.
Este problema solo pasa cuando mando la variable 11 de la linea 14
Mi primer archivo donde veo los datos consultados en la DB es este:
Código ASP:
Ver originaldim conexion,calendar1,calendar2,registros,linea
calendar1=request.form("calendar1")
calendar2=request.form("calendar2")
linea=request.form("linea")
Tubo=request.form("tubo")
SET conexion=Server.CreateObject("ADODB.Connection")
conexion.Open "PROVIDER=SQLOLEDB; DATA SOURCE=VALP-Maple01;UID=sa;PWD=messrv;DATABASE=wasp "
SET registros=Server.CreateObject("ADODB.RecordSet")
'registros.open"SELECT peso,tubo from pesos where fecha between '"&calendar1&"' AND '"&calendar2&"'",conexion
if linea="1" Then
registros.open"SELECT p.peso,p.vaso,p.fecha, o.linea,o.tubo FROM pesos as p, optimas as o where o.codigo = p.codOptima AND o.tubo LIKE '"&tubo&"' AND p.fecha Between '"&calendar1&"' AND '"&calendar2&"'order by fecha",conexion
elseif linea=11 then
registros.open"SELECT p.peso,p.vaso,p.fecha, o.linea,o.tubo,o.empaque FROM pesos as p, optimas as o where o.codigo = p.codOptima and o.empaque =1 and o.tubo LIKE '%' AND p.fecha Between '"&calendar1&"' AND '"&calendar2&"' order by fecha",conexion
else
registros.open"SELECT p.peso,p.vaso,p.fecha, o.linea,o.tubo FROM pesos as p, optimas as o where o.codigo = p.codOptima and o.linea = '"&linea&"' and o.tubo LIKE '"&tubo&"' AND p.fecha Between '"&calendar1&"' AND '"&calendar2&"' order by fecha" ,conexion
end if
do while not registros.eof
response.write("<tr>")
response.write("<td>"®istros.fields("linea")&"</td>")
response.write("<td>"®istros.fields("peso")&"</td>")
response.write("<td>"®istros.fields("vaso")&"</td>")
response.write("<td>"®istros.fields("tubo")&"</td>")
response.write("<td>"®istros.fields("fecha")&"</td>")
registros.movenext
loop
conexion.close
'SELECT p.peso,p.tubo,p.fecha, o.linea FROM pesos as p, optimas as o where o.codigo = p.codOptima and o.linea = 'L02N' AND p.fecha Between '2010-05-11 09:42:34.000' AND '2010-05-11 09:42:39.000'
SET conexion2=Server.CreateObject("ADODB.Connection")
conexion2.Open "PROVIDER=SQLOLEDB; DATA SOURCE=VALP-MAPLE01;UID=sa;PWD=messrv;DATABASE=wasp "
SET registros2=Server.CreateObject("ADODB.RecordSet")
registros2.open"SELECT AVG(PESO)as peso from pesos where fecha Between '"&calendar1&"' AND '"&calendar2&"'",conexion2
do while not registros2.eof
response.write("Promedio: "®istros2.fields("peso")&"")
registros2.movenext
loop
conexion2.close
%>
el cual envia las variables al otro archivo que exporta los datos a excel mediante esta linea:
Código ASP:
Ver original<div align="center"> <a href="Show.asp?calendar1=<%=calendar1%>&calendar2=<%=calendar2%>&linea=<%=linea%>&Tubo=<%=tubo%>"> <img src="http://www.expiretrack.com/images/icon_excel.jpg" alt="Exportar" border="0" /><br>Export </a> </div>
El archivo que exporta a excel es este:
Código ASP:
Ver original<%
'dim conexion,calendar1,calendar2,registros,linea
calendar1=request.QueryString("calendar1")
calendar2=request.QueryString("calendar2")
linea=request.QueryString("linea")
Tubo=request.QueryString("tubo")
'response.write(calendar1)
'response.write(calendar2)
'response.write(tubo)
'response.write(linea)
'response.write(vaso)
'response.end()
SET conexion=Server.CreateObject("ADODB.Connection")
conexion.Open "PROVIDER=SQLOLEDB; DATA SOURCE=VALP-MAPLE01;UID=sa;PWD=messrv;DATABASE=wasp "
SET registros=Server.CreateObject("ADODB.RecordSet")
'registros.open"SELECT peso,tubo from pesos where fecha between '"&calendar1&"' AND '"&calendar2&"'",conexion
if linea="1" Then
registros.open"SELECT p.peso,p.vaso,p.fecha, o.linea,o.tubo FROM pesos as p, optimas as o where o.codigo = p.codOptima AND p.fecha Between '"&calendar1&"' AND '"&calendar2&"'order by linea",conexion
elseif linea="11" then
registros.open"SELECT p.peso,p.vaso,p.fecha, o.linea,o.tubo FROM pesos as p, optimas as o where o.codigo = p.codOptima AND o.tubo LIKE '"&tubo&"' AND p.fecha Between '"&calendar1&"' AND '"&calendar2&"'order by fecha",conexion
else
registros.open"SELECT p.peso,p.vaso,p.fecha, o.linea,o.tubo FROM pesos as p, optimas as o where o.codigo = p.codOptima and o.linea = '"&linea&"' and o.tubo LIKE '"&tubo&"' AND p.fecha Between '"&calendar1&"' AND '"&calendar2&"'" ,conexion
end if
do while not registros.eof
%>
<tr>
<td><%=registros.fields("linea")%></td>
<td><%=registros.fields("peso")%></td>
<td><%=registros.fields("vaso")%></td>
<td><%=registros.fields("tubo")%></td>
<td><%=registros.fields("fecha")%></td>
<%
registros.movenext
loop
conexion.close
'SELECT p.peso,p.tubo,p.fecha, o.linea FROM pesos as p, optimas as o where o.codigo = p.codOptima and o.linea = 'L02N' AND p.fecha Between '2010-05-11 09:42:34.000' AND '2010-05-11 09:42:39.000'
%>