[Resolvido] Erro '80004005' com UPDATE

[alebae 0]

Olá, estava tentando uma atualização nos registros do banco de dados, e me retornou o seguinte erro:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

 

[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0x5f08 Thread 0x860c DBC 0x197a2f4 Jet'.

 

/loja/atualiza_comp.asp, line 99

A linha é a do Update mesmo

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 & "', preco7= '" & preco7 & "', preco8= '" & preco8 & "', preco9= '" & preco9 & "', preco10= '" & preco10 & "', caracteristica1= '" & caracteristica1 & "', caracteristica2= '" & caracteristica2 & "', caracteristica3= '" & caracteristica3 & "', caracteristica4= '" & caracteristica4 & "', caracteristica5= '" & caracteristica5 & "', caracteristica6= '" & caracteristica6 & "', caracteristica7= '" & caracteristica7 & "', caracteristica8= '" & caracteristica8 & "', caracteristica9= '" & caracteristica9 & "', caracteristica10= '" & caracteristica10 & "', caracteristica11= '" & caracteristica11 & "', caracteristica12= '" & caracteristica12 & "', 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 = "& request("cod_produto")
set rsquery = conexao.execute(sql)

Conferi o código e não havia nenhum erro de nome de tabela e afins. Tentei colocar antes do sql em si um Response.Write(sql) para ver o erro detalhadamente, porém nada. Nunca havia visto este erro antes, qual será?

[jrcardozo 4]

bom, se você conferiu a query e está tudo ok tente isso

no lugar de

set rsquery = conexao.execute(sql)

coloque

conexao.execute(sql)

[alebae 0]

Continua o mesmo erro...

Acho que está no request...

where cod_produto = "& request("cod_produto")

Tentei ao invés de somente Request, coloquei Request.QueryString e deu este erro

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

 

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

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

Editando....Tentei esta alteração,

If Request.QueryString("cod_produto") <> "" then 
//a linha do update que está igualmente lá em cima, inclusive com conexao.execute(sql)
end if

E deu erro, não é alterado nada na tabela!

[Mário Monteiro 179]

qual o erro atual? o priemiro erro poderia ser apenas o fato de estar tentando usar o site com o DB aberto em modo exclusivo

[alebae 0]

O "erro" atual é que não altera nada no banco de dados, o resultado é que o formulário foi atualizado com sucesso, porém na verdade, no bd, alterou nada. Eu testei com o bd fechado, com o código utlizado antes, sem o if, e continuou dando aquele erro '80004005'...

[Mário Monteiro 179]

antes de executar escreve na tela o seu sql e poste aqui

[alebae 0]

Coloquei Response.Write(sql) antes do conexao.execute(sql)...ele retornou nada...somente que a atualização havia sido feito com sucesso, mas na verdade não atualizou no bd...

[Mário Monteiro 179]

nao é esse o erro mas voce nao rpecisar setar RS para update e insert

 

faça apenas

 

conexao.execute(sql)

 

e antes ponha

 

response.write sql

response.end

 

e poste aqui o resultado

[alebae 0]

Fiz assim:

' todo o update...
response.write sql
response.end
conexao.execute(sql)

O erro é o mesmo postado acima, mesmo com o bd fechado...há possibilidade de ser erro do host?

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

 

[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0x69dc Thread 0x104 DBC 0x19924fc Jet'.

 

/loja/atualiza_comp.asp, line 102

[Mário Monteiro 179]

qual a linha do erro?

[alebae 0]

Nessa parte:

sql = sql & "where cod_produto=" & Request("cod_produto")

 

O erro é do query string suponho, lembrando que cod_produto é o campo de auto-numeração

[Mário Monteiro 179]

como voce sabe que é nessa parte? qual é a linha 102?

[alebae 0]

A linha 102 aponta para esta parte sql = sql & "where cod_produto=" & Request("cod_produto")...

por isto...é que tenho um formulário que recebe os valores do bd, depois de atualizar os dados no form, passa para esta página de atualização...aí que dá o erro...

[Mário Monteiro 179]

mas como esta seu codigo?

 

la em cima postou como se estivesse tudo numa linha

 

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 & "', preco7= '" & preco7 & "', preco8= '" & preco8 & "', preco9= '" & preco9 & "', preco10= '" & preco10 & "', caracteristica1= '" & caracteristica1 & "', caracteristica2= '" & caracteristica2 & "', caracteristica3= '" & caracteristica3 & "', caracteristica4= '" & caracteristica4 & "', caracteristica5= '" & caracteristica5 & "', caracteristica6= '" & caracteristica6 & "', caracteristica7= '" & caracteristica7 & "', caracteristica8= '" & caracteristica8 & "', caracteristica9= '" & caracteristica9 & "', caracteristica10= '" & caracteristica10 & "', caracteristica11= '" & caracteristica11 & "', caracteristica12= '" & caracteristica12 & "', 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 = "& request("cod_produto")

[alebae 0]

Bom está tudo numa só linha...somente a partir do where que coloquei assim:

sql = sql & " where cod_produto=" & Request("cod_produto")

porém colocando tudo na mesma linha ou fazendo assim, dá o mesmo erro...

[Mário Monteiro 179]

ah ta

 

beleza

 

todos os campos sao testo mesmo?

 

voce sempre fecha suas conexoes com o db?

[alebae 0]

Utilizando

conexao.close 
set conexao = nothing

Continua dando erro...

 

Alguns campos são do tipo memorando também...lembrando que eu estou usando um esquema de upload também...

[Mário Monteiro 179]

e como esdta recupoerando os dados do form?

[alebae 0]

Bom, utilizei o código do tópico "Upload sem componentes", daqui do fórum (http://forum.imasters.com.br/index.php?showtopic=164376), utilizando por exemplo

cod_tsi = UploadRequest.Item("cod_tsi").Item("Value")

[alebae 0]

Aliás conferi o caminho do arquivo, e ele aponta corretamente para o banco de dados...