Controle De Estoque

[Milena]

Estou ficando louca, com um erro que está ocorrento...

Estou tendo problemas com um dos select, pois mesmo sabendo que os dados da consulta teria que retronar algo ele apresenta erros. O Select q está dando erro é o último, mas coloquei o código todo para ficar mais fácil de entender.

	Set Conn = Server.CreateObject("AdoDb.Connection") 
	Conn.provider="Microsoft.Jet.OLEDB.4.0" 
	Conn.connectionstring=Server.Mappath("amor_arte.mdb") 
	Conn.open 

	id=session("id")
	response.write(id)

	codigo    = request.form("codigoProduto") 
	response.write(codigo)
	nome     = request.form("nomeProduto")
	quantidade    = request.form("quantidade")
	preço       = request.form("preço")
	data    = Date()
	ip            = request.ServerVariables("Remote_Addr")
	total    = request.form("totalfinal")

	SET RS = Server.CreateObject("ADODB.Recordset")
	SQL= "SELECT * From Carrinho where ID = '"&id&"' and CodigoProduto='"&codigo&"'"
	RS.Open SQL,conn,3

	If RS.EOF Then

	SET RS1 = Server.CreateObject("ADODB.Recordset")
	SQL1= "Insert into Carrinho(ID,IP,Data,CodigoProduto, NomeProduto, Quantidade, preço, Total)values('"&id&"','"&ip&"','"&data&"','"&codigo&"','"&nome&"',"&quantidade&",'"&preço&"', '"&total&"')"
	RS1.Open SQL1,conn,3

	Else
	quantidade2=RS("Quantidade")
	quantidadefinal=cint(quantidade2)+cint(quantidade)
	response.write(quantidade)
	response.write("quantidade antiga:")
	response.write(quantidade2)
	response.write("quantidadefinal")
	response.write(quantidadefinal)
	response.write("estou no else")

	SET RS2 = Server.CreateObject("ADODB.Recordset")
	SQL2= "UPDATE Carrinho SET Quantidade ="&quantidadefinal&" WHERE ID = '"&ID&"' AND CodigoProduto ='"&codigo&"'"
	RS2.Open SQL2,conn,3
	response.write("codigo:")
	response.write(codigo)

Esse select que está dando o erro, estou fazendo este select , pois tenho que abater no estoque , após inserir o produto no carrinho... [ERRO] ADODB.Field erro '80020009' BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual. E O MELHOR DE TUDO .... erro na linha 0 ... [ERRO]

	SET RS3 = Server.CreateObject("ADODB.Recordset")
	response.write(codigo)
	SQL3= "Select * From Produtos  WHERE CodigoProduto ='"&codigo&"'"
	RS3.Open SQL3,conn,3
	end if

[.Andreia.]

Eu vi que você mandou imprimir a variável codigo, retornou resultado??

você tb pode mandar imprimir a consulta:

SQL3= "Select * From Produtos  WHERE CodigoProduto ='"&codigo&"'"
RS3.Open SQL3,conn,3

response.write sql3
response.end

As vezes eu copio essa consulta sql e jogo no access (em consulta, criar consulta no modo SQL) pra ver o que ele retorna (se resultado ou se erro)... uma forma de depurar

[JCMPJ]

Esquece o que tava aqui.

[Milena]

Não sei, porque ai na quantidade ele funciona normal...

E o valor do Código está vindo corretamente estou imprimindo ele antes da chamada do último select e ele está com o valor correto

[Milena]

Eu não sei mais o que fazer, estou a ponto de começar a implementar tudo do zero novamente...

Percebi o seguinte...

ELE FAZ O SELECT

SET RS3 = Server.CreateObject("ADODB.Recordset")
SQL3= "Select * From Produtos  WHERE CodigoProduto ='"&codigo&"'"
RS3.Open SQL3,conn,3

ELE ESTÁ DANDO ERRO NO SEGUINTE :

response.write(RS3("CodigoProduto"))

erro:

ADODB.Field erro '80020009'

BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual.

/arquivos/amor_arte/projetos/web/Secoes/adm/hp/inclui_carrinho.asp, line 0

[.Andreia.]

Calma Milena,

você imprimiu a consulta SQL ??? Jogou la no access ???

[Ceh]

Eu não sei mais o que fazer, estou a ponto de começar a implementar tudo do zero novamente...

Percebi o seguinte...

ELE FAZ O SELECT

SET RS3 = Server.CreateObject("ADODB.Recordset")
SQL3= "Select * From Produtos  WHERE CodigoProduto ='"&codigo&"'"
RS3.Open SQL3,conn,3

ELE ESTÁ DANDO ERRO NO SEGUINTE :

response.write(RS3("CodigoProduto"))

erro:

ADODB.Field erro '80020009'

BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual.

/arquivos/amor_arte/projetos/web/Secoes/adm/hp/inclui_carrinho.asp, line 0

Provavelmente você não está tratando as informações do banco de dados, EOF é fim de registro, ou seja, a sua query não achou nada.

Tenta fazer assim:

[Milena]

Olha desculpem minha insitência ...

Ceh fiz a alteração que voce disse, agora ele não retorna mais o erro e sim da a mensagem

Não existe dados para exibir

Mesmo a consulta sendo verdadeira(pois tenho certeza que o código exite na tabe, pois copie e colei ela no acces, e ele me retorna o valor ...

muito grata pela atenção de vocês

*** Nota Importante ****

Quando eu coloco a consulta assim na minha página asp ela funciona:

SQL3= "Select * From Produtos WHERE CodigoProduto ='7'"

quando coloco assim

SQL3= "Select * From Produtos WHERE CodigoProduto ='"&codigo&"'"

não funciona porque será?

o campo CodigoProduto e Texto ....

[.Andreia.]

CodigoProduto no seu BD é numérico ou texto?

Se for numérico então:

SQL3= "Select * From Produtos  WHERE CodigoProduto = " & codigo

[Milena]

é texto ...

e um detalhe importente

acho que tem um <br> na minha variável codigo...

olha como ficou impressa minha consulta a aspas na linha de baixo:

testeSelect * From Produtos WHERE CodigoProduto ='7

'

tem como eu corrigir isso...

acho que efim a solução ... só não sei como fazer

[Ceh]

Para você ter certeza, comenta o código todo e imprime na tela a sua query. Mas o erro pode ser no nome do campo, porque se com a string funciona, tem q funcionar com a variável também... caso você não consiga resolver, posta a página que tem o formulário.

[ ]'s

[.Andreia.]

é texto ...

e um detalhe importente

acho que tem um <br> na minha variável codigo...

olha como ficou impressa minha consulta a aspas na linha de baixo:

testeSelect * From Produtos WHERE CodigoProduto ='7

'

tem como eu corrigir isso...

acho que efim a solução ... só não sei como fazer

Não vi nenhum <br>, essa plica embaixo pode ser que a consulta foi impressa dentro de uma tabela e daí o espaço tá limitado, passando pra linha abaixo... num sei

[JCMPJ]

Sei la, mas tenta isso

codigo = TRIM(request.form("codigoProduto"))

[Milena]

R E S O L V I D O !!!

Realmente era um <br> q está atrapalando, mas o erro era em outro formulário

Obrigado pelas dicas e ajuda que voces me deram