Erro 501

[luiscarlos5046 3]

Estou com um problema aqui, e não consegui descobrir o que está causando isso...

ele me retorna ERRO 501

Atribuição inválida

e tudo isso ai embaixo:

=====================

Insert into produtos ( preco,status,titulo,descritivo,texto,atacado ) values ( 3400,1,'B00127','Brinco com banho de prata, colagem de strass Swarovski e madrepérola, contas de murano, poecelana e cristal tcheco.','Brinco com banho de prata, colagem de strass Swarovski e madrepérola, contas de murano, poecelana e cristal tcheco.',2040 )

 

o que deve estar saindo errado ??

O arquivo ASP com o código está zipado no link abaixo:

 

http://www.facip2005.com.br/add-dados.zip

 

Me ajudem urgente

Luis Carlos

[Mário Monteiro 179]

estranho este erro...

[luiscarlos5046 3]

Ai galera,

 

pelo menos agora descobri que o erro não está naquela parte do código, mas sim nesta parte abaixo:

 

ASP

[*]

 

[*]

 

[*] SELECT CASE categoria

 

[*] CASE 1, 2, 3, 4

 

[*] Set TbCod = Server.CreateObject("ADODB.RECORDSET")

 

[*] TbCod.Open "SELECT TOP 1 produtos_id FROM produtos ORDER BY produtos_id DESC", cn

 

[*] if TbCod.eof = true then

 

[*] ultimo_id = 1

 

[*] else

 

[*] ultimo_id = Cint(TbCod.fields("produtos_id"))

 

[*] end if

 

[*] cn.Execute("INSERT INTO categprods (produtos_id, categorias_id) VALUES ('"& ultimo_id &"','"& categoria &"')")

 

[*] CASE ""

 

[*] strOk = ""

 

[*] strOk = strOk & "Não foi possível relacionar Categoria. <br> Categoria inválida.<br>"

 

[*] strOk = strOk & "<a href='" & tabela & ".asp'>Clique Aqui</a> para inserir novos dados."

 

[*] END SELECT

 

[*]

 

O deu errado ai nesse código ???

 

Luis Carlos

[Mário Monteiro 179]

como tem certeza de que ta ai o erro??

[luiscarlos5046 3]

Eu fiz um teste aqui sem esse código e funcionou....Deve ser alguma coisa com essecn.Execute("INSERT INTO categprods (produtos_id, categorias_id) VALUES ('"& ultimo_id &"','"& categoria &"')")isso funciona desse jeito tbm ???Luis Carlos <_<

[Mário Monteiro 179]

estes campos são texto?? ou numeros??

[luiscarlos5046 3]

Os campos do BD são números...

[Mário Monteiro 179]

então insere sem aspas simples...

[Marcelo Barcellos 0]

Ou Utiliza o metedo do Recordset para inserir.

 

Tipo assim:

 

ASP

[*]

 

[*]ORs.Open "nome_tabela",oConn,1,3,2

 

[*]ORs.AddNew 'Isso adiciona um registro

 

[*]ORs("cd") = cd

 

[*]ORs("ds") = ds

 

[*]ORs.Update 'Isso Salva o registro

 

[*]

 

[*]'Se quiser pegar algum valor que é gerado automaticamente, basta

 

[*]'setar o parâmetro e apontar para o valor

 

[*]

 

[*]cd_codigo_automatico = ORs("cd_identity")

 

[*]

 

[*]ORs.Close

 

[*]Set = ORs = nothing

 

[*]

[luiscarlos5046 3]

Ai pessoal,essa coisa ainda apresenta aquele erro de atribuição, mas o engraçado é que ele está adicionando o registro normalmente.Ele apresenta isso:--------------------------------------------------------------------------------Erro nº : 501 Atribuição inválida Select TOP 1 produtos_id FROM produtos ORDER BY produtos_id DESC--------------------------------------------------------------------------------Tem alguma coisa errada nesse Select ???Luis Carlos

[Mário Monteiro 179]

se o db for access ou sql server não

[luiscarlos5046 3]

Ai Mario,se você tiver MSN entra em contato comigoestou online...Como eu faço um select no BD acess para pegar o último ID cadastrado ???Meu MSN é o mesmo nick usado aqui (HOTMAIL)Luis Carlos

[Mário Monteiro 179]

não uso msn...mas estou o dia todo online aqui no forumposta ai que se não for eu alguem te ajuda...

[luiscarlos5046 3]

Ai pessoal,o que tem de errado nesses Select e Insert ???set rs = cn.execute("Select TOP 1 produtos_id FROM produtos ORDER BY produtos_id DESC")cn.Execute("INSERT INTO categprods (produtos_id, categorias_id) VALUES ('"& ultimo_id &"','"& categoria &"')")O engraçado é que isso estava funcionando.... Luis carlos

[Mário Monteiro 179]

no insert se os campos foram numericos tem de tirar as aspas simplescn.Execute("INSERT INTO categprods (produtos_id, categorias_id) VALUES ("& ultimo_id &","& categoria &")")