Como comparar as respostas com o Db

Tigger · Julho 25, 2005

entao e isso que estou fazendo...a parte da pergunta..esta sendo atualizada direito....mais a parte das perguntas nao esta dando certo..estou recuperando as mesmas...e imprimindo no TEXTAREA...mais na hora de atualizar..da os erros que passeiSeria algo como..um textbox com as alternativas de respostas...onde o ADMIN...poderia ter a oportunidade de adicionar novas alternativas e/ou mudar as que ja se encontram cadastradas.

Salgado · Julho 25, 2005

Nova sequencia lógica, para a Edição de Perguntas e Respostas

Parte do Formulário:

Seleciona a pergunta a Editar

Exibe Pergunta em uma caixa de texto

Campo Hidden com o ID da pergunta

Seleciona Respostas Dessa pergunta

Exibe Respostas em caixas de texto, usando como Name os IDs das respostas

Exibe TextArea Vazio para cadastramento de novas perguntas

Parte de execução

Recupera ID da Pergunta

Atualiza Pergunta

Seleciona ID das Respostas daquela pergunta

Recupera as Respostas usando o ID para o Request

Atualiza os campos (usando o ID no Where) de cada Resposta

Recupera e verifica se o TextArea tem valor, caso possitivo executar a sequencia para cadastro das novas respostas

Nova Seleção da pergunta correta

Reutilizar Lógica já existente para isso

Tigger · Julho 25, 2005

..desculpe, nao consegui entender essa parte. http://forum.imasters.com.br/public/style_emoticons/default/blush.gif

Recupera as Respostas usando o ID para o RequestAtualiza os campos (usando o ID no Where) de cada Resposta

Salgado · Julho 25, 2005

Recupera as Respostas usando o ID para o Request

Como citei para a montagem do form usar os IDs como Nome das caixas de texto, você deve usar os IDs para recuperar esses campo, é uma forma de não haver erro nas Atualizações, colocando respostas em registros errados

Atualiza os campos (usando o ID no Where) de cada Resposta

Ao Atualizar você usa o ID da resposta para explicitar qual resposta você está fazendo isso, se você usar só o ID da pergunta você estará atualizando diversos campos para o mesmo valor

Recupera e verifica se o TextArea tem valor, caso possitivo executar a sequencia para cadastro das novas respostas

Isso é para o caso de Querer/precisar acrescentar novas respostas

Tigger · Julho 25, 2005

esta certo???

ASP

[*]

[*]<%

[*]'** Recuperando o codigo da pergunta

[*] StrCodigo = Request.QueryString("codigo")

[*] StrPergunta = Request.Form("pergunta")

[*]

[*]'** Atualizando a pergunta

[*]SQL = " UPDATE PERGUNTAS SET "

[*]SQL = SQL & " PE_PERGUNTA = ('"&StrPergunta&"') "

[*]SQL = SQL & " WHERE PE_CODIGO = " & StrCodigo

[*] SET RS = Cnn.execute(SQL)

[*]

[*]'*** Selecionando a resposta atual

[*] SQL2 = "SELECT * FROM PERGUNTAS WHERE PE_CODIGO = "&StrCodigo&""

[*] SET RS2 = Cnn.execute(SQL2)

[*]

[*]'*** Seleciona o ID das resposta dessa pergunta

[*] SQL3 = "SELECT * FROM RESPOSTAS WHERE RE_PE_CODIGO = "&StrCodigo&""

[*] SET RS3 = Cnn.execute(SQL3)

[*]

[*]StrResposta = Request(RS3("RE_CODIGO"))

[*]'****duvida nessa linha

[*]

Tigger · Julho 25, 2005

estou tentando algo como;

ASP

[*]

[*] For Each Item in Request.Form

[*] IF ISNumeric(Item) = True THEN

[*] Response.Write(Request.Form(Item))

[*] END IF

[*] Next

[*]

e ele me retornou apenas as respostas ja cadastradas...de acordo com a pergunta.;..sera que e por ae...sera que esta certo?!?!?

Salgado · Julho 25, 2005

<div class='asptop'>ASP</div><div class='aspmain'><link href = "style_images/css_asp.css" rel = "stylesheet" type = "text/css">

<%
'** Recuperando o codigo da pergunta
StrCodigo = Request.QueryString("codigo")
StrPergunta = Request.Form("pergunta")
'** Atualizando a pergunta
SQL = " UPDATE PERGUNTAS SET "
SQL = SQL & " PE_PERGUNTA = ('"&StrPergunta&"') "
SQL = SQL & " WHERE PE_CODIGO = " & StrCodigo
Cnn.execute(SQL) 'Para Update, Insert e Delete não é nescessário "Setar" um recordSet
'*** Selecionando a resposta atual
' SQL2 = "SELECT * FROM PERGUNTAS WHERE PE_CODIGO = "&StrCodigo&""
' SET RS2 = Cnn.execute(SQL2) 'Não precisa fazer esse Select
'*** Seleciona o ID das resposta dessa pergunta
SQL3 = "SELECT RE_CODIGO FROM RESPOSTAS WHERE RE_PE_CODIGO = "&StrCodigo&""
SET RS3 = Cnn.execute(SQL3)
'**** Recupera as Respostas usando o ID para o Request
While Not RS3.EOF
StrResposta = Request(RS3("RE_CODIGO"))
'***** Atualiza os campos (usando o ID no Where) de cada Resposta
'Faça aqui o Update usando WHERE RE_CODIGO = "& RS3("RE_CODIGO") &";"
Wend

</div>Depois mando a fatura. :assobiando: :rolleyes:

Tigger · Julho 25, 2005

irei pensar um pouco agora.... http://forum.imasters.com.br/public/style_emoticons/default/assobiando.gif

value, obrigado pela ajuda http://forum.imasters.com.br/public/style_emoticons/default/joia.gif http://forum.imasters.com.br/public/style_emoticons/default/clap.gif http://forum.imasters.com.br/public/style_emoticons/default/bye1.gif

Tigger · Julho 26, 2005

Codigo que estou utilizando....;

<div class='asptop'>ASP</div><div class='aspmain'><link href = "style_images/css_asp.css" rel = "stylesheet" type = "text/css">

[*]

[*]

[*]<%

[*]'*** Recuperando o codigo da pergunta

[*] StrCodigo = Request.QueryString("codigo")

[*] StrPergunta = Request.Form("pergunta")

[*]

[*]'*** Atualizando a pergunta

[*] SQL = " UPDATE PERGUNTAS SET "

[*] SQL = SQL & " PE_PERGUNTA = ('"&StrPergunta&"') "

[*] SQL = SQL & " WHERE PE_CODIGO = " & StrCodigo

[*] Cnn.execute(SQL)

[*]

[*]'*** Seleciona o ID das resposta dessa pergunta

[*] SQL3 = "SELECT RE_CODIGO FROM RESPOSTAS WHERE RE_PE_CODIGO = "&StrCodigo&""

[*] SET RS3 = Cnn.execute(SQL3)

[*]

[*] '*** Recupera as Respostas usando o ID para o Request

[*] While Not RS3.EOF

[*] StrResposta = Request(RS3("RE_CODIGO"))

[*] '*** Atualiza os campos (usando o ID no Where) de cada Resposta

[*] SQL2 = "UPDATE RESPOSTAS SET RE_RESPOSTA = '"&StrResposta&"' WHERE RE_CODIGO = "&RS3("RE_CODIGO")&" "

[*] Cnn.execute(SQL2)

[*] Wend

[*]%>

[*]

</div>

agora...o erro que esta dando e de TIMEOUT....quando eu mando atualizar....ele fica..fica...fica...lento quase parando...e so atualiza o primeiro registro....nao sei o que esta acontecendo...e depois de um certo tempo da o seguinte erro na tela...

Tipo de erro:

Active Server Pages, ASP 0113 (0x80004005)

O tempo máximo de execução de um script foi excedido. Você pode alterar esse limite especificando um novo valor para a propriedade Server.ScriptTimeout ou alterando o valor nas ferramentas de administração do IIS.

/layout/admin/alteracao_perguntas.asp

Mais...acho que estou no caminho certo...porque pelo menos o PRIMEIRO REGISTRO foi atualizado.... :P

Salgado · Julho 26, 2005

É por um simples motivo, um defeito que eu tenho quando faço códigos rápidamente, LOOP infinito, repare que no WHILE WEND que coloquei eu esqueci de colocar o RS.Movenext. Simples não?

Tigger · Julho 26, 2005

e juntamente com um mane como eu...so poderia dar LOOP infinito..hehehe

Tigger · Julho 27, 2005

seguinte estou com um problema em cadastar novas alternavitas de respostas para uma determinada pergunta..

meu formulario esta disposto da seguinte forma:

>> um INPUT TEXT para receber valor da pergutna

>> INPUT TEXT dinamicos onde sao gerados de acordo com as alternativas de cada pergunta

>> um TEXTAREA onde o usuario tem condicoes de acrescentar novas alternativas de resposta para a respectiva pergunta.

e cadastrado...o codigo da respcetiva pergunta, onde eu nao consigo cadastrar a descricao dessas alternativas...somente e cadastro o codigo da pergunta..

segue o codigo que estou utilizando.

<div class='asptop'>ASP</div><div class='aspmain'><link href = "style_images/css_asp.css" rel = "stylesheet" type = "text/css">

[*]

[*]<%

[*]StrCodigo = Request.QueryString("codigo") '*** codigo da pergunta via GET

[*]StrPergunta = Request.Form("pergunta") '*** recuperando a descricao da nova pergunta

[*]StrAlternativa = Request.Form("novas_alternativas") '*** recuperando a descricao das novas alternativas

[*]

[*]SQLPergunta = " UPDATE PERGUNTAS SET " '*** atualizando a pergunta

[*]SQLPergunta = SQLPergunta & " PE_PERGUNTA = ('"&StrPergunta&"') " '*** de acordo com a descricao

[*]SQLPergunta = SQLPergunta & " WHERE PE_CODIGO = "&StrCodigo&" " '*** e com o codigo recuperado via GET

[*] Cnn.execute(SQLPergunta) '*** executando a SQL de atualizacao

[*]

[*]SQLSelecionaID = "SELECT * FROM PERGUNTAS " '*** selecionando a tabela perguntas

[*]SQLSelecionaID = SQLSelecionaID & " WHERE PE_PERGUNTA = '"&StrPergunta&"'" '*** de acordo com a nova descricao da pergunta

[*] SET RSSelecionaID = Cnn.execute(SQLSelecionaID) '*** apenas para recuparar o ID da pergunta

[*]

[*]IF StrAlternativa <> "" THEN '*** O PROBLEMA ESTA NESSE TRECHO

[*] SepararResposta = Split(Trim(Request.Form("novas_alternativas")),CHR(13)) '*** Verfificando se a novas opcoes de respostas

[*] FOR I = LBound(SepararResposta) TO UBound(SepararResposta) '*** laco para inserir as respostas

[*] SQLSepara = "INSERT INTO RESPOSTAS (RE_RESPOSTA, RE_PE_CODIGO)" '*** inserindo os dados nos campos

[*] SQLSepara = SQLSepara & " VALUES " '*** declarando valores

[*] SQLSepara = SQLSepara & " ('"&SepararResposta(I)&"', "&RSSelecionaID("PE_CODIGO")&")" '*** informando as variaveis com valores

[*] Cnn.execute(SQLSepara)

[*] NEXT

[*]END IF

[*]

[*]SQLIDResposta = "SELECT * FROM RESPOSTAS WHERE RE_PE_CODIGO = "&StrCodigo&"" '*** selecionando o ID das respostas

[*] SET RSIDResposta = Cnn.execute(SQLIDResposta) '*** de acordo com o codigo da pergunta

[*]

[*] WHILE NOT RSIDResposta.EOF

[*] StrResposta = Request(RSIDResposta("RE_CODIGO")) '*** recuperancdo o valor da resposta

[*]

[*] SQLAtualiza = " UPDATE RESPOSTAS SET " '*** atualizando a tabela resposta

[*] SQLAtualiza = SQLAtualiza & " RE_RESPOSTA = ('"&StrResposta&"') " '*** de acordo com a descricao da resposta

[*] SQLAtualiza = SQLAtualiza & " WHERE RE_CODIGO = "&RSIDResposta("RE_CODIGO")&" " '*** e com o codigo da resposta

[*] Cnn.execute(SQLAtualiza)

[*] RSIDResposta.MOVENEXT

[*] WEND

[*]

[*]Response.Redirect("cad_resposta_correta.asp?codigo="&RSSelecionaID("PE_CODIGO")&"")

[*]%>

[*]

</div> http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

Salgado · Julho 27, 2005

Quando você recupera os dados do TextArea use a função TRIM para retiras os espaços antes e depois, pode ser que esteja vindo algum espaço em seu request, o que quebra o teste do IF var<>"" Then.

Tigger · Julho 29, 2005

depois de algumas tentativas sem sucesso...estou aqui mais uma vez....heeheeh

estou utilizando o TRIM na funcao e nao acontece nada...apenas e cadastrado a pergunta....e as respostas continuam vindo em branco.

ASP

[*]

[*]SepararResposta = Split(Trim(Request.Form("novas_alternativas")),CHR(13))

[*]

Tigger · Julho 29, 2005

<div class='asptop'>ASP</div><div class='aspmain'><link href = "style_images/css_asp.css" rel = "stylesheet" type = "text/css">

[*]<%

[*]IF StrAlternativa <> "" THEN'*** Verfificando se a novas opcoes de respostas

[*] SepararResposta = Split(Trim(Request.Form("novas_alternativas")),CHR(13))

[*] FOR I = LBound(SepararResposta) TO UBound(SepararResposta) '*** laco para inserir as respostas

[*] SQLSepara = "INSERT INTO RESPOSTAS (RE_RESPOSTA, RE_PE_CODIGO)" '*** inserindo os dados nos campos

[*] SQLSepara = SQLSepara & " VALUES " '*** declarando valores

[*] SQLSepara = SQLSepara & " ('"&SepararResposta(I)&"', "&RSSelecionaID("PE_CODIGO")&")" '*** informando as variaveis com valores

[*] Cnn.execute(SQLSepara)

[*] NEXT

[*]END IF

[*]

[*]SQLIDResposta = "SELECT * FROM RESPOSTAS WHERE RE_PE_CODIGO = "&StrCodigo&"" '*** selecionando o ID das respostas

[*] SET RSIDResposta = Cnn.execute(SQLIDResposta) '*** de acordo com o codigo da pergunta

[*]

[*] WHILE NOT RSIDResposta.EOF

[*] StrResposta = Request(RSIDResposta("RE_CODIGO")) '*** recuperancdo o valor da resposta

[*] SQLAtualiza = " UPDATE RESPOSTAS SET " '*** atualizando a tabela resposta

[*] SQLAtualiza = SQLAtualiza & " RE_RESPOSTA = ('"&StrResposta&"') " '*** de acordo com a descricao da resposta

[*] SQLAtualiza = SQLAtualiza & " WHERE RE_CODIGO = "&RSIDResposta("RE_CODIGO")&" " '*** e com o codigo da resposta

[*] Cnn.execute(SQLAtualiza)

[*] RSIDResposta.MOVENEXT

[*] WEND

[*]

[*]%>

</div>

seguinte....galera...reparem no codigo em destaque!!!!

vamos ver linha por linha do codigo..ate acharmos o problema..

Primeiramente criamos uma condicao que verifica se o TEXTAREA tem novas alternativas de respostas..para a determinada pergunta..

com isso temos logo abaixo um FOR..NEXT que insere as novas alternativas de acordo com o seu valor de ARRAY criado atraves do SPLIT :D

Depois selecionamos a tabela RESPOSTAS parar recuperar o ID das mesmas...so que depois disso reparem numa coisa...

<div class='asptop'>ASP</div><div class='aspmain'><link href = "style_images/css_asp.css" rel = "stylesheet" type = "text/css">

[*] SQLAtualiza = " UPDATE RESPOSTAS SET " '*** atualizando a tabela resposta

</div>

eu mando atualizar a tabela RESPOSTA de acordo com o que esta dentro do INPUT TEXT que sao as caixinhas de texto que contem as descricoes das alternativas ja cadastradas....e com isso como meu TEXTAREA esta vazio...ele apenas ira atualizar os INPUT TEXT com a descircao que ja contem dentro deles...e ira atualizar tambem AS NOVAS ALTERNATIVAS...com valores em branco...em decorrencia de eu nao colocar valores nessa area...

com isso entao bastou apenas eu fazer o seguinte...

<div class='asptop'>ASP</div><div class='aspmain'><link href = "style_images/css_asp.css" rel = "stylesheet" type = "text/css">

[*]IF StrAlternativa = "" THEN

[*]SQLAtualiza = " UPDATE RESPOSTAS SET " '*** atualizando a tabela resposta

[*]'continuacao SQL

</div>

....sacô..pessoal..nada que um dia sem mexer no seu problema, e vim com a cabeça fria...calma para resolve.. B) nao sei por que hoje e sexta feira...mais ate agora..esta tudo indo bem.. :P :D

Valeu Salgado...pela forca ate agora. http://forum.imasters.com.br/public/style_emoticons/default/joia.gif http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

pedrovisk · Março 9, 2009

entao e isso que estou fazendo...a parte da pergunta..esta sendo atualizada direito....mais a parte das perguntas nao esta dando certo..

estou recuperando as mesmas...e imprimindo no TEXTAREA...mais na hora de atualizar..da os erros que passei

Seria algo como..um textbox com as alternativas de respostas...onde o ADMIN...poderia ter a oportunidade de adicionar novas alternativas e/ou mudar as que ja se encontram cadastradas.

Tigger,

Você concluiu este sistema? Tem a cópia do BD que possa compartilhar ou o modelo?

Pedro.

Salgado · Março 9, 2009

Tigger,

Você concluiu este sistema? Tem a cópia do BD que possa compartilhar ou o modelo?

Pedro.

Tópico véinho heim Pedrovisk?

Tigger não aparece por aqui faz alguns anos. Mas dê uma olhada no início do tópico, tem uma descrição do BD dele, e dê uma lida geral no tópico, algumas sugestões de melhoria foram dadas ao longo dele.

Arquivado

Como comparar as respostas com o Db

Recommended Posts

Tigger 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

Tigger 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

Tigger 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Tigger 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

Tigger 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Tigger 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

Tigger 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Tigger 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

Tigger 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Tigger 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

pedrovisk 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

Consulta SQL dentro de outra consulta

Data igual do facebook

Fazer busca no Banco de dados usando vários critério

Fóruns

Tempo Real

Informação importante