código não está atualizando

[millhouse 0]

<%@ Language=VBScript %><% 'Conexão com o banco de dadosconexao="DBQ=d:\servidor\bd\Geral.mdb;Driver={Microsoft Access Driver (*.mdb)}"Set DB = Server.CreateObject("ADODB.Connection")DB.Open conexaoid = server.htmlencode(request.form("id"))Responsavel = request.form("Responsavel")cidade = request.form("cidade")estado = request.form("estado")cnpj = request.form("cnpj")cep = request.form("cep")endereco = request.form("endereco")email = request.form("email")telefone = request.form("telefone")fax = request.form("fax")SQL = "UPDATE dados_usuario SET Responsavel='"&Responsavel&"' , cidade='"&cidade&"' , estado='"&estado&"' , cnpj='"&cnpj&"' , cep='"&cep&"' , endereco='"&endereco&"' , email='"&email&"' , telefone='"&telefone&"' , fax='"&fax&" ' Where id = '"&id&"'" db.execute(SQL)response.redirect("default.asp")%>aguem pode me dizer o que está de errado, qual dou um atualizar ele simplemente nao alterar nada deicha os registros como estãoagradeço desde já

[BigPaul 0]

Se entendi o codigo voce colocou no update o id como texto, ou seja, ' " & " ' .... se o seu ID no BD esteja como numérico , ele retorna nulo no where e por isso não atualiza.

 

É só um palpite

 

[millhouse 0]

bem o campo ID é aphanumerico

[BigPaul 0]

Volto a dizer, imagino que seja isso, já que não apresenta nenhuma mensagem de erro. Pra não retornar resultado, se o dado existe no bd, é porque não encontrou resultados que satisfizessem a condicional.

 

Vamos supor no bd está 14 , logo o asp entende que é numero

 

no teu criterio esta ' " & 14 & " ' o asp entende como texto

 

string 14 é diferente de numero 14

 

logo resulta nulo

 

Ou voce usa numerico ou string; não usa os dois com access que dá confusão

 

[millhouse 0]

Deu certo

porém fiz de outro modo criei um hidden field com id na "página anterior"

 

e inserir um código

 

Dim db__MMColParam

db__MMColParam = "1"

If (Request.Form("id") <> "") Then

db__MMColParam = Request.Form("id")

End If

 

 

<%@ Language=VBScript %>

<% 'Conexão com o banco de dados

conexao="dbQ=d:\servidor\bd\Geral.mdb;Driver={Microsoft Access Driver (*.mdb)}"

Set db = Server.CreateObject("ADOdb.Connection")

db.Open conexao

 

Dim db__MMColParam

db__MMColParam = "1"

If (Request.Form("id") <> "") Then

db__MMColParam = Request.Form("id")

End If

 

id = server.htmlencode(request.form("id"))

Responsavel = request.form("Responsavel")

cidade = request.form("cidade")

estado = request.form("estado")

cnpj = request.form("cnpj")

cep = request.form("cep")

endereco = request.form("endereco")

email = request.form("email")

telefone = request.form("telefone")

fax = request.form("fax")

 

 

 

 

SQL = "UPDATE dados_usuario SET Responsavel='"&Responsavel&"' , unidade='"&cidade&"' , estado='"&estado&"' , cnpj='"&cnpj&"' , cep='"&cep&"' , endereco='"&endereco&"' , email='"&email&"' , telefone='"&telefone&"' , fax='"&fax&" ' WHERE id = '" + Replace(db__MMColParam, "'", "''") + "'"

 

 

 

 

db.execute(SQL)

 

 

response.redirect("default.asp")

%>