Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

filipefurriel

[Resolvido] Erro (0x80020009) - o que pode ser.

Por , em ASP Clássico

Recommended Posts

filipefurriel    0

filipefurriel
Postado

Tenho um pequeno sistema para uma rádio, onde num local que o adimistrador cadastra 20 músicas, sendo o processo sempre o seguinte: antes de cadastrar as músicas em banco, o sistema já faz um delete do banco, e na próxima página recebe os dados do formulário somente para inserir em banco. Postarei abaixo o script da 2ª página, pois nunca vi este erro - (0x80020009).

 

 

Na 1ª página já foi feio o delete do banco inteiro...

 

 

2ª página que tenta cadastrar em bd:

 

<%
vmusica1=request.Form("musica1")
vnomemusica1=request.Form("nomemusica1")
vautormusica1=request.Form("nomeautor1")

vmusica2=request.Form("musica2")
vnomemusica2=request.Form("nomemusica2")
vautormusica2=request.Form("nomeautor2")

vmusica3=request.Form("musica3")
vnomemusica3=request.Form("nomemusica3")
vautormusica3=request.Form("nomeautor3")

vmusica4=request.Form("musica4")
vnomemusica4=request.Form("nomemusica4")
vautormusica4=request.Form("nomeautor4")

vmusica5=request.Form("musica5")
vnomemusica5=request.Form("nomemusica5")
vautormusica5=request.Form("nomeautor5")

vmusica6=request.Form("musica6")
vnomemusica6=request.Form("nomemusica6")
vautormusica6=request.Form("nomeautor6")

vmusica7=request.Form("musica7")
vnomemusica7=request.Form("nomemusica7")
vautormusica7=request.Form("nomeautor7")

vmusica8=request.Form("musica8")
vnomemusica8=request.Form("nomemusica8")
vautormusica8=request.Form("nomeautor8")

vmusica9=request.Form("musica9")
vnomemusica9=request.Form("nomemusica9")
vautormusica9=request.Form("nomeautor9")

vmusica10=request.Form("musica10")
vnomemusica10=request.Form("nomemusica10")
vautormusica10=request.Form("nomeautor10")

vmusica11=request.Form("musica11")
vnomemusica11=request.Form("nomemusica11")
vautormusica11=request.Form("nomeautor11")

vmusica12=request.Form("musica12")
vnomemusica12=request.Form("nomemusica12")
vautormusica12=request.Form("nomeautor12")

vmusica13=request.Form("musica13")
vnomemusica13=request.Form("nomemusica13")
vautormusica13=request.Form("nomeautor13")

vmusica14=request.Form("musica14")
vnomemusica14=request.Form("nomemusica14")
vautormusica14=request.Form("nomeautor14")

vmusica15=request.Form("musica15")
vnomemusica15=request.Form("nomemusica15")
vautormusica15=request.Form("nomeautor15")

vmusica16=request.Form("musica16")
vnomemusica16=request.Form("nomemusica16")
vautormusica16=request.Form("nomeautor16")

vmusica17=request.Form("musica17")
vnomemusica17=request.Form("nomemusica17")
vautormusica17=request.Form("nomeautor17")

vmusica18=request.Form("musica18")
vnomemusica18=request.Form("nomemusica18")
vautormusica18=request.Form("nomeautor18")

vmusica19=request.Form("musica19")
vnomemusica19=request.Form("nomemusica19")
vautormusica19=request.Form("nomeautor19")

vmusica20=request.Form("musica20")
vnomemusica20=request.Form("nomemusica20")
vautormusica20=request.Form("nomeautor20")


set conexao= Server.CreateObject("ADODB.connection")
conexao.open ConString
	
	
set rsinsere= Server.CreateObject("ADODB.recordset")
	rsinsere.open("insert into tab_nomemusicas (musica1,musica2,musica3,musica4,musica5,musica6,musica7,musica8,musica9,musica10,musica11,musica12,musica13,musica14,musica15,musica16,musica17,musica18,musica19,musica20,nomemusica1,nomemusica2,nomemusica3,nomemusica4,nomemusica5,nomemusica6,nomemusica7,nomemusica8,nomemusica9,nomemusica10,nomemusica11,nomemusica12,nomemusica13,nomemusica14,nomemusica15,nomemusica16,nomemusica17,nomemusica18,nomemusica19,nomemusica20)values('"& vnomemusica1 &"','"& vnomemusica2 &"','"& vnomemusica3 &"','"& vnomemusica4 &"','"& vnomemusica5 &"','"& vnomemusica6 &"','"& vnomemusica7 &"','"& vnomemusica8 &"','"& vnomemusica9 &"','"& vnomemusica10 &"','"& vnomemusica11 &"','"& vnomemusica12 &"','"& vnomemusica13 &"','"& vnomemusica14 &"','"& vnomemusica15 &"','"& vnomemusica16 &"','"& vnomemusica17 &"','"& vnomemusica18 &"','"& vnomemusica19 &"','"& vnomemusica20 &"','"& vautormusica1 &"','"& vautormusica2 &"','"& vautormusica3 &"','"& vautormusica4 &"','"& vautormusica5 &"','"& vautormusica6 &"','"& vautormusica7 &"','"& vautormusica8 &"','"& vautormusica9 &"','"& vautormusica10 &"','"& vautormusica11 &"','"& vautormusica12 &"','"& vautormusica13 &"','"& vautormusica14 &"','"& vautormusica15 &"','"& vautormusica16 &"','"& vautormusica17 &"','"& vautormusica18 &"','"& vautormusica19 &"','"& vautormusica20 &"')"),conexao
	
	
	vvalor="0"
	vnometotal="-"
	vtotal="total"
	
	
	set rsinseremusica1= Server.CreateObject("ADODB.recordset")
	rsinseremusica1.open("insert into tab_recebevalormusicas (musica,musicax,valor)values('"& vmusica1 &"','"& vnomemusica1 &"','"& vvalor &"')"),conexao

	set rsinseremusica2= Server.CreateObject("ADODB.recordset")
	rsinseremusica2.open("insert into tab_recebevalormusicas (musica,musicax,valor)values('"& vmusica2 &"','"& vnomemusica2 &"','"& vvalor &"')"),conexao

	set rsinseremusica3= Server.CreateObject("ADODB.recordset")
	rsinseremusica3.open("insert into tab_recebevalormusicas (musica,musicax,valor)values('"& vmusica3 &"','"& vnomemusica3 &"','"& vvalor &"')"),conexao

	set rsinseremusica4= Server.CreateObject("ADODB.recordset")
	rsinseremusica4.open("insert into tab_recebevalormusicas (musica,musicax,valor)values('"& vmusica4 &"','"& vnomemusica4 &"','"& vvalor &"')"),conexao

	set rsinseremusica5= Server.CreateObject("ADODB.recordset")
	rsinseremusica5.open("insert into tab_recebevalormusicas (musica,musicax,valor)values('"& vmusica5 &"','"& vnomemusica5 &"','"& vvalor &"')"),conexao

	set rsinseremusica6= Server.CreateObject("ADODB.recordset")
	rsinseremusica6.open("insert into tab_recebevalormusicas (musica,musicax,valor)values('"& vmusica6 &"','"& vnomemusica6 &"','"& vvalor &"')"),conexao

	set rsinseremusica7= Server.CreateObject("ADODB.recordset")
	rsinseremusica7.open("insert into tab_recebevalormusicas (musica,musicax,valor)values('"& vmusica7 &"','"& vnomemusica7 &"','"& vvalor &"')"),conexao

	set rsinseremusica8= Server.CreateObject("ADODB.recordset")
	rsinseremusica8.open("insert into tab_recebevalormusicas (musica,musicax,valor)values('"& vmusica8 &"','"& vnomemusica8 &"','"& vvalor &"')"),conexao

	set rsinseremusica9= Server.CreateObject("ADODB.recordset")
	rsinseremusica9.open("insert into tab_recebevalormusicas (musica,musicax,valor)values('"& vmusica9 &"','"& vnomemusica9 &"','"& vvalor &"')"),conexao

	set rsinseremusica10= Server.CreateObject("ADODB.recordset")
	rsinseremusica10.open("insert into tab_recebevalormusicas (musica,musicax,valor)values('"& vmusica10 &"','"& vnomemusica10 &"','"& vvalor &"')"),conexao

	set rsinseremusica11= Server.CreateObject("ADODB.recordset")
	rsinseremusica11.open("insert into tab_recebevalormusicas (musica,musicax,valor)values('"& vmusica11 &"','"& vnomemusica11 &"','"& vvalor &"')"),conexao

	set rsinseremusica12= Server.CreateObject("ADODB.recordset")
	rsinseremusica12.open("insert into tab_recebevalormusicas (musica,musicax,valor)values('"& vmusica12 &"','"& vnomemusica12 &"','"& vvalor &"')"),conexao

	set rsinseremusica13= Server.CreateObject("ADODB.recordset")
	rsinseremusica13.open("insert into tab_recebevalormusicas (musica,musicax,valor)values('"& vmusica13 &"','"& vnomemusica13 &"','"& vvalor &"')"),conexao

	set rsinseremusica14= Server.CreateObject("ADODB.recordset")
	rsinseremusica14.open("insert into tab_recebevalormusicas (musica,musicax,valor)values('"& vmusica14 &"','"& vnomemusica14 &"','"& vvalor &"')"),conexao

	set rsinseremusica15= Server.CreateObject("ADODB.recordset")
	rsinseremusica15.open("insert into tab_recebevalormusicas (musica,musicax,valor)values('"& vmusica15 &"','"& vnomemusica15 &"','"& vvalor &"')"),conexao

	set rsinseremusica16= Server.CreateObject("ADODB.recordset")
	rsinseremusica16.open("insert into tab_recebevalormusicas (musica,musicax,valor)values('"& vmusica16 &"','"& vnomemusica16 &"','"& vvalor &"')"),conexao

	set rsinseremusica17= Server.CreateObject("ADODB.recordset")
	rsinseremusica17.open("insert into tab_recebevalormusicas (musica,musicax,valor)values('"& vmusica17 &"','"& vnomemusica17 &"','"& vvalor &"')"),conexao

	set rsinseremusica18= Server.CreateObject("ADODB.recordset")
	rsinseremusica18.open("insert into tab_recebevalormusicas (musica,musicax,valor)values('"& vmusica18 &"','"& vnomemusica18 &"','"& vvalor &"')"),conexao

	set rsinseremusica19= Server.CreateObject("ADODB.recordset")
	rsinseremusica19.open("insert into tab_recebevalormusicas (musica,musicax,valor)values('"& vmusica19 &"','"& vnomemusica19 &"','"& vvalor &"')"),conexao
		
	set rsinseremusica20= Server.CreateObject("ADODB.recordset")
	rsinseremusica20.open("insert into tab_recebevalormusicas (musica,musicax,valor)values('"& vmusica20 &"','"& vnomemusica20 &"','"& vvalor &"')"),conexao
		
	set rsinseremusicatotal= Server.CreateObject("ADODB.recordset")
	rsinseremusicatotal.open("insert into tab_recebevalormusicas (musica,musicax,valor)values('"& vtotal &"','"& vnometotal &"','"& vvalor &"')"),conexao

	
	
	set rsinsere=nothing
	set rsinseremusica1=nothing
	set rsinseremusica2=nothing
	set rsinseremusica3=nothing
	set rsinseremusica4=nothing
	set rsinseremusica5=nothing
	set rsinseremusica6=nothing
	set rsinseremusica7=nothing
	set rsinseremusica8=nothing
	set rsinseremusica9=nothing
	set rsinseremusica10=nothing
	set rsinseremusica11=nothing
	set rsinseremusica12=nothing
	set rsinseremusica13=nothing
	set rsinseremusica14=nothing
	set rsinseremusica15=nothing
	set rsinseremusica16=nothing
	set rsinseremusica17=nothing
	set rsinseremusica18=nothing
	set rsinseremusica19=nothing
	set rsinseremusica20=nothing
	set rsinseremusicatotal=nothing
	conexao.Close
	set conexao=nothing
	%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

filipefurriel    0

filipefurriel
Postado

esse é o problema, o navegador até dá a linha do erro que 120, porém, esta linha nem na programação esta é um td de uma tabela lá no html, bem longe, então por experiência sei que não é pela linha que vou conseguir resolver algo, especificamente neste exemplo, assim estou lendo e relendo o script que repassei para ver se encontro algo errado, contudo está até o momento correto. Pesquisando nos forum percebi que o erro mencionado é a mesma numeração de outro erro muito comentado

 

o erro que estamos falando:

 

Tipo de erro:(0x80020009) Exceção.

 

erro com a mesma numeração:

 

(0x80020009) Tanto BOF quanto EOF são verdadeiros, ou o registro atual foi excluído; a operação solicitada pelo aplicativo requer um registro atual.

 

Então, pensando, será que se minha tabela estiver, como já está, totalmente zerada, pois já fiz o delete da mesma, em outra´página nã conseguirei inserir dados nela, pois precisarei declarar de alguma forma o sistema que a tabela esta vazia? eu acho que não né? não sei.

 

Esta aih a minha dúvida e minha página com erro, se alguém, ou você Vinicius entenderem algo me expliquem sobre isso.

Compartilhar este post

Link para o post
Compartilhar em outros sites

filipefurriel    0

filipefurriel
Postado

por incrivel que pareça, não. É estranho né? Na verdade além dessa programação que passei nesta página só existe uma outra lá no início com 5 linhas somente, para validação da senha do usuário, e um include do banco e do css, veja:

 

 

<!--#include file="css.txt"-->
<!--#include file="bd.asp"-->

<% if (session("validalogin")<>true)then
response.Redirect("login_ilegal.asp")
end If
response.Write(vlogin)
%>

fora isso, nada. O que você acha que deve ser este problema hein?

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

A causa mais provável, é que não há nenhum registro.

dá um response.write na sua string SQL para ver o que esta sendo passado

 

response.write(SQL)
response.end()

Compartilhar este post

Link para o post
Compartilhar em outros sites

Vinicius Ianni    189

Vinicius Ianni
Postado

seria depois disto por exemplo, mas você terá que alterar as strings:

rsinseremusicatotal.open("insert into tab_recebevalormusicas (musica,musicax,valor)values('"& vtotal &"','"& vnometotal &"','"& vvalor &"')"),conexao

 

para isto:

sql="insert into tab_recebevalormusicas (musica,musicax,valor)values('"& vtotal &"','"& vnometotal &"','"& vvalor &"'"

 

e coloca o que o xanburzum postou

Compartilhar este post

Link para o post
Compartilhar em outros sites

filipefurriel    0

filipefurriel
Postado

Gostaria de agradecer imensamente aos amigos d comu, pois felizmente o erro era grosseiro ,isso, por descuido de tanto tentar ver erro em programação, esquecemos do basico no html, o erro estava num simples action do form, com essa mania de copiar e colar scripts de nosso banco de dados esquecemos o básico muitas vezes e deixamos passar pequenos erros. Assim, declaro este coment fechado e reoslvido.

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito