Ir para conteúdo
Fórum CódigoFonte.net
Entre para seguir isso  
Roronoa Manolo

Erro Cadastro de Produtos

Recommended Posts

Eaee pessoal, blzz ??

Eu sou novo no forum e nessa Área tbm, vim aqui porque estou com problemas na minha Loja Virtual =/

Estou utilizando SQL para ASP (Se não me engano é esse o nome), estou utilizando o ACCESS 2003.

É o seguinte que está ocorrendo:

Eu estava utilizando um BD para Testes, após os testes eu troquei pelo real, porém esta dando erros de duplicação.

Os dois Banco de dados estão exatamente iguais e os códigos que funcionavam na versão antiga também estão.

"Script error detected at line 163.

Source line: cmdSQL.Execute()

Description: As alteraçoes solicitadas para a tabela não foram satisfatórias já que criariam valores duplicados no indice, chave primaria ou relação. Altere os dados no campo ou campos que contém os dados duplicados, remova o indice ou redefina o indice para possibilitar entradas duplicadas e tente novamente."

<%

response.Buffer = true

Dim rsCodigos

Dim rsCodigos_cmd

Dim rsCodigos_numRows

Set rsCodigos_cmd = Server.CreateObject ("ADODB.Command")

rsCodigos_cmd.ActiveConnection = MM_bdSisLoja_STRING

rsCodigos_cmd.CommandText = "SELECT * FROM tabCodigos"

rsCodigos_cmd.Prepared = true

Set rsCodigos = rsCodigos_cmd.Execute

rsCodigos_numRows = 0

'2º passo: ajustar o código do produto para cadastrar um novo produto

dim codigo_pro

codigo_pro = rsCodigos.Fields.Item("codigo_pro").Value + 1

rsCodigos.Close()

Set rsCodigos = Nothing

'Preparar o campo de preço

Dim preco_unitario

preco_unitario = request("edtPreco")

preco_unitario = Replace(preco_unitario,".","")

preco_unitario = Replace(preco_unitario,",",".")

'Preparar o campo de resumo

Dim conteudo

Dim conteudo_anterior

conteudo_anterior = Replace(Request.Form("txtContent"),"'","''")

conteudo = ConvertStrHTML(conteudo_anterior)

'3º passo: comando sql de inclusão de um novo produto

Set cmdSQL = Server.CreateObject ("ADODB.Command")

cmdSQL.ActiveConnection = MM_bdSisLoja_STRING

cmdSQL.CommandText = "INSERT INTO tabProdutos " &_

"(codigo_pro, codigo_cat, codigo_mar, descricao_pro, " &_

" preco_pro, resumo_pro, qtde_estoque_pro, " &_

" ativo_pro, principal_pro, img_gde_pro, img_peq_pro)" &_

" VALUES ( " &_

codigo_pro & ", " &_

request("cmbCategoria") & ", " &_

request("cmbMarca") & ", " &_

chr(34) & request("edtDescricao") & chr(34) & ", " &_

preco_unitario & ", " &_

chr(39) & conteudo & chr(39) & ", " &_

request("edtQtdeEstoque") & ", " &_

chr(34) & request("rdgAtivo") & chr(34) & ", " &_

chr(34) & request("rdgPrincipal") & chr(34) & ", " &_

chr(34) & "foto_produto_molde.jpg" & chr(34) & ", " &_

chr(34) & "foto_produto_molde.jpg" & chr(34) &_

")"

cmdSQL.CommandType = 1

cmdSQL.CommandTimeout = 0

cmdSQL.Prepared = true

cmdSQL.Execute()

'4º passo: gravar o novo código do último produto cadastrado

Set cmdSQL = Server.CreateObject ("ADODB.Command")

cmdSQL.ActiveConnection = MM_bdSisLoja_STRING

cmdSQL.CommandText = "UPDATE tabCodigos SET " &_

" codigo_pro = " & codigo_pro

cmdSQL.CommandType = 1

cmdSQL.CommandTimeout = 0

cmdSQL.Prepared = true

cmdSQL.Execute()

response.redirect("cadProdutos_sql.asp?codigo_pro=" & codigo_pro)

%>

Utilizo o Dreamweaver CS4, Win Seven

Por favor me ajudem =S

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
Entre para seguir isso  

×
×
  • Criar Novo...