UPDATE com erro

[MeteoroBr 0]

Olá Pessoal.

 

Estou com um sério probleminha aqui e espero que alguém possa me ajudar o mais rápido possível.

 

Estou tentando atualizar uma tabela e está aparecendo o seguinte erro:

 

Operação não permitida em um objeto com referência a uma conexão fechada ou inválida.

/Controle/inclui_registro_e_movimenta_estoque.asp, line 26

 

A minha linha 26 citada acima está da seguinte forma:

 

RstSaldo.Open = "Update saldo_atual set produto'" & var_produto_entrada & "' , saldo='" & session("novo_saldo") & "' where id="& var_codigo

 

Se alguém puder me ajudar serei muito grato...

 

Obrigado.

 

João F. Ferreira

[mibnetweb 0]

Pela mensagem, parece-me que a conexão com o banco não foi feita.Verifique tudo novamente. Qualquer coisa poste a string de conexão tb. ;)

[allan.web 0]

E ai... beleza...

 

Cara acho que você esqueceu do =

 

RstSaldo.Open = "Update saldo_atual set produto='" & var_produto_entrada & "' , saldo='" & session("novo_saldo") & "' where id="& var_codigo

 

Espero ter ajudado...

 

um abraço

[mibnetweb 0]

Pode crer não tinha notado isso.

[MeteoroBr 0]

Infelismente ainda não funcionou...

Continuou com o mesmo erro.

A minha conexão com o banco está assim:

 

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("bd1.mdb")

Set RstProduto = Server.CreateObject("ADODB.Recordset")

RstProduto.Open "Insert Into mov_entrada (produto_entrada,quantidade,usuario,estoque_atual,data,obs) values('" & var_produto_entrada & "','" & var_quantidade-entrada & "','" & var_usuario_entrada & "','" & var_estoque_atual & "','" & var_data_atual & "','" & var_obs_entrada & "')", Conn

Set RstSaldo = Server.CreateObject("ADODB.Recordset")

RstSaldo.Open = "Update saldo_atual set produto='" & var_produto_entrada & "' , saldo='" & session("novo_saldo") & "' where id="& var_codigo

 

Espero que vcs entendam....

 

João F. Ferreira

[mibnetweb 0]

Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("bd1.mdb")Esta linha ta faltando algo, não ?!?!?!?!