[Resolvido] Inner Join com duas tabelas

[thiagobellusse 0]

Boa noite pessoal, depois de muito procurar e com muita ajuda do Xanburzum, consegui fazer uma página de detalhes com Inner Join e gostaria de estar postando aqui para vocês.

Ela esta funcionando perfeitamente.

Espero que ajude a todos.

 

Categoria (Tabela)

id_cat - Numeração Automática

Categoria - Texto

Produto (Tabela)

id_prod - Numeração Automática

id_cat - Número (Campo Relacionado)

Produto - Texto

A página(menu) que envia os dados pra a minha página de detalhes esta assim:

 

<li><a href="categorias.asp?id_cat=<%=rsBuscaProdutos("id_cat")%>"><%=rsBuscaProdutos("categoria")%></a></li>

A página que recebe os dados esta da seguinte forma:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim idcat
Dim id_cat
Dim caminho
Dim conexao 
id_cat = request.querystring("id_cat")
caminho = Server.MapPath("mc.mdb")
Set conexao = Server.CreateObject("ADODB.Connection")
conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&caminho&";"
'Selecionamos todos os Produtos da Tabela
Set rsBuscaProdutos = Server.CreateObject("ADODB.Recordset")
strBuscaProdutos = "SELECT * FROM Categoria where id_cat="&id_cat&";"
rsBuscaProdutos.open strBuscaProdutos, conexao, 3, 3
'Definimos o Numero de Paginas com a propriedade "PageSize" do objeto Recordset
rsBuscaProdutos.PageSize = 1
'Criamos as Validações
if rsBuscaProdutos.eof then
Mensagem = "Nenhum Registro Encontrado"
Response.End 
else
'Definimos em qual pagina o visitante está
if Request.QueryString("pagina")="" then 
intpagina = 1
else
if cint(Request.QueryString("pagina"))<1 then
intpagina = 1
else
if cint(Request.QueryString("pagina"))>rsBuscaProdutos.PageCount then 
intpagina = rsBuscaProdutos.PageCount
else
intpagina = Request.QueryString("pagina")
end if
end if 
end if 
end if
%>
<%
Set rsProdutos = Server.CreateObject("ADODB.Recordset")
strProdutos = "SELECT categoria.categoria, categoria.id_cat, produto.produto, produto.id_prod, produto.valor, produto.foto, produto.descricao, produto.id_cat FROM categoria INNER JOIN produto ON categoria.id_cat = produto.id_cat WHERE produto.id_cat ="&id_cat
rsProdutos.open strProdutos, conexao, 3, 3