help!!!! reporte de dos tablas

[zink]

Estoy tratando de hacer un reporte de dos tablas, por ejemplo tengo este código para
hacer el reporte de una tabla:

TBL.Open "s1" ,DB

While NOT TBL.EOF
Response.Write("<b>Nombre : </b>" & TBL("nom") & "<br>")
Response.Write("<b>Dirección :</b> " & TBL("dir") & "<br>")
Response.Write("<b>Teléfono : </b>" & TBL("tel") & "<br>")
TBL.MoveNext
Wend

y otro igual pero para otra tabla:

TBL.Open "s2" ,DB

While NOT TBL.EOF
Response.Write("<b>Pedido : </b>" & TBL("ped") & "<br>")
Response.Write("<b>Producto :</b> " & TBL("pro") & "<br>")
Response.Write("<b>Total : </b>" & TBL("tot") & "<br>")
TBL.MoveNext
Wend

Lo que quiero hacer es que los dos archivos corran en uno solo, es decir que el reporte me
de los datos de nombre, dir, tel, pedido, producto y total en un solo reporte.

de antemano muchas gracias y espero que a alguien le interese ayudarme.

Si preguntas, pasaras por ingenuo 5 minutos, si no preguntas ....... serás ingenuo toda tu vida

[gmorelis]

Y porque no resolves el problema ya desde SQL ?, es decir haciendo un join de las tablas y devolviendo los resultados en un solo recordset.
Si necesitas ayuda con SQL avisame

[almaluz]

Estoy de acuerdo con el compañero. puedes utilizar una sola consulta sql del tipo

Código:

 sql="SELECT campo1.tabla1, campo2.tabla1, campo1.tabla2....etc FROM tabla1,tabla2... WHERE.....

Espero haber acertado


Saludos

<a href="http://www.almaluz.com"><Img src="http://www.almaluz.com/banners/B_almaluz.gif"></a>

[zink]

ok, lo voy a intentar, si me atoro les aviso para que me echen una mano ok.

[bakanzipp]

mandanos las dos conlsutas sql que haces y la relacion entre las tablas...quizas 2 cabezas piensen mas que una

:Po no?

[zink]

hola bakanzipp: hasta ahorita no utilizo sql para hacer el reporte, debido a que son dos tablas diferentes y solo las leo y luego las escribo con response.redirect, y voy a hacer en un momento mas la idea que me daban arriba de usar SQL, mas tarde lo mando ya que intente algo ok.
Gracias

[zink]

pues lo intenté con un sql así y no se puede me marca error: &quot;No se encontró el elemento en la colección que corresponde con el nombre o el ordinal pedido&quot;. bueno no lo mencioné pero las tablas son muy largas, entonces si no es con un sql ¿Hay otra forma de hacerlo? :roto:

sql=&quot;SELECT s1.[nom],... s2.[tot]FROM s1, s2 WHERE s1.id_1=s2.id_1&quot;
TBL.Open Sql, DB

While NOT TBL.EOF
Response.Write(&quot;&lt;b&gt;nombre : &lt;/b&gt;&quot; &amp; TBL(&quot;nom&quot;) &amp; &quot;&lt;br&gt;&quot;)
.........etc etc
Response.Write(&quot;&lt;b&gt;tot :&lt;/b&gt; &quot; &amp; TBL(&quot;tot&quot;) &amp; &quot;&lt;br&gt;&quot;)
TBL.MoveNext
Wend

Alguien que me pueda ayudar???

[almaluz]

Hola,

Prueba arenombrar las consultas asi haber que tal:

Select [tabla1].[campo1] AS alias1, [tabla2].[campo1] AS alias2 FROM tabla1, tabla2 WERE ...

Y Luego haces referencia a alias1 o alias2, en vez del nombre del campo.

No se,

Aqui te pongo un ejemplo de un codigo que yo estoy utilizando y que funciona. ( es copiado y pegado )

Código:

 
sqlarticulo= "SELECT [articulo].[referencia], [articulo].[nombre] AS articulo_nombre, [articulo].[pvp5], [articulo].[pvp6], [articulo].[foto], [articulo].[notas], [sfamweb].[codigo] AS sfamilia_codigo, [sfamweb].[nombre] AS sfamilia_nombre FROM (articulo INNER JOIN rasubweb ON [articulo].[referencia] =[rasubweb].[referencia]) INNER JOIN sfamweb ON [rasubweb].[codsfam] =[sfamweb].[codigo] WHERE articulo.referencia='"&filtro&"';"
				  
				  rsarticulo.Open sqlarticulo

y aqui otro

Código:

 
SQL = "SELECT DISTINCT [articulo].[referencia], [articulo].[nombre] AS articulo_nombre, [articulo].[pvp5], [sfamweb].[codigo], [sfamweb].[nombre] AS sfamilia_nombre FROM (articulo INNER JOIN rasubweb ON [articulo].[referencia] =[rasubweb].[referencia]) INNER JOIN sfamweb ON [rasubweb].[codsfam] =[sfamweb].[codigo] WHERE enportada=-1 ORDER BY [articulo].[nombre];"
	  
	  rspromocion.Open SQL, con

Haber si te sirven de algo.

Saludos.



<a href="http://www.almaluz.com"><Img src="http://www.almaluz.com/banners/B_almaluz.gif"></a>

[almaluz]

Aqui te dejo otro extracto sacado de un libro.

Código:

 
<HTML>
<TITLE> Sentencias SQL </TITLE>
<BODY>
<!-- #INCLUDE File="ADOVBS.inc" -->

<% 
Set Ob_Conn = Server.CreateObject ("ADODB.Connection")
Set Ob_Command = Server.CreateObject ("ADODB.Command")
Ob_Conn.Open "Tienda"
Ob_Command.ActiveConnection = Ob_Conn
Ob_Command.CommandType = adCmdText
Sql= "SELECT Clientes.Nombre, Direccion, Productos.Nombre, Cantidad "
Sql = Sql & "FROM Clientes, Productos, Pedidos "
Sql = Sql & "WHERE Clientes.Codigo = Pedidos.Codigo AND Pedidos.Referencia = Productos.Referencia"
Ob_Command.CommandText = Sql
SET Ob_RS = Ob_Command.Execute () %>
	
<CENTER>
<TABLE BORDER=1>
<TR>
<TH> NOMBRE </TH>
<TH> DIRECCIÓN </TH>
<TH> PRODUCTO </TH>
<TH> CANTIDAD </TH>

<% DO UNTIL Ob_RS.Eof %>
      <TR>
	<TD> <%= Ob_RS (0) %> </TD>
	<TD> <%= Ob_RS (1) %> </TD>	
	<TD> <%= Ob_RS (2) %> </TD> 
	<TD> <%= Ob_RS (3) %> </TD>
<%	Ob_RS.MoveNext
LOOP 
Ob_RS.Close
Ob_Conn.Close %>
</TABLE>
</CENTER>
</BODY>
</HTML>

Ya nos contaras.


Saludos ;)

<a href="http://www.almaluz.com"><Img src="http://www.almaluz.com/banners/B_almaluz.gif"></a>

[zink]

ok muchas gracias, lo intentaré, aunque como dije las tablas son larguiiiisimas, pero bueno, no hay de otra, a trabajar :-p .
Yo comento despues como me fue ok.

Gracias por la ayuda