Fala pessoal meu sistema está quase pronto, vou postar endereço aqui para vocês entenderem melhor do que se trata.
É um sistema para um site de acupuntura chinesa, então você escolhe uma área da orelha na primeira lista, aí habilita na 2º lista os pontos referentes aquela área, que por sua vez lista a "definicao", "localizacao", "funcao" e "dignostico" de cada área. O problema está no seguinte, eu quero poder alterar alguma informação em um certo ponto, mas ele está dando erro.
Pergunta
Guest - Neo -
Fala pessoal meu sistema está quase pronto, vou postar endereço aqui para vocês entenderem melhor do que se trata.
É um sistema para um site de acupuntura chinesa, então você escolhe uma área da orelha na primeira lista, aí habilita na 2º lista os pontos referentes aquela área, que por sua vez lista a "definicao", "localizacao", "funcao" e "dignostico" de cada área. O problema está no seguinte, eu quero poder alterar alguma informação em um certo ponto, mas ele está dando erro.
link do meu sistema: link do sistema
aqui abaixo está o erro:
Microsoft JET Database Engine error '80040e10'
No value given for one or more required parameters.
/projeto/formulario-atualiza.asp, line 64
VOU REPRESENTAR A LINHA 64 COM ******
aqui abaixo o código:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <html> <head> <% Sub inserir definicao = request.Form("definicao") localizacao = request.Form("localizacao") funcao = request.Form("funcao") diagnostico = request.Form("diagnostico") atualiza = "Insert into orelha (definicao,localizacao,funcao,diagnostico) values ('"&definicao&"', '"&localizacao&"','"&funcao&"','"&diagnostico&"')" con.execute(atualiza) msg = "Cliente cadastrado com sucesso!" response.Write("<script language = 'javascript'>") response.Write("alert('" & msg &"');") response.Write("</script>") end sub %> <title>Untitled Document</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body> <% caminho = Server.MapPath("banco.mdb") data_source = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & caminho Set Con = server.createobject("adodb.connection") con.cursorlocation = 3 con.Open data_source id=request("id") nome=request("nome") ponto = request("ponto") sql = "select * from pontos" set rs = con.execute(sql) %> <form method="get" name="form1"> <strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Ponto:</font></strong> <p> <select name="id" onchange="window.navigate('formulario-atualiza.asp?id='+form1.id.value)"> <option value="SELECIONE" selected>Selecione a Área</option> <% while not rs.eof %> <option value="<%=rs("id")%>"> <%=rs("id")%> </option> <% rs.movenext wend %> </select> <% if id = "" then %> <p><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><br> Nome:</font></strong></p> <select name="nome" id="nome"> <option value="SELECIONE" selected>Selecione o Ponto</option> </select> <% else sqlcid = "select nome from orelha where ponto = "&id&"" *******set rs1 = con.execute(sqlcid) %> <p><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><br> Nome:<br> </font></strong> <select name="nome" onchange="window.navigate('formulario-atualiza.asp?nome='+form1.nome.value)"> <option value="Selecione o Ponto" selected>Selecione o Ponto</option> <% while not rs1.eof%> <option value="<%=rs1("nome")%>"><%=rs1("nome")%></option> <% rs1.movenext wend%> <% end if %> </select> <% if nome = "" then %> <p><font size="1" face="verdana"><strong>Definição:</strong></font> <p> <input name="definicao" type="text" id="definicao"> <p><font size="1" face="verdana"><strong>Localização:</strong></font> <p> <textarea name="localizacao" cols="50" rows="10" id="localizacao"></textarea> <p><font size="1" face="verdana"><strong>Função:</strong></font> <p> <font face="verdana"> <font size="1"> <textarea name="funcao" cols="50" rows="10" id="funcao"></textarea> </font></font> <p><strong><font size="1" face="verdana">Diagnóstico:</font></strong> <p> <textarea name="diagnostico" cols="50" rows="10" id="diagnostico"></textarea> <% else consulta="select definicao from orelha where nome='"&nome&"'" set def = con.execute(consulta) consulta2="select localizacao from orelha where nome='"&nome&"'" set loc = con.execute(consulta2) consulta3="select funcao from orelha where nome='"&nome&"'" set fun=con.execute(consulta3) consulta4="select diagnostico from orelha where nome='"&nome&"'" set dia=con.execute(consulta4) %> <p><font size="1" face="verdana"><strong>Definição:</strong></font> <p><strong><font size="1" face="verdana"> <input name="definicao" type="text" id="definicao" value="<%=def("definicao")%>"> </font></strong> <p><strong><font size="1" face="verdana">Localização:</font></strong> <p><strong><font size="1" face="verdana"> <textarea name="localizacao" cols="50" rows="10" id="localizacao"><%=loc("localizacao")%></textarea> </font></strong> <br> <strong><font size="1" face="verdana">Função:</font></strong> <br> <textarea name="funcao" cols="50" rows="10" id="funcao"><%=fun("funcao")%></textarea> <p><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> Diagnóstico:</font></strong></p> <textarea name="diagnostico" cols="50" rows="10" id="diagnostico"><%=dia("diagnostico")%></textarea> <br> <input type="submit" name="Submit" value="altera" > <%end if%> <% if request.Form("Submit")="altera" then Call inserir() %> <%end if%> </form> </body> </html>Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.