Jump to content


Photo

Erro Na Hora De Alterar O Produto


  • Faça o login para participar
7 replies to this topic

#1 Terenight

Terenight

    Normal

  • Usuários
  • 82 posts
  • Sexo:Não informado
  • Localidade:Teresópolis
  • Interesses:PHP, ASP, MySQL, Dreamwearver MX 2004

Posted 21/06/2004, 15:01

Alguem poderia me ajudar pq tá dando este erro na hora de alterar o produto.
a linha 111 esta em vermelho

Microsoft JET Database Engine error '80004005'

Field 'produtos.resposta' cannot be a zero-length string.

/teste/admin/confirmaoperacao.asp, line 111


____________________________________________________________________



<%

Function Estoque()

if Request("estoque") = "Sim" then
conexao.execute("Update produtos set estoque = True where codigo-produto = " & Request("codigo"))
else
' conexao.execute("Update produtos set estoque = False where codigo = " & Request("codigo"))'
end if

End Function

'//--------------------------------------------------

Function Lancamento()

if Request("lancamento") = "Sim" then
conexao.execute("Update produtos set lancamento = True where codigo-produto = " & Request("codigo"))
else
' conexao.execute("Update produtos set lancamento = False where codigo = " & Request("codigo"))
end if

End Function

'//--------------------------------------------------

Function Oferta()

if Request("oferta") = "Sim" then
conexao.execute("Update produtos set oferta = True where codigo-produto = " & Request("codigo"))
else
' conexao.execute("Update produtos set oferta = False where codigo = " & Request("codigo"))
end if

End Function

'//--------------------------------------------------

Function Destaque()

if Request("destaque") = "Sim" then
conexao.execute("Update produtos set destaque = True where codigo-produto = " & Request("codigo"))
else
' conexao.execute("Update produtos set destaque = False where codigo = " & Request("codigo"))
end if

End Function

'//--------------------------------------------------

Function Detalhes()

if Request("detalhes") = "Ativado" then
conexao.execute("Update produtos set detalhes = True where codigo-produto = " & Request("codigo"))
else
conexao.execute("Update produtos set detalhes = False where codigo = " & Request("codigo-produto"))
end if

End Function

%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Confirmando a Operação</title>
<style type="text/css">
<!--
a.menu:hover { color: #CC0000; text-decoration: none}
a.menu { color: #000000; text-decoration: underline}
-->
</style>

</head>

<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" text="#000000" link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF">
<table width="100%" border="0" bgcolor="#000000" cellspacing="1" cellpadding="3" align="center">
<tr bgcolor="#990000">
<td width="70%" bgcolor="#006600">
<div align="center"><font size="2" face="Arial" color="#FFFFFF"><b>Controle
de


Cartas de nossos usu&aacute;rios </b></font></div>
</td>
<td width="30%" bgcolor="#666666">
<div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="opcoes.asp">Voltar
ao inicial</a></font></div>
</td>
</tr>
</table>
<p>&nbsp;</p><%
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open ConStr

if Request("Acao") = "Incluir" then
conexao.execute("Insert into produtos (codigo_produto,nome,email,cidade,descricao,resposta) values ('" & Request("codigo_produto") & "','" & Request("nome") & "','" & Request("email") & "','" & Request("cidade") & "','" & Request("descricao") & "','" & Request("resposta") & "')")
Response.write("<font face='Arial' size='2'><b>Inclusão efetuada!</font></b>")
Response.write("<br><font face='Arial' size='2'>O anúncio de código <b>" & Request("codigo") & "</b> foi cadastrado com sucesso!</font>")

End if

if Request("Acao") = "Apagar" then
conexao.execute("Delete from produtos where codigo = " & Request("codigo"))
Response.write("<font face='Arial' size='2'><b>Exclusão efetuada!</font></b>")
Response.write("<br><font face='Arial' size='2'>O anúncio da data <b>" & Request("codigo") & "</b> foi excluído com sucesso!</font>")
End if

if Request("Acao") = "Alterar" then
conexao.execute("Update produtos set nome= '"& Request("nome") &"',email= '"& Request("email") &"',cidade= '"& Request("cidade") &"',codigo_produto= '"& Request("codigo_produto") &"',descricao= '"& Request("descricao") &"',resposta= '"& Request("resposta") &"' where codigo = " & Request("codigo")) Response.write("<font face='Arial' size='2'><b>Alteração efetuada!</font></b>")
Response.write("<br><font face='Arial' size='2'>O anúncio de data <b>" & Request("codigo") & "</b> foi alterado com sucesso!</font>")
Estoque
Lancamento
Oferta
Destaque
End if

if Request("Acao") = "Salvar Detalhes" then
conexao.execute("Update produtos set capacidade= '"& Request("capacidade") &"',comprimento= '"& Request("comprimento") &"',largura= '"& Request("largura") & "',altura= '"& Request("altura") & "',peso2= '"& Request("peso") & "' where codigo = "& Request("codigo"))
Response.write("<font face='Arial' size='2'><b>Alteração efetuada!</font></b>")
Response.write("<br><font face='Arial' size='2'>Os detalhes do produto de código <b>" & Request("codigo") & "</b> foram salvos com sucesso!</font>")
Detalhes
End if

if Request("Acao") = "Incluir categoria" then
conexao.execute("Insert into categorias (categoria) values ('" & Request("categoria") & "')")
Response.write("<font face='Arial' size='2'><b>Inclusão efetuada!</font></b>")
Response.write("<br><font face='Arial' size='2'>A categoria <b>" & Request("categoria") & "</b> foi cadastrada com sucesso!</font>")
End if
%>
<blockquote>
<p><b><font face="Arial" size="2">Confirmando a Operação</font></b></p>
<hr color="#66CCFF" style="margin-top: -20">
Atenciosamente
Anderson
Webmaster
TERENIGHT

#2 Junka

Junka

    Turista

  • Usuários
  • 51 posts
  • Sexo:Não informado
  • Localidade:São Paulo

Posted 21/06/2004, 15:19

O campo resposta da sua tabela não pode ficar em branco, provavelmente o request que você está fazendo não está trazendo nada.

Verifique so os nomes estão corretos.

#3 Terenight

Terenight

    Normal

  • Usuários
  • 82 posts
  • Sexo:Não informado
  • Localidade:Teresópolis
  • Interesses:PHP, ASP, MySQL, Dreamwearver MX 2004

Posted 21/06/2004, 15:42

reconferir , os nomes, e parece tá tudp certo, mais ele tá aparecendo na hora di visualizar, mais na hora que vai alterar é que ele dá este erro
Atenciosamente
Anderson
Webmaster
TERENIGHT

#4 vrsbueno

vrsbueno

    Ativo

  • Usuários
  • 351 posts
  • Sexo:Não informado
  • Localidade:Taubaté-SP

Posted 21/06/2004, 16:02

faiz isso:

Response.Write Request("resposta")

e posta aki o resultado.

#5 Terenight

Terenight

    Normal

  • Usuários
  • 82 posts
  • Sexo:Não informado
  • Localidade:Teresópolis
  • Interesses:PHP, ASP, MySQL, Dreamwearver MX 2004

Posted 21/06/2004, 16:09

ficou assim


Microsoft VBScript compilation error '800a03ee'

Expected ')'

/teste/admin/confirmaoperacao.asp, line 112

conexao.execute("Update produtos set nome= '"& Request("nome") &"',email= '"& Request("email") &"',cidade= '"& Request("cidade") &"',codigo_produto= '"& Request("codigo_produto") &"',descricao= '"& Request("descricao") &"',resposta= '"& Response.Write Request("resposta")
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------^
Atenciosamente
Anderson
Webmaster
TERENIGHT

#6 .:Matrix:.

.:Matrix:.

    12 Horas

  • Usuários
  • 123 posts
  • Sexo:Não informado
  • Localidade:Sampa
  • Interesses:Muitos menos Delphi, PHP e Adjacentes hauahaua

Posted 21/06/2004, 18:05

ficou assim


Microsoft VBScript compilation error '800a03ee'

Expected ')'

/teste/admin/confirmaoperacao.asp, line 112

conexao.execute("Update produtos set nome= '"& Request("nome") &"',email= '"& Request("email") &"',cidade= '"& Request("cidade") &"',codigo_produto= '"& Request("codigo_produto") &"',descricao= '"& Request("descricao") &"',resposta= '"& Response.Write Request("resposta")
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------^

Kra eu to vendo aqui e como ainda sou novato to me atrapalhando mais soh um pouquinho.

Pra visualizar melhor o que será mandando pro banco, separe o comando SQL e depois mande ele executar, assim acho que fica ainda mais facil de debugar, segue exemplo:


vSql = "Update produtos set nome= '"& Request("nome") &"',email= '"& Request("email") &"',cidade= '"& Request("cidade") &"',codigo_produto= '"& Request("codigo_produto") &"',descricao= '"& Request("descricao") &"',resposta= '"& Request("resposta") &"' where codigo = " & Request("codigo")

Response.Write vSql
Response.End

conexao.execute(vSql)


Desse jeito da pra ver no navegador o melhor resultado e o que ta errado.

Bem acho que tem campo sendo mandado sem Valor mesmo, posso estar falando besteira, mais ve se resposta realmente eh vazio.

Pelo menos to tentando ajudar :D :D

Abraços
Este post é dedicado a Yasmin minha linda filhinha hauhauahau
-----------------------------------------------------------------------
Visite ::: www.destroyers.com.br (onde sou o Fundador hauahua)
-----------------------------------------------------------------------
Se puder ajudar fico grato se naum puder, fico do mesmo jeito, pelo menos leu neh :-D

#7 vrsbueno

vrsbueno

    Ativo

  • Usuários
  • 351 posts
  • Sexo:Não informado
  • Localidade:Taubaté-SP

Posted 21/06/2004, 19:23

resolvido!

falei pelo msn com terenight e resolvemos o pobrema.

flw ;)

#8 Dinho Z.

Dinho Z.

    Rock'n'Roll !!! Yeah !!!

  • Usuários
  • 755 posts
  • Sexo:Não informado
  • Localidade:Santo André - SP

Posted 22/06/2004, 08:37

Então coloque a solução aqui... outras pessoas podem ter o mesmo problema...
Dinho

Ajude a proibir os "jabás" nas rádios brasileiras.
Mas, afinal, o que é o "jabá"?!? acesse Rock Brasil
Acesse Fórum SOS Designers
Coluna de JavaScript/CSS do Upmasters




1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq