Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

vinycius

Titulos

Por , em ASP Clássico

Recommended Posts

vinycius    0

vinycius
Postado

Tenho um BD em access que o mesmo tem que ser dividido em titulos diferentes só que não tenho nem noção de como começar.Alguém pode me ajudar....Por Favor... :(/> :(/>

Compartilhar este post

Link para o post
Compartilhar em outros sites

WLJ    0

WLJ
Postado

Esse Titulo é um campo certo? Então faça uma busca tipo:

 

SELECT * FROM tabela WHERE titulo= "Imobiliárias"

 

Agora se o que você esta querendo é agrupar por titulo é só fazer assim...

 

SELECT * FROM tabela WHERE [condição] GROUP BY titulo

Compartilhar este post

Link para o post
Compartilhar em outros sites

vinycius    0

vinycius
Postado

Deixe explicar melhor.Tenho um BD em access com uma tabela de clientes e outra de titulos táO que preciso é que a pessoa quando entre no site diga qual título quer ver em uma célula que já contenha os títulos e lá abrirá os clientes dentro deste título que a pessoa escolheu.Ficou melhor????

Compartilhar este post

Link para o post
Compartilhar em outros sites

WLJ    0

WLJ
Postado

Deixe explicar melhor.Tenho um BD em access com uma tabela de clientes e outra de titulos táO que preciso é que a pessoa quando entre no site diga qual título quer ver em uma célula que já contenha os títulos e lá abrirá os clientes dentro deste título que a pessoa escolheu.Ficou melhor????

O tabela clientes não tem o compo titulos especificando à qual titulo tal cliente pertence?

Compartilhar este post

Link para o post
Compartilhar em outros sites

vinycius    0

vinycius
Postado

WLJ - Sim eu tenho o campo titulo no cadastro de clientes...Daniel Paes - Sim é exatamente isso, a categoria seria os títulos e o cadastro seria os meus clientes.Podem me ajudar?????????

Compartilhar este post

Link para o post
Compartilhar em outros sites

WLJ    0

WLJ
Postado

WLJ - Sim eu tenho o campo titulo no cadastro de clientes...Daniel Paes - Sim é exatamente isso, a categoria seria os títulos e o cadastro seria os meus clientes.Podem me ajudar?????????

Então kra!!!....É como eu disse acima!!!

SELECT [campos] FROM clientes WHERE titulo= "Imobiliárias"

Compartilhar este post

Link para o post
Compartilhar em outros sites

WLJ    0

WLJ
Postado

Onde vou colocar este código?????????

Cada link você deve passar um parâmetro.Ex: <a href:"mostrar.asp?titulo=imobiliaria">Imobiliária</a>Aí na página mostra.asp (onde aparecerão os cliente) você faz a SQL asssim:sql="SELECT [campos] FROM [tabela] WHERE titulo='"&Request.Querystring("titulo")&"'"Mais dúvidas posta aí...

Compartilhar este post

Link para o post
Compartilhar em outros sites

vinycius    0

vinycius
Postado

WLJ o problema é que eu só tenho um arquivo ASP, tenho que criar maia (desculpe a ignorância).

 

Mas de qualquer forma vou colocar o código asp da minha Pág ai acho que vai ficar mais fácil de você explicar.

 

<%ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\home\tgbrasil\dados\classificados.mdb;"Set Conexao = Server.CreateObject("ADODB.Connection")Conexao.Open ConnStringSet Registros = Server.CreateObject("ADODB.Recordset")Registros.Open "Select * From Clientes Order By NOME Asc", Conexao 'Onde Campo deve ser substituido pelo nome do campo que contém as palavras que queira colocar em ordem%><html><head><title>Classificados TGBrasil</title></head><body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"><table width="669" border="0" cellpadding="0" cellspacing="0">  <!--DWLayoutTable-->  <tr align="center">     <td height="29" colspan="2" valign="top"><font face="Verdana, Arial, Helvetica, sans-serif" size="5" color="#000099"><b>DIVERSOS</b></font></td>  </tr>  <% While Not Registros.EOF %>  <tr>     <td width="120" height="76" align="center" valign="middle"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><img src="logos/<%=(Registros("LOGO").Value)%>"></font></td>    <td width="549" valign="top"><font color="#000099" size="2" face="Verdana, Arial, Helvetica, sans-serif"><%= Registros("NOME") %></font> - <font color="#FF0000" face="Arial, Helvetica, sans-serif"><strong></strong><%= Registros("TITULO") %></font><BR> <%= Registros("ENDERECO") %><BR> <%= Registros("TELEFONE") %><BR>      Email:<a href="mailto:<%= Registros("EMAIL") %>"><%= Registros("EMAIL") %></a> - Site: <a href="<%= Registros("SITE").Value %>"target="_blank"><%= Registros("SITE").Value %></a></td>  </tr>  <tr>     <td height="21" colspan="2" valign="top"> <hr> </td>  </tr>  <%Registros.MoveNext()Wend%>  <%Registros.CloseConexao.Close Set Registros = NothingSet Conexao = Nothing%></table></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

WLJ    0

WLJ
Postado

WLJ o problema é que eu só tenho um arquivo ASP, tenho que criar maia (desculpe a ignorância).Mas de qualquer forma vou colocar o código asp da minha Pág ai acho que vai ficar mais fácil de você explicar.

<%ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\home\tgbrasil\dados\classificados.mdb;"Set Conexao = Server.CreateObject("ADODB.Connection")Conexao.Open ConnStringSet Registros = Server.CreateObject("ADODB.Recordset")Registros.Open "Select * From Clientes Order By NOME Asc", Conexao 'Onde Campo deve ser substituido pelo nome do campo que contém as palavras que queira colocar em ordem%><html><head><title>Classificados TGBrasil</title></head><body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"><table width="669" border="0" cellpadding="0" cellspacing="0">  <!--DWLayoutTable-->  <tr align="center">     <td height="29" colspan="2" valign="top"><font face="Verdana, Arial, Helvetica, sans-serif" size="5" color="#000099"><b>DIVERSOS</b></font></td>  </tr>  <% While Not Registros.EOF %>  <tr>     <td width="120" height="76" align="center" valign="middle"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><img src="logos/<%=(Registros("LOGO").Value)%>"></font></td>    <td width="549" valign="top"><font color="#000099" size="2" face="Verdana, Arial, Helvetica, sans-serif"><%= Registros("NOME") %></font> - <font color="#FF0000" face="Arial, Helvetica, sans-serif"><strong></strong><%= Registros("TITULO") %></font><BR> <%= Registros("ENDERECO") %><BR> <%= Registros("TELEFONE") %><BR>      Email:<a href="mailto:<%= Registros("EMAIL") %>"><%= Registros("EMAIL") %></a> - Site: <a href="<%= Registros("SITE").Value %>"target="_blank"><%= Registros("SITE").Value %></a></td>  </tr>  <tr>     <td height="21" colspan="2" valign="top"> <hr> </td>  </tr>  <%Registros.MoveNext()Wend%>  <%Registros.CloseConexao.Close Set Registros = NothingSet Conexao = Nothing%></table></body></html>
Me passa os valores dos titulos (que estão gravados no campo titulo na tabela de clientes) e o nome do campo tb.

Compartilhar este post

Link para o post
Compartilhar em outros sites

vinycius    0

vinycius
Postado

São muitos, esses títulos podem chegar a um número muito grande como uns 200 ou mais conforme for entrando, não seria mais fácil fazer uma caixa suspensa como essas do forum para escolhar fonte, tamanho e cor?????

Compartilhar este post

Link para o post
Compartilhar em outros sites

WLJ    0

WLJ
Postado

Mamão com açucar agora hein.

O que está em verde é o nome do campo que estão os titulos na tabela Clientes.

Da uma boa lida no Menu (em vermelho) pra ENTENDER!!!

 

 

 

<%

ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\home\tgbrasil\dados\classificados.mdb;"

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

Conexao.Open ConnString

Set Registros = Server.CreateObject("ADODB.Recordset")

Registros.Open "Select * From Clientes WHERE Titulo='"&Request.QueryString("titulo")&"' Order By NOME Asc", Conexao 'Onde Campo deve ser substituido pelo nome do campo que contém as palavras que queira colocar em ordem

%>

 

 

<html>

<head>

<title>Classificados TGBrasil</title>

</head>

 

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

 

Menu: <A HREF="diversos01.asp?titulo=imobiliaria">Imobiliaria</A> -

<A HREF="diversos01.asp?titulo=cabelereiro">Calelereiros</A> -

<A HREF="diversos01.asp?titulo=serralheria">Serralheria</A>

<br>

<br>

 

<table width="669" border="0" cellpadding="0" cellspacing="0">

<!--DWLayoutTable-->

<tr align="center">

  <td height="29" colspan="2" valign="top"><font face="Verdana, Arial, Helvetica, sans-serif" size="5" color="#000099"><b>DIVERSOS</b></font></td>

</tr>

<% While Not Registros.EOF %>

<tr>

  <td width="120" height="76" align="center" valign="middle"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><img src="logos/<%=(Registros("LOGO").Value)%>"></font></td>

  <td width="549" valign="top"><font color="#000099" size="2" face="Verdana, Arial, Helvetica, sans-serif"><%= Registros("NOME") %></font> - <font color="#FF0000" face="Arial, Helvetica, sans-serif"><strong></strong><%= Registros("TITULO") %></font><BR> <%= Registros("ENDERECO") %><BR> <%= Registros("TELEFONE") %><BR>

    Email:<a href="mailto:<%= Registros("EMAIL") %>"><%= Registros("EMAIL") %></a> - Site: <a href="<%= Registros("SITE").Value %>"target="_blank"><%= Registros("SITE").Value %></a></td>

</tr>

<tr>

  <td height="21" colspan="2" valign="top"> <hr> </td>

</tr>

<%

Registros.MoveNext()

Wend

%>

<%

Registros.Close

Conexao.Close

Set Registros = Nothing

Set Conexao = Nothing

%>

</table>

</body>

</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

vinycius    0

vinycius
Postado

WLJ agradeço a sua ajuda foi muito valiosa, muitiiiiiiiiiiiiisssimo OBRIGADOOOOOOOOOOOValeu mesmo.você não sabe o quanto ajudou..Cara o que precisar estamos ai, dentro do meu limite de conhecimento, que é mais na área gráfica, mas estamos ai.OBRIGADOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO :lol:/> :lol:/> :lol:/> :lol:/>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito