Chamada De Duas Tabelas Diferentes

[Brunao]

Como faço p/ chamar 2 tabelas diferentes na mesma página, podendo ser 2 tabelas contidas no mesmo banco de dados, me deem um exemplinho!!!!

Tenho uma dúvida, tenho que abrir uma conexão, fechar e abrir a outra, ou não, abro apenas uma conexão e faço duas chamadas???

Aguardo!!!!

[dark0]

opa

beleza?

é simples mano..

só cria a conexao com o banco, e depois, nos seus SQL, você coloca o nome da tabela..

não precisa de mais nada..

seria mais complicado se fossem de banco diferentes

pois, aí teria de fazer outra conexao e tal...

abraços

[[ GuTo ]]

"SELECT *  FROM tab1 INNER JOIN tab2 ON tab1.campo1 = tab2.campo1" 'bla bla

[Guest Marcelo Canevello Ferreira]

Acho q o q você quer é isso... :

%>

' mapeia o caminho

x = Server.MapPath("dados.mdb")

' cria o objeto Conexão

Set Conexao = Server.CreateObject("ADODB.Connection")

' concatena a string do driver com o caminho

liga = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& x

Conexao.Open liga

''''primeiro recordset

strSQL = "Select * from TABELA1"

Set tabela = Server.CreateObject("ADODB.RECORDSET")

Set tabela.ActiveConnection = Conexao

tabela.open strSQL

if not (tabela.BOF and tabela.EOF) then

' imprime os registros na tela

while not tabela.EOF

%>

nome : <%=tabela.Fields("nome")%> <br>

<%

tabela.MoveNext

wend

End If

tabela.close

''''segundo recordset

strSQL = "Select * from TABELA2"

Set tabela = Server.CreateObject("ADODB.RECORDSET")

Set tabela.ActiveConnection = Conexao

tabela.open strSQL

if not (tabela.BOF and tabela.EOF) then

' imprime os registros na tela

while not tabela.EOF

%>

nome : <%=tabela.Fields("nome_dependente")%> <br>

<%

tabela.MoveNext

wend

End If

tabela.close

' fecha a conexão

Conexao.close

' destrói os objetos

Set tabela = nothing

Set Conexao = nothing

%>