Desplegar mis datos del query, checa esto

BlancaYuri · #1 (**permalink**) 20/06/2002, 17:32

Código:

  
&lt;% LANGUAGE = VBScript %&gt;
&lt;HTML&gt;
&lt;HEAD&gt;
&lt;TITLE&gt;Fechas2.asp&lt;/TITLE&gt;
&lt;/HEAD&gt;
&lt;BODY bgcolor=99CCFF&gt;
&lt;IMG src=&quot;image002.jpg&quot;&gt;
&lt;%

Dim COMPLETION_SUBINVENTORY, WIP_ENTITY_NAME, SEGMENT1
Dim DESCRIPTION, SCHEDULED_START_DATE, START_QUANTITY
Dim QUANTITY_COMPLETED, MEANING, DATE_RELEASED
Dim SCHEDULED_COMPLETION_DATE, DATE_COMPLETED, DATE_CLOSED
Dim fechaini 
Dim fechafin 
Dim sSQL, Recordset, Conn

'Recogemos los valores del formulario

fechaini= Request.Form(&quot;fechaini&quot;)
fechafin= Request.Form(&quot;fechafin&quot;)

'Instanciamos y abrimos nuestro objeto conexion 
Set Conn = Server.CreateObject(&quot;ADODB.Connection&quot;)
'Set Conn = Server.CreateObject(&quot;ADODB.Recordset&quot;)
Conn.Open &quot;Donaldson&quot;

'Ahora creamos la sentencia SQL 
sSQL=&quot;Select * From  P1_ORDENES_COMPLETADAS WHERE DATE_COMPLETED between &quot;&amp; fechaini &amp;&quot; and &quot;&amp; fechafin &amp;&quot;&quot;
'SELECT campon FROM tabla WHERE fechaini &gt; fechaini AND fechafin&lt; fechafin&quot;                   

response.Write(sSQL) 
'Set RS = Server.CreateObject(&quot;ADODB.Connection&quot;)
'Recordset.Open Conn, sSQL
'Ejecutamos la orden 
set Recordset = Conn.Execute(sSQL)
'Mostramos los registros
%&gt;
&lt;table align=&quot;center&quot; border=1&gt;
 &lt;th&gt;Subinventario&lt;/th&gt;
 &lt;th&gt;Numero de orden&lt;/th&gt;
 &lt;th&gt;Numero de parte&lt;/th&gt;
 &lt;th&gt;Descripcion&lt;/th&gt;
 &lt;th&gt;Fecha programada de inicio&lt;/th&gt;
 &lt;th&gt;Cantidad programada de piezas&lt;/th&gt;
 &lt;th&gt;Cantidad de piezas comletadas&lt;/th&gt;
 &lt;th&gt;Cantidad de piezas de Scrap&lt;/th&gt;
 &lt;th&gt;Status de la orden&lt;/th&gt;
 &lt;th&gt;Fecha de liberacion de la orden&lt;/th&gt;
 &lt;th&gt;Fecha programada para completar&lt;/th&gt;
 &lt;th&gt;Fecha en que se completo&lt;/th&gt;
 &lt;th&gt;Fecha en que se cerro&lt;/th&gt;
 &lt;/tr&gt;
&lt;%
Do While Not Recordset.EoF
%&gt;
&lt;tr&gt;
&lt;td&gt;&lt;%=RS(&quot;COMPLETION_SUBINVENTORY&quot;)%&gt;&lt;/td&gt;
&lt;td&gt;&lt;%=RS(&quot;WIP_ENTITY_NAME&quot;)%&gt;&lt;/td&gt;
&lt;td&gt;&lt;%=RS(&quot;SEGMENT1&quot;)%&gt;&lt;/td&gt;
&lt;td&gt;&lt;%=RS(&quot;DESCRIPTION&quot;)%&gt;&lt;/td&gt;
&lt;td&gt;&lt;%=RS(&quot;SCHEDULED_START_DATE&quot;)%&gt;&lt;/td&gt;
&lt;td&gt;&lt;%=RS(&quot;START_QUANTITY&quot;)%&gt;&lt;/td&gt;
&lt;td&gt;&lt;%=RS(&quot;QUANTITY_COMPLETED&quot;)%&gt;&lt;/td&gt;
&lt;td&gt;&lt;%=RS(&quot;QUANTITY_SCRAPPED&quot;)%&gt;&lt;/td&gt;
&lt;td&gt;&lt;%=RS(&quot;MEANING&quot;)%&gt;&lt;/td&gt;
&lt;td&gt;&lt;%=RS(&quot;DATE_RELEASED&quot;)%&gt;&lt;/td&gt;
&lt;td&gt;&lt;%=RS(&quot;SCHEDULED_COMPLETION_DATE&quot;)%&gt;&lt;/td&gt;
&lt;td&gt;&lt;%=RS(&quot;DATE_COMPLETED&quot;)%&gt;&lt;/td&gt;
&lt;td&gt;&lt;%=RS(&quot;DATE_CLOSED&quot;)%&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;%
RS.MoveNext
Loop

'Cerramos el sistema de conexion
Conn.Close
%&gt;

&lt;/table&gt;
&lt;br&gt;&lt;br&gt;
&lt;div align=&quot;center&quot;&gt;&lt;a href=&quot;Grafica.asp&quot;&gt;Ver grafica&lt;/a&gt;&lt;/div&gt;

&lt;/BODY&gt;
&lt;/HTML&gt;
 :)

vic78 · #2 (**permalink**) 20/06/2002, 17:49

Listo Checalo por favor y comentame si todo salio bien
Saludos

<% LANGUAGE = VBScript %>
<HTML>
<HEAD>
<TITLE>Fechas2.asp</TITLE>
</HEAD>
<BODY bgcolor=99CCFF>
<IMG src="image002.jpg">
<%

Dim COMPLETION_SUBINVENTORY, WIP_ENTITY_NAME, SEGMENT1
Dim DESCRIPTION, SCHEDULED_START_DATE, START_QUANTITY
Dim QUANTITY_COMPLETED, MEANING, DATE_RELEASED
Dim SCHEDULED_COMPLETION_DATE, DATE_COMPLETED, DATE_CLOSED
Dim fechaini
Dim fechafin
Dim sSQL, Recordset, Conn

'Recogemos los valores del formulario

fechaini= Cdate(Request.Form("fechaini"))'Vic
fechafin= Cdate(Request.Form("fechafin"))'Vic

'Instanciamos y abrimos nuestro objeto conexion
Set Conn = Server.CreateObject("ADODB.Connection")
'Set Conn = Server.CreateObject("ADODB.Recordset")
Conn.Open "Donaldson"

'Ahora creamos la sentencia SQL
'sSQL="Select * From P1_ORDENES_COMPLETADAS WHERE DATE_COMPLETED between "& fechaini &" and "& fechafin &""
sSQL="Select * From P1_ORDENES_COMPLETADAS WHERE DATE_COMPLETED between '"& fechaini &"' and '"& fechafin &"'"'vic
'SELECT campon FROM tabla WHERE fechaini > fechaini AND fechafin< fechafin"
'response.Write(sSQL) Vic
Set RS = Server.CreateObject("ADODB.Connection")
RS.Open Conn, sSQL 'Vic
'Recordset.Open Conn, sSQL
'Ejecutamos la orden
'set Recordset = Conn.Execute(sSQL)
'Mostramos los registros
%>
<table align="center" border=1>
<th>Subinventario</th>
<th>Numero de orden</th>
<th>Numero de parte</th>
<th>Descripcion</th>
<th>Fecha programada de inicio</th>
<th>Cantidad programada de piezas</th>
<th>Cantidad de piezas comletadas</th>
<th>Cantidad de piezas de Scrap</th>
<th>Status de la orden</th>
<th>Fecha de liberacion de la orden</th>
<th>Fecha programada para completar</th>
<th>Fecha en que se completo</th>
<th>Fecha en que se cerro</th>
</tr>
<%
Do While Not Rs.EoF
%>
<tr>
<td><%=RS("COMPLETION_SUBINVENTORY&q uot;)%></td>
<td><%=RS("WIP_ENTITY_NAME")%&g t;</td>
<td><%=RS("SEGMENT1")%>&l t;/td>
<td><%=RS("DESCRIPTION")%>&l t;/td>
<td><%=RS("SCHEDULED_START_DATE&quot ;)%></td>
<td><%=RS("START_QUANTITY")%&gt ;</td>
<td><%=RS("QUANTITY_COMPLETED") %></td>
<td><%=RS("QUANTITY_SCRAPPED")% ></td>
<td><%=RS("MEANING")%>&lt ;/td>
<td><%=RS("DATE_RELEASED")%> </td>
<td><%=RS("SCHEDULED_COMPLETION_DATE ")%></td>
<td><%=RS("DATE_COMPLETED")%&gt ;</td>
<td><%=RS("DATE_CLOSED")%>&l t;/td>
</tr>
<%
RS.MoveNext
Loop

'Cerramos el sistema de conexion
Conn.Close
Rs.Close'Vic
Set Rs = Nothing'Vic
%>

</table>
<br><br>
<div align="center"><a href="Grafica.asp">Ver grafica</a></div>

</BODY>
</HTML>

vic78 · #3 (**permalink**) 20/06/2002, 17:56

Le hice una correccion, please checalo
Saludos

<% LANGUAGE = VBScript %>
<HTML>
<HEAD>
<TITLE>Fechas2.asp</TITLE>
</HEAD>
<BODY bgcolor=99CCFF>
<IMG src="image002.jpg">
<%

Dim COMPLETION_SUBINVENTORY, WIP_ENTITY_NAME, SEGMENT1
Dim DESCRIPTION, SCHEDULED_START_DATE, START_QUANTITY
Dim QUANTITY_COMPLETED, MEANING, DATE_RELEASED
Dim SCHEDULED_COMPLETION_DATE, DATE_COMPLETED, DATE_CLOSED
Dim fechaini
Dim fechafin
Dim sSQL, Recordset, Conn

'Recogemos los valores del formulario

fechaini= Cdate(Request.Form("fechaini"))'Vic
fechafin= Cdate(Request.Form("fechafin"))'Vic

'Instanciamos y abrimos nuestro objeto conexion
Set Conn = Server.CreateObject("ADODB.Connection")
'Set Conn = Server.CreateObject("ADODB.Recordset")
Conn.Open "Donaldson"

'Ahora creamos la sentencia SQL
'sSQL="Select * From P1_ORDENES_COMPLETADAS WHERE DATE_COMPLETED between "& fechaini &" and "& fechafin &""
sSQL="Select * From P1_ORDENES_COMPLETADAS WHERE DATE_COMPLETED between '"& fechaini &"' and '"& fechafin &"'"'vic
'SELECT campon FROM tabla WHERE fechaini > fechaini AND fechafin< fechafin"
'response.Write(sSQL) Vic
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open sSQL, conn 'Vic
'Recordset.Open Conn, sSQL
'Ejecutamos la orden
'set Recordset = Conn.Execute(sSQL)
'Mostramos los registros
%>
<table align="center" border=1>
<th>Subinventario</th>
<th>Numero de orden</th>
<th>Numero de parte</th>
<th>Descripcion</th>
<th>Fecha programada de inicio</th>
<th>Cantidad programada de piezas</th>
<th>Cantidad de piezas comletadas</th>
<th>Cantidad de piezas de Scrap</th>
<th>Status de la orden</th>
<th>Fecha de liberacion de la orden</th>
<th>Fecha programada para completar</th>
<th>Fecha en que se completo</th>
<th>Fecha en que se cerro</th>
</tr>
<%
Do While Not Rs.EoF 'Vic
%>
<tr>
<td><%=RS("COMPLETION_SUBINVENTORY&q uot;)%></td>
<td><%=RS("WIP_ENTITY_NAME")%&g t;</td>
<td><%=RS("SEGMENT1")%>&l t;/td>
<td><%=RS("DESCRIPTION")%>&l t;/td>
<td><%=RS("SCHEDULED_START_DATE&quot ;)%></td>
<td><%=RS("START_QUANTITY")%&gt ;</td>
<td><%=RS("QUANTITY_COMPLETED") %></td>
<td><%=RS("QUANTITY_SCRAPPED")% ></td>
<td><%=RS("MEANING")%>&lt ;/td>
<td><%=RS("DATE_RELEASED")%> </td>
<td><%=RS("SCHEDULED_COMPLETION_DATE ")%></td>
<td><%=RS("DATE_COMPLETED")%&gt ;</td>
<td><%=RS("DATE_CLOSED")%>&l t;/td>
</tr>
<%
RS.MoveNext
Loop

'Cerramos el sistema de conexion
Conn.Close
Rs.Close'Vic
Set Rs = Nothing'Vic
%>

</table>
<br><br>
<div align="center"><a href="Grafica.asp">Ver grafica</a></div>

</BODY>
</HTML>