[Resolvido] Select em duas tabelas distintas com a mesma conexão

[gamefe 0]

Boa noite pessoal, procurei aqui no fórum alguns exemplos e não consegui entender o código, então decidi recorrer a vocês.

 

Tenho duas tabelas no mesmo BD que são: produtos_poli com os campos prodcod, produto e quantidade e clientes_poli com os campos clienteid e nome.

 

Minha dúvida é a seguinte. Posso abrir uma tabela de clientes assim:

"SELECT * From clientes_poli Where clienteid = '"&clienteid&"' "

e depois dar um select para mostrar todos os produtos cadastrados? Se sim, como faço? É só colocar um em seguida do outro?

"SELECT * From clientes_poli Where clienteid = '"&clienteid&"' "
"SELECT * From produtos_poli"?

 

Agradeço qualquer ajuda!

Valeu!

[Mário Monteiro 179]

Sim é so selecionar e exibir

 

Armazene os resultados em recordsets diferentes apenas

[Adrifester 0]

Boa noite pessoal, procurei aqui no fórum alguns exemplos e não consegui entender o código, então decidi recorrer a vocês.

 

Tenho duas tabelas no mesmo BD que são: produtos_poli com os campos prodcod, produto e quantidade e clientes_poli com os campos clienteid e nome.

 

Minha dúvida é a seguinte. Posso abrir uma tabela de clientes assim: "SELECT * From clientes_poli Where clienteid = '"&clienteid&"' " e depois dar um select para mostrar todos os produtos cadastrados? Se sim, como faço? É só colocar um em seguida do outro?

"SELECT * From clientes_poli Where clienteid = '"&clienteid&"' "

"SELECT * From produtos_poli"?

 

Agradeço qualquer ajuda!

Valeu!

 

 

ow amigo entra nesse site aki ó que vai te ajudar:

w3schools.com.br

abçs

[xanburzum 169]

faz um INNER JOIN,você precisa ter uma relacionamento entre as tabelas, na verdade, a impôrtancia de uma modelagem de dados bem definida até os mínimos detalhes, como os campos de relacionamentos, um velho ditado diz, que um relacionamento bem definido é a alma do aplicativo, pois daí saem todas as consultas e operações com o banco, influenciando diretamente na otimização e performance do aplicativo

[gamefe 0]

Pessoal, consegui resolver este problema consultando no site www.w3schools.com, valeu Adrifester pela dica!

 

Só que agora esbarrei em outro problema...

 

<%
clienteid = Request("cod")

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

objConn.Open "Driver={MySQL ODBC 3.51 Driver}; SERVER=192.168.0.1; DATABASE=terra; UID=site;PASSWORD=123456"

strQuery = "SELECT clientes_poli.clienteid, clientes_poli.nome, produtos_poli.prodcod, produtos_poli.produto FROM clientes_poli INNER JOIN produtos_poli where clientes_poli.clienteid = '"&clienteid&"' "

Set ObjRs = objConn.Execute(strQuery)

%>

<%if Not ObjRs.EOF then%>

<p align="center"><b><font color="#CC0000" size="2" face="Tahoma"><br>
Este será o novo pedido para o cliente <%=ObjRs("nome")%>, com o código número <%=ObjRs("clienteid")%>.
</p>


<%Response.write ObjRs("produto")%> - <%Response.write ObjRs("prodcod")%><br>


<%
objRS.MoveNext
%> 

<%else%>

<p><font color="#CC0000" size="2" face="Tahoma"><strong><center>
			Não foi encontrado nenhum cliente com o código <%=Request("cod")%>.<br><br>
<%
end if
%>

 

Os dados do cliente estão aparecendo corretamente, só que os produtos cadastrados não. No caso só aparece um produto. Como fazer para dar um MoveNext somente nesta parte de produtos?

 

Valeu pessoal!

[gamefe 0]

Pessoal, consegui arrumar.

 

Bastou colocar <%While Not ObjRs.EOF%> e depois do <% objRS.MoveNext wend %> que mostrou os dados das duas tabelas corretamente.

 

Muito agradecido pela ajuda de vocês!

 

Abraços

[xanburzum 169]

só para finalizar poste o código completo para futuras referencias....

[gamefe 0]

O código completo ficou assim:

 

<%
clienteid = Request("cod")

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

objConn.Open "Driver={MySQL ODBC 3.51 Driver}; SERVER=192.168.0.1; DATABASE=terra; UID=site;PASSWORD=123456"

strQuery = "SELECT clientes_poli.clienteid, clientes_poli.nome, produtos_poli.prodcod, produtos_poli.produto, produtos_poli.quant_disp FROM clientes_poli INNER JOIN produtos_poli where clientes_poli.clienteid = '"&clienteid&"' "

Set ObjRs = objConn.Execute(strQuery)

%>

<%if Not ObjRs.EOF then%>
<form method="GET" action="pedidos_cadastro_poli_terceira.asp" name="form">
<p align="center"><b><font color="#CC0000" size="2" face="Tahoma"><br>
Este será o novo pedido para o cliente <%=ObjRs("nome")%>, com o código número <%=ObjRs("clienteid")%>.
<input name="clienteid" style="width: 406px" type="hidden" value='<%=ObjRs("clienteid")%>' />
</p>




<table style="width: 72%">
<tr>
	<td style="width: 74px"><b><font color="#CC0000" size="2" face="Tahoma">CÓDIGO</td>
	<td style="width: 248px"><b><font color="#CC0000" size="2" face="Tahoma">PRODUTO</td>
	<td style="width: 180px"><b><font color="#CC0000" size="2" face="Tahoma">QUANTIDADE</td>
	<td style="width: 107px"><b><font color="#CC0000" size="2" face="Tahoma">PREÇO</td>
</tr>




<%
dim p
p=0
While Not ObjRs.EOF
p=p+1
%>




<tr>
	<td style="width: 74px"><b><font color="#000000" size="2" face="Tahoma"><%Response.write ObjRs("prodcod")%></td>
	<td style="width: 248px"><b><font color="#000000" size="2" face="Tahoma"><%Response.write ObjRs("produto")%></td>
	<td style="width: 180px">
	<input name="quantidade<%Response.write p%>" style="width: 79px" type="text" /><b><font color="#000000" size="2" face="Tahoma"> de <%Response.write ObjRs("quant_disp")%></td>
	<td style="width: 107px">
	<input name="preco<%Response.write p%>" style="width: 103px" type="text" /></td>
</tr>
<%
objRS.MoveNext
wend
%> 

<tr>
	<td style="width: 74px"> </td>
	<td style="width: 248px"> </td>
	<td style="width: 180px"> </td>
	<td style="width: 107px"> </td>
</tr>
</table>
<center><input type="image" name="imageField" src="btn_gravar.gif"></center>
</FORM>

<%else%>

<p><font color="#CC0000" size="2" face="Tahoma"><strong><center>
			Não foi encontrado nenhum cliente com o código <%=Request("cod")%>.<br><br>


<%

end if

%>

 

Valeu galera!

[Adrifester 0]

Pessoal, consegui resolver este problema consultando no site www.w3schools.com, valeu Adrifester pela dica!

 

Só que agora esbarrei em outro problema...

 

<%
clienteid = Request("cod")

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

objConn.Open "Driver={MySQL ODBC 3.51 Driver}; SERVER=192.168.0.1; DATABASE=terra; UID=site;PASSWORD=123456"

strQuery = "SELECT clientes_poli.clienteid, clientes_poli.nome, produtos_poli.prodcod, produtos_poli.produto FROM clientes_poli INNER JOIN produtos_poli where clientes_poli.clienteid = '"&clienteid&"' "

Set ObjRs = objConn.Execute(strQuery)

%>

<%if Not ObjRs.EOF then%>

<p align="center"><b><font color="#CC0000" size="2" face="Tahoma"><br>
Este será o novo pedido para o cliente <%=ObjRs("nome")%>, com o código número <%=ObjRs("clienteid")%>.
</p>


<%Response.write ObjRs("produto")%> - <%Response.write ObjRs("prodcod")%><br>


<%
objRS.MoveNext
%> 

<%else%>

<p><font color="#CC0000" size="2" face="Tahoma"><strong><center>
			Não foi encontrado nenhum cliente com o código <%=Request("cod")%>.<br><br>
<%
end if
%>

 

Os dados do cliente estão aparecendo corretamente, só que os produtos cadastrados não. No caso só aparece um produto. Como fazer para dar um MoveNext somente nesta parte de produtos?

 

Valeu pessoal!

 

 

Por nada Gamefe,amigos de fórum são para ajudar!!!!!! abração!