[Resolvido] Erro '80004005' com UPDATE

[alebae 0]

Ele diz que o erro é na linha 101, onde está o

sql = "update tb_produtos set categoria='" & categoria & "', cod_tsi= '" & cod_tsi & "'.....

Com o os responses na posição que você disse:

response.Write(sql)
response.end
conexao.execute(sql)

[alebae 0]

Eu alterei, fazendo o seguinte, coloquei

cod_produto = Request.QueryString("cod_produto")

no alto e dentro da instrução update coloquei

where cod_produto= " & cod_produto

Bem, a partir daí o Response.Write(sql) funcionou, depois, colei no Access, e me disse que erro de sintaxe na instrução update...

cod_produto = Request.QueryString("cod_produto")
sql = "update tb_produtos set categoria= '"&categoria&"',  cod_tsi= '"&cod_tsi&"',  nome= '"&nome_prod&"', descricao= '"&descricao&"', foto= '"&cfoto&"', preco1= '"&preco1&"', preco2= '"&preco2&"', preco3= '"&preco3&"', preco4= '"&preco4&"', preco5= '"&preco5&"', preco6= '"&preco6&"', caracteristica1= '"&caracteristica1&"', caracteristica2= '"&caracteristica2&"', caracteristica3= '"&caracteristica3&"', caracteristica4= '"&caracteristica4&"', caracteristica5= '"&caracteristica5&"', caracteristica6= '"&caracteristica6&"', caracteristica7= '"&caracteristica7&"', caracteristica8= '"&caracteristica8&"', caracteristica9= '"&caracteristica9&"', caracteristica10= '"&caracteristica10&"', caracteristica11= '"&caracteristica11&"', caracteristica12= '"&caracteristica12&"', caracteristica 13= '"&caracteristica13&"', itemincluso1= '"&itemincluso1&"', itemincluso2= '"&itemincluso2&"', itemincluso3= '"&itemincluso3&"', itemincluso4= '"&itemincluso4&"', itemincluso5= '"&itemincluso5&"', itemincluso6= '"&itemincluso6&"', itemincluso7= '"&itemincluso7&"', itemincluso8= '"&itemincluso8&"', itemincluso9= '"&itemincluso9&"', itemincluso10= '"&itemincluso10&"', info1= '"&info1&"', info2= '"&info2&"', info3= '"&info3&"', info4= '"&info4&"', info5= '"&info5&"', sis_operacional= '"&sist_operacional&"', garantia= '"&garantia&"', marca= '"&marca&"', promocao= '"&promocao&"' where cod_produto= " & cod_produto 
Response.Write(sql)

[Anderson Roberto 0]

O campo caracteristica13 na query está com espaço.

cod_produto = Request.QueryString("cod_produto")
sql = "update tb_produtos set categoria= '"&categoria&"',  cod_tsi= '"&cod_tsi&"',  nome= '"&nome_prod&"', descricao= '"&descricao&"', foto= '"&cfoto&"', preco1= '"&preco1&"', preco2= '"&preco2&"', preco3= '"&preco3&"', preco4= '"&preco4&"', preco5= '"&preco5&"', preco6= '"&preco6&"', caracteristica1= '"&caracteristica1&"', caracteristica2= '"&caracteristica2&"', caracteristica3= '"&caracteristica3&"', caracteristica4= '"&caracteristica4&"', caracteristica5= '"&caracteristica5&"', caracteristica6= '"&caracteristica6&"', caracteristica7= '"&caracteristica7&"', caracteristica8= '"&caracteristica8&"', caracteristica9= '"&caracteristica9&"', caracteristica10= '"&caracteristica10&"', caracteristica11= '"&caracteristica11&"', caracteristica12= '"&caracteristica12&"', caracteristica13= '"&caracteristica13&"', itemincluso1= '"&itemincluso1&"', itemincluso2= '"&itemincluso2&"', itemincluso3= '"&itemincluso3&"', itemincluso4= '"&itemincluso4&"', itemincluso5= '"&itemincluso5&"', itemincluso6= '"&itemincluso6&"', itemincluso7= '"&itemincluso7&"', itemincluso8= '"&itemincluso8&"', itemincluso9= '"&itemincluso9&"', itemincluso10= '"&itemincluso10&"', info1= '"&info1&"', info2= '"&info2&"', info3= '"&info3&"', info4= '"&info4&"', info5= '"&info5&"', sis_operacional= '"&sist_operacional&"', garantia= '"&garantia&"', marca= '"&marca&"', promocao= '"&promocao&"' where cod_produto= " & cod_produto
Response.Write(sql)

[Mário Monteiro 179]

se mesmo com o response.end deu erro o erro é anterior ao trecho que falou

[alebae 0]

O problema está de certeza nessa parte:

where cod_produto= " & Request.QueryString(cod_produto)

Ele não está recuperando o cod_produto que vem da página anterior altera_cad_produtos.asp?cod_produto=7...não sei mais o que fazer, já tentei mascarar o "problema", colocando um textedit com o campo cod_produto com o valor do campo do bd, porém na página que faz o processo, aparece o erro

Request object error 'ASP 0207 : 80004005'

 

Cannot use Request.Form

 

/loja/atualiza_comp.asp, line 61

 

Cannot use Request.Form collection after calling BinaryRead.

Pois eu tentei com recuperar com

cod_produto = cInt(UploadRequest.Item("cod_produto").Item("Value"))

E no where do update

where cod_produto= " & cod_produto

Lembrando que o meu form está assinalada no campo enctype do form, a opção multipart/form-data...

 

Mas, está errado o processo abaixo?

where cod_produto= " & Request.QueryString(cod_produto)

E o por quê do erro Cannot use Request.Form collection after calling BinaryRead

[jrcardozo 4]

quando o enctype é multipart/form-data você não pode fazer o request.form, deve ser objetoupload.form

[alebae 0]

Mas eu utilizei assim:

UploadRequest.Item("nome").Item("Value")

 

Está errado?

[Anderson Roberto 0]

Dá uma olhada aqui.

[alebae 0]

Não alterou nada em relação ao erro...

Já vinha usando campo = UploadRequest.Item("campo").Item("Value") que retornava os resultados satisfatoriamente.

Mas dentro dessa proposta, caberia alguma alteração para o Request.QueryString?

[Anderson Roberto 0]

Tente recuperar o valor da QueryString antes dos valores do formulário.

[alebae 0]

Eu fiz assim, coloquei antes dos valores do formulário o

cod_produto = Request.QueryString("cod_produto")

Depois, dentro do Update

where cod_produto= " & cod_produto

Porém me retorna o erro:

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'cod_produto='.

Ou seja, ele não retorna o valor da QueryString cod_produto de jeito nenhum...lembrando que tentei dentro do update também, mas ele retornou o famoso (nesse tópico), erro 8000400:

where = " & Request.QueryString("cod_produto")

[Mário Monteiro 179]

este cod_produto esta mesmo na url?

[alebae 0]

este cod_produto esta mesmo na url?

Está sim, o a url fica assim:

www.site.com.br/loja/altera_cad_produtos.asp?cod_produto=8

 

Porém, ele não está conseguindo chamar para a página de atualização, esse cod_produto=8

[DSerma 19]

Deviso ao tamanho deste tópico, serei obrigado a intervir.

 

Alebae, ATUALMENTE o seu problema é apenas este da QueryString, ou existe mais algum ?

 

Se você está utilizando corretamente o "Request.QueryString", não tem como ele dar erro...

 

Para verificar se ele está pegando ou não o valor dessa query, de um response.write na variavel que pega este valor, e veja o que ele mostra.

 

Caso isso nao funcione, me avise, pois gostaria que me enviasse o seu código para que eu possa encontrar todos os erros e assim encerrar este tópico de vez.

 

Abraços...

[Mário Monteiro 179]

o que ta dentro do update em vez de

 

where cod_produto= " & cod_produto

faça tambem

 

where cod_produto= " & Request("cod_produto")

[alebae 0]

Bom Darkdemo, o meu interesse é também encerrar este assunto, pois está quase 1 mês sem solução. Poderias então passar o email para que eu possa enviar o código?

 

Ao Mario Monteiro, a solução passada já foi testada, e ocorreu o mesmo erro :unsure:/>

[Mário Monteiro 179]

bem tiozinho entao em algum momento este valor esta sendo perdido

 

mais uma vez eu peço

 

faça um teste ai e me diga o que tem AGORA na URL e como esta esta pagina, pode por o codigo qeu preciso ver se em algum momento algo é perdido

[DSerma 19]

Ainda no aguardo do e-mail.....

[Mário Monteiro 179]

seria interessante continuar aqui pelo menos em paralelo a busca pela solução

 

aparentemente é algo bem simples mas voce precisa nos mostrar os trechos de seu codigo que sao solicitados

[alebae 0]

Ao darkdemo:

 

Enviei um e-mail com os arquivos (asp que contém o erro e o bd) ontem às 17:30 para você...Foi recebido?

 

Ao Mario Monteiro:

 

Bom...o erro é o seguinte:

update tb_produtos set categoria= 'Computador', cod_tsi= 'TSI AX240', nome= 'AMD Athlon64 X2 4000+', descricao= 'Eficiente computador!', foto= 'imagens/produtos/', preco1= '870,00', preco2= '305,515', preco3= '158,775', preco4= '100,92', preco5= '3586,314', preco6= '2144,55', caracteristica1= '-', caracteristica2= '-', caracteristica3= '-', caracteristica4= '-', caracteristica5= '-a', caracteristica6= '-', caracteristica7= '-', caracteristica8= '-', caracteristica9= '-', caracteristica10= '-', caracteristica11= '-', caracteristica12= '-', caracteristica13= '-', itemincluso1= '-', itemincluso2= '-', itemincluso3= '-', itemincluso4= '-', itemincluso5= '-', itemincluso6= '-', itemincluso7= '-', itemincluso8= '-', itemincluso9= '-', itemincluso10= '-', info1= '-', info2= '-', info3= '-', info4= '-', info5= '-', sis_operacional= '-', garantia= '1 ano', marca= 'amd', promocao= 'Sim' where cod_produto=

 

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

 

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'cod_produto='.

 

/loja/atualiza_comp.asp, line 102

O código:

sql = "update tb_produtos set categoria= '"&categoria&"',  cod_tsi= '"&cod_tsi&"',  nome= '"&nome_prod&"', descricao= '"&descricao&"', foto= '"&cfoto&"', preco1= '"&preco1&"', preco2= '"&preco2&"', preco3= '"&preco3&"', preco4= '"&preco4&"', preco5= '"&preco5&"', preco6= '"&preco6&"', caracteristica1= '"&caracteristica1&"', caracteristica2= '"&caracteristica2&"', caracteristica3= '"&caracteristica3&"', caracteristica4= '"&caracteristica4&"', caracteristica5= '"&caracteristica5&"', caracteristica6= '"&caracteristica6&"', caracteristica7= '"&caracteristica7&"', caracteristica8= '"&caracteristica8&"', caracteristica9= '"&caracteristica9&"', caracteristica10= '"&caracteristica10&"', caracteristica11= '"&caracteristica11&"', caracteristica12= '"&caracteristica12&"', caracteristica13= '"&caracteristica13&"', itemincluso1= '"&itemincluso1&"', itemincluso2= '"&itemincluso2&"', itemincluso3= '"&itemincluso3&"', itemincluso4= '"&itemincluso4&"', itemincluso5= '"&itemincluso5&"', itemincluso6= '"&itemincluso6&"', itemincluso7= '"&itemincluso7&"', itemincluso8= '"&itemincluso8&"', itemincluso9= '"&itemincluso9&"', itemincluso10= '"&itemincluso10&"', info1= '"&info1&"', info2= '"&info2&"', info3= '"&info3&"', info4= '"&info4&"', info5= '"&info5&"', sis_operacional= '"&sist_operacional&"', garantia= '"&garantia&"', marca= '"&marca&"', promocao= '"&promocao&"' where cod_produto= " & cod_produto
Response.Write(sql)
set rsquery = conexao.execute(sql)