Recuperando dados de duas tabelas

[Sandro Oliveira]

Boa tarde pessaol.

Estou com um problema em ASP onde eu quero recuperar os dados de duas tabelas no banco ACCESS e quando eu mostro na tela o primeiro while quadriplica os dados e o segundo while não mostra nada, conforme exemplo abaixo.

<!-- ## - Declarações ASP - ## -->
<%
    'seta variável com o Obj de ADODB
    Set objConex = Server.CreateObject("ADODB.Connection")

    objConex.ConnectionString = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=c:\inetpub\wwwroot\_estudo\tabelas\bd_exemplo.mdb"
    
    objConex.Open 

    'cria-se o Recordset
    Set objRS =  Server.CreateObject("ADODB.Recordset")
    
    'instrução SQL 
    'inst_Sql="SELECT * FROM tb_videos, tb_perfil  ORDER BY id Desc"
    
    'abre o Obj recordset recebendo os valores alocados na intrução SQL
    objRS.Open inst_sql, objConex, 3, 3

%>



<!-- ## - While para mostrar todos os dados - ## -->
<dl>
    <dt><strong>Vídeos de dança</strong></dt>
    <% Do while Not objRS.EOF %>
        <dd><a href="<%=objRS.Fields("urlVideo")%>" target="_blank"><%=objRS.Fields("descricaoVideo")%></a></dd>
    <%
        objRS.MoveNext 
        Loop
    %>
</dl>

<hr />

<dl>
    <dt><strong>Matérias</strong></dt>
    <% Do while Not objRS.EOF %>
        <dd><%=objRS.Fields("p_data")%> - <%=objRS.Fields("p_titulo")%></dd>
    <%
    objRS.MoveNext 
    Loop
%>
</dl>

Se eu tirar a tabela 'tb_perfil' do Instrução SQL o primeiro while mostra normalmente os registro só que segundo while continua não mostrando os dados.

Com isso gostaria de saber como faço para, em um select só trazer dados de várias tabelas e sair distribuindo na tela?

[.Andreia.]

Existem algum relacionamento entre as tabelas?? Porque dai você poderia fazer um INNER JOIN, tendo apenas 1 select

[Sandro Oliveira]

Existem algum relacionamento entre as tabelas?? Porque dai você poderia fazer um INNER JOIN, tendo apenas 1 select

Não há relacionamento algum Andréia. São coisas tabelas com conteúdos diferentes.

[jow]

Bom dia;

Seleciona uma tabela e exibe os dados dentro do while, depois seleciona outra tabela e exibe os dados dentro de outro while !!!

<!-- ## - Declarações ASP - ## -->
<%
    'seta variável com o Obj de ADODB
    Set objConex = Server.CreateObject("ADODB.Connection")

    objConex.ConnectionString = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=c:\inetpub\wwwroot\_estudo\tabelas\bd_exemplo.mdb"
    
    objConex.Open 

    'cria-se o Recordset
    Set objRS =  Server.CreateObject("ADODB.Recordset")
    
    'instrução SQL 
    'inst_Sql="SELECT * FROM tb_videos ORDER BY id Desc"
    
    'abre o Obj recordset recebendo os valores alocados na intrução SQL
    objRS.Open inst_sql, objConex, 3, 3

%>



<!-- ## - While para mostrar todos os dados - ## -->
<dl>
    <dt><strong>Vídeos de dança</strong></dt>
    <% Do while Not objRS.EOF %>
        <dd><a href="<%=objRS.Fields("urlVideo")%>" target="_blank"><%=objRS.Fields("descricaoVideo")%></a></dd>
    <%
        objRS.MoveNext 
        Loop
    %>
</dl>

<hr />
<%     'instrução SQL 
    'inst_Sql="SELECT * FROM tb_perfil  ORDER BY id Desc"
    
    'abre o Obj recordset recebendo os valores alocados na intrução SQL
    objRS.Open inst_sql, objConex, 3, 3 %>
<dl>
    <dt><strong>Matérias</strong></dt>
    <% Do while Not objRS.EOF %>
        <dd><%=objRS.Fields("p_data")%> - <%=objRS.Fields("p_titulo")%></dd>
    <%
    objRS.MoveNext 
    Loop
%>
</dl>