Relatorio

[shumi 0]

Galera,

Abri outro tópico, pois mudei tudo e mesmo assim não consegui fazer, mas esse aqui é bem mais fácil.

Veja:

<%Sql = "Select * from mix where o_hexa_e_nosso > 0 or vai_aquecendo > 0 or terceiro_tempo > 0 or clube_dos_tecnicos > 0"Set rs = Conexcao.Execute(Sql)Sql2 = "Select * from merchandising where codbar="&rs("codbar")Set rs2 = Conexcao.Execute(Sql2)Sql3 = "Select * From status where status2 > 0"Set rs3 = Conexcao.Execute(Sql3)%>  <table width="643" border="1">	<!-- INICIO--->	<tr>	  <td width="88"><center><span class="texto10">Código</span></center></td>	  <td width="43"><center><span class="texto10">O Hexa é nosso!</span></td>	<td width="104"><center><span class="texto10">Vai aquecendo!</span></center></td>	  <td width="11"><center><span class="texto10">Terceiro tempo</span></center></td>	  <td width="11"><center><span class="texto10">Clube dos técnicos</span></center></td>	  <td width="11"><center><span class="texto10">Banner aéreo tecido</span></center></td>	  <td width="11"><center><span class="texto10">Clip cardápio</span></center></td>	  <td width="11"><center><span class="texto10">Display escala 7</span></center></td>	  <td width="11"><center><span class="texto10">Adesivo de Banheiro</span></center></td>	  <td width="11"><center><span class="texto10">Bolacha de Chopp</span></center></td>	  <td width="11"><center><span class="texto10">Flâmula</span></center></td>	  <td width="11"><center><span class="texto10">Bandeirola</span></center></td>	  <td width="11"><center><span class="texto10">Jogo americano</span></center></td>	  <td width="11"><center><span class="texto10">Camiseta</span></center></td>	  <td width="11"><center><span class="texto10">Móbile</span></center></td>	  <td width="11"><center><span class="texto10">Moldura para TV</span></center></td>	  <td width="11"><center><span class="texto10">Moldura para telão</span></center></td>	  </tr>	<tr>	  <td><center><span class="texto10"><%=rs("codbar")%></span></center></td>	  <td><center><span class="texto10"><%=rs("o_hexa_e_nosso")%></span></center></td>	  <td><center><span class="texto10"><%=rs("vai_aquecendo")%></span></center></td>	  <td><center><span class="texto10"><%=rs("terceiro_tempo")%></span></center></td>	  <td><center><span class="texto10"><%=rs("clube_dos_tecnicos")%></span></center></td>	  <td><center><span class="texto10"><%=rs("banner_aereo")%></span></center></td>	  <td><center><span class="texto10"><%=rs("clip_cardapio")%></span></center></td>	  <td><center><span class="texto10"><%=rs("display_escala_7")%></span></center></td>	  <td><center><span class="texto10"><%=rs2("adesivo_de_banheiro")%></span></center></td>	  <td><center><span class="texto10"><%=rs2("bolacha_de_chopp")%></span></center></td>	  <td><center><span class="texto10"><%=rs2("flamula")%></span></center></td>	  <td><center><span class="texto10"><%=rs2("bandeirola")%></span></center></td>	  <td><center><span class="texto10"><%=rs2("jogo_americano")%></span></center></td>	  <td><center><span class="texto10"><%=rs2("camiseta")%></span></center></td>	  <td><center><span class="texto10"><%=rs2("mobile")%></span></center></td>	  <td><center><span class="texto10"><%=rs2("moldura_para_tv")%></span></center></td>	  <td><center><span class="texto10"><%=rs2("moldura_para_telao")%></span></center></td>	</tr><!-- FIM -->  </table>

É só fazer o loop, mas eu não entendo..

tipo eu tenho 2 sql por tanto eu tenho que fazer 2 loops??? é isso?

[shumi 0]

Galera eu posso usar 2 MoveNext e 1 while??? :blink:

[filipescoob 1]

Pode sim kara porem não é viavel pois o de dentro pode terminar antes do de fora... entendeuPor exemplo a tem 5 registros e b 6while not a.eofa.movenextb.movenextwendai não rola entedeu....tem que pensar bem nesta logico... não entendi bem o que quer fazer mas acho q deu pra ajudar abraços

[Salgado 4]

Vamos tentar juntar isso:

<%
Sql = "Select * from mix where o_hexa_e_nosso > 0 or vai_aquecendo > 0 or terceiro_tempo > 0 or clube_dos_tecnicos > 0"
Set rs = Conexcao.Execute(Sql)

Sql2 = "Select * from merchandising where codbar="&rs("codbar")
Set rs2 = Conexcao.Execute(Sql2)

Sql3 = "Select * From status where status2 > 0"
Set rs3 = Conexcao.Execute(Sql3)

%>

Numa SQL só?

SELECT * FROM mix, merchandising WHERE (mix.o_hexa_e_nosso > 0 OR mix.vai_aquecendo > 0 OR mix.terceiro_tempo > 0 OR mix.clube_dos_tecnicos > 0) AND merchandising.codbar = mix.codbar;

Isso já resolve a junção dos 2 primeiros.

Qual campo relaciona as tabelas MIX e MERCHANDISING com a tabela STATUS?

[shumi 0]

Salgado, mudou coisa pra caramba no sistema nem vamos usar mais status e como tava dificil de fazer o loop mandei gravar tudo em uma tabela no banco de dados, ai consegui!tem uma SQL só que precisava unir, vou ver qual é e te peço ajuda, alias eu postei ela hoje de manhã em um tópico!Abraços