Ir para conteúdo

POWERED BY:

Arquivado

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

bartt

Listando por um combobox

Por , em ASP Clássico

Recommended Posts

Ted k'    126

Ted k'
Postado

viu o segundo código que passei?

 

<%@ LANGUAGE="VBScript"%>
<html>
<head>
<title> </title>
</head>
<body>
<%
Dim comandoSQL

caminho=server.mappath("db1.mdb")
conexao ="dbq="&caminho&";driver={microsoft access driver (*.mdb)}"
set con = server.createobject("adodb.connection")
con.open conexao
comandoSQL = "SELECT distribuidora,"&Request.Form("combo_colunas")&" from tarifas"
Set RS = con.EXECUTE(comandoSQL)  
%>
<table  border="1" cellspacing="0" cellpadding="0">
  <tr>
	<td width="171">distribuidora</td>
	<td width="138"><% Response.Write(Request.Form("combo_colunas")) %></td>
  </tr>
  <% DO WHILE NOT RS.EOF %>
  <tr>
	<td><% = RS("distribuidora")%></td>
	<td><% = RS(""&Request.Form("combo_colunas")&"")%></td>
  </tr>
  
  <%
  RS.MOVENEXT : LOOP
  %>
</table>
<%
con.Close
Set con = Nothing
%>
</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

bartt    0

bartt
Postado

TED com o seu codigo listo assim oh: (coluna escolhida c_demanda)DISTRIBUIDORA|C_DEMANDAdistribuidora1|c_demandadistribuidora2|c_demandadistribuidora3|c_demandadistribuidora4|c_demandadistribuidora5|c_demandadistribuidora6|c_demandae nao DISTRIBUIDORA|C_DEMANDAdistribuidora1|17,4distribuidora2|19,4distribuidora3|21,4distribuidora4|19,8distribuidora5|12,2distribuidora6|14,5

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ted k'    126

Ted k'
Postado

rapaz eu testei aki e rolou:

troque essa linha:

<td><% Response.Write(Request.Form("combo_colunas")) %></td>

por essa:

<td><% = RS(""&Request.Form("combo_colunas")&"")%></td>

Compartilhar este post

Link para o post
Compartilhar em outros sites

bartt    0

bartt
Postado

Rapaz era essa linha que tava pelejando pra fazer..deu sim

vlw ai TED k'

 

<%@ LANGUAGE="VBScript"%><html><head><title> </title></head><body><%Dim comandoSQLcaminho=server.mappath("db1.mdb")conexao ="dbq="&caminho&";driver={microsoft access driver (*.mdb)}"set con = server.createobject("adodb.connection")con.open conexaocomandoSQL = "SELECT distribuidora,"&Request.Form("combo_colunas")&" from tarifas ORDER BY "&Request.Form("combo_colunas")&""Set RS = con.EXECUTE(comandoSQL)%><table  border="1" cellspacing="0" cellpadding="0">  <tr>	<td>distribuidora</td>	<td><%Response.Write(Request.Form("combo_colunas"))%></td>  </tr>  <% DO WHILE NOT RS.EOF %>  <tr>	<td><% = RS("distribuidora")%></td>	<td><% = RS(""&Request.Form("combo_colunas")&"")%></td>  </tr>  <%  RS.MOVENEXT : LOOP  %></table><%con.CloseSet con = Nothing%></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ted k'    126

Ted k'
Postado

valeu nada rapaz 20 Reais, acha que é de graça é (hehehehehe auahuahauhua)

qualquer coisa cara você pode postar aqui que estamos æ para ajudar!!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

bartt    0

bartt
Postado

coloca na conta. auhuahvlw a força ai sabe como e ne ted k' começando agora com essa linguagem ai surge um milhão de duvidas com a sintaxe..

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