Ir para conteúdo

POWERED BY:

Arquivado

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

shumi

Problema com consulta e filtros

Por , em ASP Clássico

Recommended Posts

shumi    0

shumi
Postado

Prontinho<%Set Conexcao = Server.CreateObject("ADODB.Connection")Conexcao.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("convencao.mdb"))dim Conexcao, sql, rs, varcod, varcod2, sql2, rs2, sql3, sql4, sql9, sql15, rs3, rs4, rs9, rs15, sql6, rs6, rs10, sql10varcod2=request.querystring("varcod")sql="select*from convencao order by nome"sql3="select razao from convencao order by nome"sql4="select fantasia from convencao order by nome"sql9="select uf from convencao order by nome"sql15="select status from convencao order by nome"sql6="SELECT Count(*) as NumRecords FROM convencao" sql10="select*from userc where login='"&varcod2&"'"Set rs=Conexcao.Execute(sql)Set rs3=Conexcao.Execute(sql3)Set rs4=Conexcao.Execute(sql4)Set rs9=Conexcao.Execute(sql9)Set rs15=Conexcao.Execute(sql15)Set rs6=Conexcao.Execute(sql6)Set rs10=Conexcao.Execute(sql10)%><html><head><title>Administração de Convidados</title><style type="text/css"><!--body { background-color: #9f0203;}--></style><link href="estiloco.css" rel="stylesheet" type="text/css"><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><style type="text/css"><!--a:link { color: #FFFFFF; text-decoration: none;}a:visited { text-decoration: none; color: #FFFFFF;}a:hover { text-decoration: underline; color: #FFFFFF;}a:active { text-decoration: none; color: #FFFFFF;}--></style></head><body><div align="center"> <%If not rs.EOF Then%> <img src="logo-TIM-2005.gif" width="300" height="119"> <br></div><form name="form1" method="post" action="convidados_f.asp"> <table width="921" border="0" align="center" cellpadding="0" cellspacing="0" class="formu"> <tr bgcolor="#003F8A"> <td colspan="16" class="baxo"><img src="ondinha2.gif" width="28" height="20" align="absmiddle">+ <a href="cadastro.asp">Cadastrar Convidados</a></td> </tr> <tr> <td bgcolor="#003399" class="lado1"><div align="center">               Nome               </div></td> <td bgcolor="#003399" class="lado1"><div align="center">Razão Social</div></td> <td bgcolor="#003399" class="lado1"><div align="center">Nome Fantasia</div></td> <td bgcolor="#003399" class="lado1"><div align="center">CPF<br>RG</div></td> <td bgcolor="#003399" class="lado1"><div align="center">Sexo</div></td> <td bgcolor="#003399" class="lado1"><div align="center">Cidade de Partida</div></td> <td width="50" bgcolor="#003399" class="lado1">    Estado    </td> <td width="159" bgcolor="#003399" class="lado1"><div align="center">             Telefone            <br>    Celular  <br> </div></td> <td bgcolor="#003399" class="lado1"><div align="center">Cargo</div></td> <td bgcolor="#003399" class="lado1"><div align="center">Email</div></td> <td bgcolor="#003399" class="lado1"><div align="center">Manequim</div></td> <td bgcolor="#003399" class="lado1"><div align="center">Consultor</div></td> <td bgcolor="#003399" class="lado1"><div align="center">Status</div></td><br> <td width="46" bgcolor="#003399" class="baxo"><div align="center">Editar</div></td> </tr> <center> <tr> <td bgcolor="#003399" class="lado1"><br></td> <td bgcolor="#003399" class="lado1"><select name="razao"> <% sql3="select Distinct(razao) from convencao order by nome" response. write "<option selected>" & "escolha" & "</option>" if not rs3.EOF then response.write "<option>" & rs3.fields("razao") & "</option>" Else Response.write ("Nenhum Registro Encontrado") Response.end end if %> </select></td> <td bgcolor="#003399" class="lado1"><select name="fantasia"> <% sq14="select Distinct(fantasia) from convencao order by nome" response. write "<option selected>" & "escolha" & "</option>" if not rs4.EOF then response.write "<option>" & rs4.fields("fantasia") & "</option>" Else Response.write ("Nenhum Registro Encontrado") Response.end end if %> </select></td>HA desculpa ontem t mandar a mensagem com a intimação de me ajudar ta?foi mal!!!!! ;)

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Achei, cara era para TROCAR aquele SQL3 que tá lá no inicio de seu código por esse:

 sql3="select Distinct(razao) from convencao order by nome"

E não colocá-lo dentro da TAG SELECT do HTML.

 

Faz essa alteração e testa.

Compartilhar este post

Link para o post
Compartilhar em outros sites

shumi    0

shumi
Postado

agora ta dando esse erro:Microsoft OLE DB Provider for ODBC Drivers erro '80040e07' [Microsoft][Driver ODBC para Microsoft Access] Cláusula ORDER BY (nome) em conflito com DISTINCT. /tim05/convidados.asp, line 18 eu colokei o cod assim:<%Set Conexcao = Server.CreateObject("ADODB.Connection")Conexcao.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("convencao.mdb"))dim Conexcao, sql, rs, varcod, varcod2, sql2, rs2, sql3, sql4, sql9, sql15, rs3, rs4, rs9, rs15, sql6, rs6, rs10, sql10varcod2=request.querystring("varcod")sql="select*from convencao order by nome"sql3="select Distinct(razao) from convencao order by nome"sql4="select fantasia from convencao order by nome"sql9="select uf from convencao order by nome"sql15="select status from convencao order by nome"sql6="SELECT Count(*) as NumRecords FROM convencao" sql10="select*from userc where login='"&varcod2&"'"Set rs=Conexcao.Execute(sql)Set rs3=Conexcao.Execute(sql3)Set rs4=Conexcao.Execute(sql4)Set rs9=Conexcao.Execute(sql9)Set rs15=Conexcao.Execute(sql15)Set rs6=Conexcao.Execute(sql6)Set rs10=Conexcao.Execute(sql10)%><html><head><title>Administração de Convidados</title><style type="text/css"><!--body { background-color: #9f0203;}--></style><link href="estiloco.css" rel="stylesheet" type="text/css"><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><style type="text/css"><!--a:link { color: #FFFFFF; text-decoration: none;}a:visited { text-decoration: none; color: #FFFFFF;}a:hover { text-decoration: underline; color: #FFFFFF;}a:active { text-decoration: none; color: #FFFFFF;}--></style></head><body><div align="center"> <%If not rs.EOF Then%> <img src="logo-TIM-2005.gif" width="300" height="119"> <br></div><form name="form1" method="post" action="convidados_f.asp"> <table width="921" border="0" align="center" cellpadding="0" cellspacing="0" class="formu"> <tr bgcolor="#003F8A"> <td colspan="16" class="baxo"><img src="ondinha2.gif" width="28" height="20" align="absmiddle">+ <a href="cadastro.asp">Cadastrar Convidados</a></td> </tr> <tr> <td bgcolor="#003399" class="lado1"><div align="center">               Nome               </div></td> <td bgcolor="#003399" class="lado1"><div align="center">Razão Social</div></td> <td bgcolor="#003399" class="lado1"><div align="center">Nome Fantasia</div></td> <td bgcolor="#003399" class="lado1"><div align="center">CPF<br>RG</div></td> <td bgcolor="#003399" class="lado1"><div align="center">Sexo</div></td> <td bgcolor="#003399" class="lado1"><div align="center">Cidade de Partida</div></td> <td width="50" bgcolor="#003399" class="lado1">    Estado    </td> <td width="159" bgcolor="#003399" class="lado1"><div align="center">             Telefone            <br>    Celular  <br> </div></td> <td bgcolor="#003399" class="lado1"><div align="center">Cargo</div></td> <td bgcolor="#003399" class="lado1"><div align="center">Email</div></td> <td bgcolor="#003399" class="lado1"><div align="center">Manequim</div></td> <td bgcolor="#003399" class="lado1"><div align="center">Consultor</div></td> <td bgcolor="#003399" class="lado1"><div align="center">Status</div></td><br> <td width="46" bgcolor="#003399" class="baxo"><div align="center">Editar</div></td> </tr> <center> <tr> <td bgcolor="#003399" class="lado1"><br></td> <td bgcolor="#003399" class="lado1"> <select name="razao"> <% response. write "<option selected>" & "escolha" & "</option>" if not rs3.EOF THEN response.write "<option>" & rs3.fields("razao") & "</option>" Else Response.write ("Nenhum Registro Encontrado") Response.end end if %> </select></td> <td bgcolor="#003399" class="lado1"><select name="fantasia"> <% response. write "<option selected>" & "escolha" & "</option>" if not rs4.EOF THEN response.write "<option>" & rs4.fields("fantasia") & "</option>" Else Response.write ("Nenhum Registro Encontrado") Response.end end if %> </select></td>a linha 18 é essa:Set rs3=Conexcao.Execute(sql3)Valeu!!!!!!ha!!!! e se eu tiro a linha 18 só aparece o 1º registro!!!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

ql3="select Distinct(razao) from convencao order by nome"tente assimql3="select Distinct(razao) from convencao order by razao"

Compartilhar este post

Link para o post
Compartilhar em outros sites

shumi    0

shumi
Postado

Eae tiozinho tudo bem?

Cara Agora só esta aparecendo o ultimo registro!!!!

 

Valeu!!!!!

 

tiozinho valeu deu certo!!!!!

Voltei tydo como era e acrescentei a parte que você falou!!!!!!!

 

 

Valeu cara!!!!!!

 

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

 

Alias obrigado a todos!!!!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Ufa, ainda bem que acabou hehehehe

 

valeu e boa sorte.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Eae tiozinho tudo bem?Cara Agora só esta aparecendo o ultimo registro!!!!Valeu!!!!!tiozinho valeu deu certo!!!!!Voltei tydo como era e acrescentei a parte que você falou!!!!!!!Valeu cara!!!!!! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif Alias obrigado a todos!!!!!!

Parabens ai tiozinho http://forum.imasters.com.br/public/style_emoticons/default/bye1.gif

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