Erro com EOF....

[jrcardozo 4]

as velhas aspas....sempre verifique, é um erro comum e fácil de resolver, a propria mensagem de erro já mostrava onde estava o problema.abaixo o correto

 

sql = "Update suptec Set pendencia = "&Vpendencia&" where codigo = '"&Vcodigo&"'"

[PRISCILA STOCHINI 0]

Não está atualizando o banco...

[jrcardozo 4]

deve ser pq na página do formulário não tenha o formulário!!tipo isso <form action="alterapendencia2.asp">campos do formulário</form>acho que faltam as tags form

[PRISCILA STOCHINI 0]

Isso tem....

 

<form method="post" action="alterapendencia2.asp">[...]	<input type="submit" name="Submit" value="ATUALIZAR" />  </div>  </form>

Ele redireciona e tudo o que não acontece é mudar o valor no Banco...

[jrcardozo 4]

vamos ao velho teste de reorno dos dados do form, assim:

 

 

 

<!--#include file="conectando.asp"-->

<%Vcodigo = Request.Form("codigo")Vpendencia = Request.Form("pendencia")if Vpendencia = "s" then	Vpendencia = 1else	Vpendencia = 0end ifsql = "Update suptec Set pendencia = "&Vpendencia&" where codigo = "'"&Vcodigo&"'"response.write(sql)'Set rs = bco.Execute(sql)'bco.closeURL = "relatorio.asp"'Response.Redirect(URL)%>

coloque isso e depois atualize no formulario...coloque aqui o que aparecer no brownser e confime se o que aparecer corresponde ao que fez no formulário

[PRISCILA STOCHINI 0]

Microsoft JET Database Engine error '80004005' Could not use ''; file already in use. /ASP/conectando.asp, line 4

[jrcardozo 4]

priscila!!!você está ao menos lendo e interpretando as mensagens de erro!!você está com problemas na linha 4 do arquivo conectando.asp...a mensagem diz que o banco está em uso....feche o access!!

[PRISCILA STOCHINI 0]

Meu desculpa....tô com o tempo esgotando pra entregar..por isso...

[jrcardozo 4]

e então...o que aconteceu? apareceu o sql do update na tela? se apareceu coloca ele ai

[PRISCILA STOCHINI 0]

Bom, a unica coisa que não está acontecendo é atualizar o Banco...

[jrcardozo 4]

mas você já fez o código para atualizar?

[Leloo 0]

para... que isso... olha qnts posts foram e até agora a menina não conseguiu... que isso... você tá dando um curso já...

[PRISCILA STOCHINI 0]

Desculpa Leloo, se você sabe eu estou começando agora...tá...E se você não veio ajudar, não atrapalhar por favor!!!!<!--#include file="_conectando.asp"--> <%Vcodigo = Request.Form("codigo")Vpendencia = Request.Form("pendencia")if Vpendencia = "s" then Vpendencia = trueelse Vpendencia = falseend ifsql = "Update suptec Set pendencia = "&Vpendencia&" where codigo = '"&Vcodigo&"'"Set rs = bco.Execute(sql)bco.closeURL = "relatorio.asp"Response.Redirect(URL)%>Coloquei esse código....

[jrcardozo 4]

poxa, o nome do arquivo não éra conectando.asp? porque _conectando.asp???

 

<!--#include file="_conectando.asp"-->

<!--#include file="conectando.asp"-->

troque isso

 

if Vpendencia = "s" then

Vpendencia = true

else

Vpendencia = false

end if

 

por isso

 

if Vpendencia = "s" then

Vpendencia = -1

else

Vpendencia = 0

end if

 

poxa, ai fica dificil ajudar né!!

[PRISCILA STOCHINI 0]

Era, mas como não estava indo tive que fazer um esquema para mostar pro chefe...mas já voltei ao normal...conectando.asp...

 

Update suptec Set pendencia = 0 where codigo = ''