Loja Virtual

[Diego_Fenixweb 0]

Boa tarde a todos.

Estou com um grande problema em uma loja virtual que está hospedada na locaweb.

 

é o seguinte pessoas.

 

Quando eu vou alterar determinado registro(não todos apenas alguns), ele acontece o seguinte erro:

 

Microsoft Cursor Engine error '80040e38'

 

Row cannot be located for updating. Some values may have been changed since it was last read.

 

 

 

If myFileUpload.form("nome_produto|"&Trim(VetorIdioma)) <> "" Then
            
            'O bloco abaixo grava os valores no banco de dados
            RS_Produto("nome_produto") = myFileUpload.form("nome_produto|"&Trim(VetorIdioma))
            RS_Produto("descricao_produto") = myFileUpload.form("descricao_produto|"&Trim(VetorIdioma))
            RS_Produto("codigo_categoria") = Codigo_categoria
            RS_Produto("codigo_subcategoria") = Codigo_subcategoria
            RS_Produto("codigo_marca") = codigo_marca
            RS_Produto("codigo_produto_loja") = codigo_produto_loja
            RS_Produto("codigo_isbn") = codigo_isbn
            If preco_unitario <> "" Then
                RS_Produto("preco_base") = preco_unitario
                RS_Produto("preco_unitario") = preco_unitario
            End if
            RS_Produto("quantidade_produto") = quantidade_produto
            RS_Produto("peso") = peso_produto

            RS_Produto("destaque_vitrine") = destaque_vitrine

            RS_Produto("promocao") = promocao
            RS_Produto("desconto") = desconto

            RS_Produto("data_inicio") = dataInicio
            RS_Produto("data_fim") = dataFim

            RS_Produto("disponivel") = disponivel

            'Se a imagem principal não for enviada e não existir registro de anterior, será registrada as imagens pequena e grande de produto não disponível
            If Isnull(img_produtoPQN) Then
                img_produtoPQN = "config/imagens_conteudo/produtos/imagensPQN/PQN_naodisponivel.gif"
            End If
            If Isnull(img_produtoGRD) Then 
                img_produtoGRD = "config/imagens_conteudo/produtos/imagensGRD/GRD_naodisponivel.gif"
            End If

            If img_produtoPQN <> "" Then
                RS_Produto("img_produtoPQN") = img_produtoPQN
            End if

            If img_produtoGRD <> "" Then
                RS_Produto("img_produtoGRD") = img_produtoGRD
            End If
 
            RS_Produto("img_produto_adic01PQN") = img_produto_adic01PQN
            RS_Produto("img_produto_adic01GRD") = img_produto_adic01GRD
            RS_Produto("img_produto_adic02PQN") = img_produto_adic02PQN
            RS_Produto("img_produto_adic02GRD") = img_produto_adic02GRD
            RS_Produto("img_produto_adic03PQN") = img_produto_adic03PQN
            RS_Produto("img_produto_adic03GRD") = img_produto_adic03GRD
            
            RS_Produto("cores") = cor
            RS_Produto("tamanhos") = tamanho
            RS_Produto("sigla_idioma") = Trim(VetorIdioma)
            
			RS_Produto.Update
        End if

[Mário Monteiro 179]

Olá Diego_Fenixweb,

 

Conforme o aviso existente no fórum de origem deste post, não é permitida a postagem de dúvidas nesta área, motivo pelo qual este tópico será movido para o fórum principal deste assunto.

 

Tópico Movido

 

Origem: Artigos, Tutoriais e Matérias (ASP) http://forum.imasters.com.br/public/style_emoticons/default/seta.gif Destino: ASP

 

Abraços

 

Mário Monteiro

[xanburzum 169]

veja se as colunas da tabela não estão como NOT NULL

e ao invés de usar o método update do Recordset use a instrução UPDATE do SQL

e seta o CursorType = 1