Ir para conteúdo

POWERED BY:

Arquivado

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

neotheone

Alterar o banco de dados

Por , em ASP Clássico

Recommended Posts

neotheone    0

neotheone
Postado

Fala pessoal meu sistema ta quase pronto, vou postar endereço aqui para vocês entenderem melhor do que se trata.

 

É um sistema para um site de acupuntura chinesa, entao 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 ta no seguinte, eu quero poder alterar alguma informação em um certo ponto, mas ele ta 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 inserirdefinicao = 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=" & caminhoSet Con = server.createobject("adodb.connection")con.cursorlocation = 3con.Open data_sourceid=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.movenextwend %>		</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> <% elsesqlcid = "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>

Compartilhar este post

Link para o post
Compartilhar em outros sites

supino    0

supino
Postado

Da uma verificade se essa varial id esta passando algum valor e se ela for realmente um número retire esse e Comercial e as aspas após o id

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