Fazendo uma enquete

simas · Outubro 5, 2003

Olá pessoal, estou tendo um probleminha nesse scripit, talvez seja besteira para quem entende.

A situação é o seguinte tenho 4 arquivos: conexão.asp, enquete.asp, send_enquete.asp e resultado.asp.

O que deveria acontecer, o usuário entra na pág. enquete.asp, faz a sua escolha e é direcionada para a pág send_enquete, que esta direciona o usuário para a pág. resultado.asp.

O problema é que a pág sen_enquete.asp não direciona, quando o usuário confirma o voto dá o seguinte erro

Microsoft JET Database Engine error '80004005'

Operation must use an updateable query.

/enquete/send_enquete.asp, line 14

( A linha 14 da pág send_enquete.asp é conexao.execute(sql)

Estou enviando os códigos das páginas, para que possam tenter resolver o problema, após resolvido quem quiser posta aqui que eu mando todo o arquivo

Conexao.asp

<%

'------------------------------------------------------------------------------------------

' Este ASP cria a conexão com o banco de dados sem usar DSN

'------------------------------------------------------------------------------------------

' Construo o caminho do HD do servidor que contem o banco de dados para poder fazer uma conexao ao banco de dados sem DNS

caminho=left(Server.mappath(Request.ServerVariables("PATH_INFO")),InstrRev(Server.mappath(Request.ServerVariables("PATH_INFO")),"\"))'

Crio o objeto de conexao ADO

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

conexao.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&caminho&"db\enquete.mdb"

' Abro a conexão

conexao.open

%>

enquete.asp

(

<%

' Seleciono todas as perguntas por ordem decrescente de data

sql="SELECT * FROM enquete_pergunta ORDER BY data DESC"

set rs_enquete_pergunta=conexao.execute(sql)

' Seleciono todas as respostas da pergunta de data mais recente

sql="SELECT * FROM enquete_respostas WHERE ID_enquete="&rs_enquete_pergunta(0)&" ORDER BY id_resposta "

set rs_enquete_respostas=conexao.execute(sql)

%>

<tr>

<%

' Coluna que contem um link para poder ver os resultados desta enquete sem votar

%>

<td align=center bgcolor="#009999" class=nav><a href="resultados.asp?id=<%=rs_enquete_pergunta(0)%>" class=nav><font color="#FFFFFF">ENQUETE</font></a></td>

</tr>

<tr>

<td>

<%

' Formulário que vai enviar o ID da resposta para adicionar mais um hit

%>

<%

' Coluna que contem o texto da pergunta

%>

<%=rs_enquete_pergunta(1)%><br>

<%

' Enquanto houver respostas para esta pergunta....

%>

<%do while not rs_enquete_respostas.eof%>

<%

' Cria um conjunto de radio buttons com o valor do ID da resposta e o texto da resposta

%>

<input selected type="radio" name="resposta" value=

"<%=rs_enquete_respostas(0)%>"><%=rs_enquete_respostas(2)%>

<%rs_enquete_respostas.movenext%>

<%loop%>

</form>

</td>

</tr>

<tr>

<%

' Coluna que contem o butão que efetua o envio do formulário para o ASP que adiciona hits ás respostas%>

</tr>

</table>

</BODY>

Send_enquete.asp

<%

'------------------------------------------------------------------------------------------

' Este ASP adiciona um hit á resposta da enquete

'------------------------------------------------------------------------------------------

' Obtenho o ID da resposta a que tenho de adicionar +1 id_resposta=request.form("resposta")

' Uso esse ID para saber quantos hits essa resposta já tem

sql="SELECT ID_enquete, hits FROM enquete_respostas WHERE ID_resposta="&id_resposta

set resposta=conexao.execute (sql)

' Atualizo o banco de dados com o valor atual de hits + 1 sql="UPDATE enquete_respostas set hits="&resposta("hits")+1&" WHERE id_resposta="&id_resposta

conexao.execute(sql)

' Redireciono o browser do usuário para a página que exibe os resultados das enquetes

response.redirect "resultados.asp?id="&resposta(0)

%>

resultado.asp

' Obtenho o ID da pergunta da qual vou exibir os resultados

id=request.querystring("id")

' Se o ID estiver vazio então exibe a pergunta de data mais recente

if isempty(id) then

sqlend=" ORDER BY data"

else

' Senão exibe a pergunta do ID dado

sqlend=" WHERE ID_enquete="& id

end if

' Transformo esse ID num valor númerico

valor=cint(id)

' Selecciono todas a pergunta do ID

sql="SELECT * FROM enquete_pergunta "& sqlend

set enquete_pergunta=conexao.execute(sql)

%>

<%

' Se não existir pergunta do ID exibe mensagem de erro

if enquete_pergunta.eof then%>

<tr>

<td colspan=3 class=nav align=center>Pergunta inexistente</td>

</tr>

<%'Senão seleciona e exibe respostas

else

' Selecciono todas as respostas dessa pergunta

sql="SELECT * FROM enquete_respostas WHERE ID_enquete="& enquete_pergunta("ID_enquete") &" ORDER BY id_resposta "set enquete_respostas=conexao.execute(sql)

' Selecciono todas as perguntas ordenadas por data crescente

sql="SELECT * FROM enquete_pergunta ORDER BY data "

set perguntas=conexao.execute(sql)

%>

<%

' Linha com o texto da pergunta do ID

%>

</tr>

<%

' Se não tiver respostas exibe a mensagem seguinte

%>

<%if enquete_respostas.eof then%>

<tr>

<td colspan=3 class=enquete>Nenhumas respostas existentes</td>

</tr>

<%

' Se tiver respostas exibe-as

%>

<%else%>

<%total=0%>

<%

' Enquanto as respostas não chegarem ao fim....

%>

<%do while not enquete_respostas.eof

' Calculo o valor total dos Hits

total=total+enquete_respostas("hits")%>

<tr>

<%

' Coluna com o texto da resposta

%>

</td>

<%

' Coluna com as imagens que compoem o grafico de barra desta resposta

%>

<%

' Imagem do inicio da barra

%><img src="imgs/barraopen.gif">

<%

' Cilco for que colona o número de hits da resposta * n, sendo n=5, para dar comprimento á bala, dependendo da grossura do gif, poderá ter mais ou menos valor o n

' Imagem do meio da barra

n=1

for x=0 to enquete_respostas("hits")*n%>

<%next

' Imagem do Fim da barra

%>

<%

' Valor real dos hits dessa resposta

%>

</td>

</tr>

<%

' Passo á resposta seguinte

enquete_respostas.movenext%>

<%loop%>

<%

' Linha em que exibo o valor sumatório dos hits de todas as respostas

%>

<tr>

<td width="20%" nowrap class=enquete><font color="#009999">Total</font></td>

<%

' Coluna que exibe o grafico da barra, mesmo mecanismo das respostas descrito nas linhas anteriores

%>

</tr>

<%end if%>

</table>

<%

' Tabela que vai exibir outras enquetes que não a que estiver a ser exibida

%>

<tr>

<td colspan=2 align=center class=nav>Resultados de Enquetes anteriores</td>

</tr>

<td align=center width="29%">Data</td><td width="100%" align=center>Pergunta</td>

</tr>

<%

' Enquanto não chegar ao fim das perguntas....

%>

<%do while not perguntas.eof%>

<%

' Se o ID da pergunta for diferente da pergunta atual, então essa pergunta vai aparecer na lista

%>

<%if cint(perguntas("id_enquete"))<>cint(enquete_pergunta("ID_enquete")) then%>

<%

' Coluna com o texto da data com link para exibir as respostas dessa pergunta

%>

<td align=center><a href="resultados.asp?id=<%=perguntas("id_enquete")%>" class=enquete><%=perguntas("data")%></a></td>

<%

' Coluna com o texto da pergunta com link para exibir as respostas dessa pergunta

%>

<td align=center><a href="resultados.asp?id=<%=perguntas("id_enquete")%>" class=enquete><%=perguntas("pergunta")%></a>

</td>

</tr>

<%end if%>

<%

' Passo á pergunta seguinte

%>

<%perguntas.movenext%>

<%loop%>

<%end if%>

</table>

:lol: Após resolvido me peçam que eu mando a enquete completinha.

Obrigado a todos.

MetalPhoeniX · Outubro 5, 2003

B) Olá,

Acho q o erro se encontra na send_enquete.asp, acho que parte em negrito abaixo do cod deve ser alterada:

<!--#include file="conn/conexao.asp"--><%'------------------------------------------------------------------------------------------' Este ASP adiciona um hit á resposta da enquete'------------------------------------------------------------------------------------------' Obtenho o ID da resposta a que tenho de adicionar +1 id_resposta=request.form("resposta")' Uso esse ID para saber quantos hits essa resposta já temsql="SELECT ID_enquete, hits FROM enquete_respostas WHERE ID_resposta="&id_respostaset resposta=conexao.execute (sql)' Atualizo o banco de dados com o valor atual de hits + 1 sql="UPDATE enquete_respostas set hits="&resposta("hits")+1&" WHERE id_resposta="&id_respostaconexao.execute(sql)' Redireciono o browser do usuário para a página que exibe os resultados das enquetesresponse.redirect "resultados.asp?id="&resposta(0)%>

Acho que se você retirar a vírgula ele aceita...

De:

sql="SELECT ID_enquete, hits FROM enquete_respostas WHERE ID_resposta="&id_resposta

Para:

sql="SELECT ID_enquete hits FROM enquete_respostas WHERE ID_resposta="&id_resposta

Espero que seja isso...

Fuiz :lol:

simas · Outubro 5, 2003

Olá Eu fiz a modificação mas continuou com o mesmo erro. Mesmo assim, obrigado pela tentativa. ;) Espero outras opinõesGrato.

Entrar

Arquivado

Fazendo uma enquete

Recommended Posts

simas 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

MetalPhoeniX 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

simas 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante