(Resolvido) Dúvidas no Update

[beto_solobó]

Olá a todos.. tenho uma dúvida e nada melhor do que os fóruns para recorrer...

Seguinte:

Preciso pegar as informações de um formulário e atualizar as informações do banco de dados com elas.

Já pesquisei e achei umas coisas prontas na net, mas tá dando pau:

Tipo de erro:

Microsoft JET Database Engine (0x80040E07)

Tipo de dados imcompatível na expressão de critério.

Creio que seja simples, mas tá me dando uma dor de cabeça danada aqui...

O processo:

Pagina com lista de produtos. Depois clico num produto e exibo as especificações dele. Daí tenho a opção de alterar alguma info, e por fim, dou um "enviar" no formulário que chama outra página com as instruções de update no banco de dados.

Aí que tá o pau!!!! Ele retorna este erro que coloquei acima.

Alguém tem algum pronto para que eu possa comparar com o meu? Ou será que fica mais fácil tentar arrumar o meu?

Aguardo ajuda de todos!

Abraços.

Beto :wacko:

[Notax]

Posta aí o script!

[]'s Notax

[jow]

opá brother beleza ... dá uma olhada ai no meu UPDATE ...

<% 
if session("login") <> true then
  response.redirect "default.asp"
end if
%>

<!--#include file="config/conexao.asp"-->
<%

call abre_conectar

'Atrubuição dos valores as respectivas variáveis
titulo = Request.Form("titulo")
data = Request.Form("data")
hora = Request.Form("hora")
obs = Request.Form("obs")
convidar = Request.Form("convidar")
'foto = Request.Form("foto")
'if foto = "" then
    'foto = " "
'end if
'if comentario = "" then
    'comentario = " "
'end if
id = Request.Form("id")

'não vou permitir a alteração da foto senão você já viu néw
'strQuery = "UPDATE contato SET nome = '"&nome&"', telefone='"&telefone&"', email='"&email&"', comentario='"&comentario&"', foto = '"&foto&"' WHERE autonum ="&autonum
sql = "UPDATE agenda SET titulo = '"&titulo&"', data='"&data&"', hora='"&hora&"', obs='"&obs&"', convidar='"&convidar&"' WHERE id ="&id

'Caso ocorra um erro esta função de erro será chamada
On error Resume Next
'Executaa inserção no Banco de Dados 
set tab = cnn.execute(sql)
'Fecha o Objeto de Conexão
call fecha_conectar
set tab = nothing 
if err = 0 Then
    'Redireciona o usuário caso não tenha ocorrido erro na transação
    response.redirect "sucesso.asp"
end if
%>

[Notax]

OK... qual o erro e em qual linha? por via das duvidas posta tb esse conexao.asp tb...

[]'s Notax

[jow]

opá cara esse meu está correto estou respondendo o tópico acima kkkkkkkkkkkkkk

[Notax]

hahaha... boa... foi mau!

[]'s Notax

[jow]

kkkkkkkkkkkkkkkkkkkkkkkk ... ae aproveitando dá uma olhada ai no fórun q postei um dúvida quase agora e vê se você consegue me ajudar ...

[beto_solobó]

hahahahah... que rolo!!!!

Bom, vou colocar o meu codigo (com algum erro) aqui:

Response.Buffer = True
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open ConString

Session("id") = Request.Form("codigo_pro")
Session("nome") = Request.Form("nome_pro")
Session("categoria") = Request.Form("categoria")
Session("fabricante") = Request.Form("fabricante")
Session("linha") = Request.Form("linha")
Session("chamada") = Request.Form("chamada")
Session("info") = Request.Form("info")
Session("exib") = Request.Form("exib")

set RS_ALTERA = Server.CreateObject("ADODB.Recordset")
RS_ALTERA.ActiveConnection = ConString
RS_ALTERA.Source = "SELECT * FROM produtos WHERE codigo_pro = "&Session("id")&" "
RS_ALTERA.CursorType = 0
RS_ALTERA.CursorLocation = 2
RS_ALTERA.LockType = 3
RS_ALTERA.Open()

RS_ALTERA("codigo_pro") = Session("id")
RS_ALTERA("nome_pro") = Session("nome")
RS_ALTERA("codigo_categ") = Session("categoria")
RS_ALTERA("codigo_fab") = Session("fabricante")
RS_ALTERA("codigo_lin") = Session("linha")
RS_ALTERA("chamada") = Session("chamada")
RS_ALTERA("info") = Session("info")
RS_ALTERA("exib") = Session("exib")

RS_ALTERA.Update
RS_ALTERA.Close

Conexao.Close

Response.Redirect "inicio.asp?modulo=gpro"

Abraços

Ah... o que é esse "strQuery" que você colocou em um caso aí.

Eu uso somente o "sql" para executar...

Será que é isso?

[jow]

opá cara cadê a sua linha se UPDATE onde você atualiza os dados ...

já vou te adiantando q no seu formulário de UPDATE você tem q usar um campo oculto para pegar o id, na página onde você executa o UPDATE você usa

id = Request.Form("id")

para pegar o valor do ID do formulário ... Só isso hehe

[beto_solobó]

No final do código tem RS_ALTERA.Update

Não é isso?

E meu id eu pego o "codigo_pro", é a partir desse filtro que altero os dados. Pode ser assim?

Editado Abril 10, 2008 por beto_solobó

[jow]

não cara olha só você tem um formulário onde aparecem os dados a serem alterados certo ?? então depois do <input> do último campo você usa

<input type="hidden" name="id" value="<%=tab("id")%>">

esse input vai pegar o seu ID ... na página de UPDATE é só você trazer esse ID através do

id = Request.Form("id")

e ai é só você usar ele no seu UPDATE. Qualquer dúvida é só você postar ai o código do seu formulário e também da sua página onde está o seu UPDATE ...

[beto_solobó]

Aí galera.. valeu!

RESOLVIDO!

Faltavam uma droga de aspas no meio do código!!!!!

Ê dor de cabeça!!!

hehehehe

Abraços e muito obrigado!

Ps.: Como eu coloco o status de resolvido aqui no tópico? Alguém sabe?