Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

lezão

Update sem utilizar type="radio"

Recommended Posts

Ola pessoal, bom dia!

 

Gostaria de saber q erro é esse?

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error in UPDATE statement.

/cadastro_clientes/altera_dados.asp, line 45

Altera_dados



<%

'Força o programador a declarar todas as variáveis, evitando erro de digitação no uso das variéveis
Option Explicit

'Não deixa informações no Cache
Response.Expires = 0

'Declaração das variáveis
Dim objConn, strQuery, sql_query, RsQuery, campo, sql, radio, id
Dim ok1, ok2, ok3, ok4, ok5, ok6, ok7, ok8, ok9, ok10, Statuz, ObjRs

'Atrubuição dos valores as respectivas variáveis
ok1 = Request.Form("ok1")
ok2 = Request.Form("ok2")
ok3 = Request.Form("ok3")
ok4 = Request.Form("ok4")
ok5 = Request.Form("ok5")
ok6 = Request.Form("ok6")
ok7 = Request.Form("ok7")
ok8 = Request.Form("ok8")
ok9 = Request.Form("ok9")
ok10 = Request.Form("ok10")
Statuz = Request.Form("Statuz")

'id = Request.Form("id")




'Cria o objeto RecordSet e atribui a variável 
Set objConn =  Server.CreateObject("ADODB.Connection")
'Abre a conexão com o banco de dados utilizando o Drive {Microsoft Access...
'(para utilizar outro, ex: Paradox é só substituir o Drive pelo do Paradox)
'(*.mdb) indica que o arquivo utiliza extensão mdb
objConn.Open "DBQ=" & Server.MapPath("Dados/Dados2014.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"

strQuery = "UPDATE Clientes SET ok1='"&ok1&"', ok2='"&ok2&"', ok3='"&ok3&"', ok4='"&ok4&"', ok5='"&ok5&"', ok6='"&ok6&"', ok7='"&ok7&"', ok8='"&ok8&"', ok9='"&ok9&"', ok10='"&ok10&"', Statuz='"&Statuz&"', WHERE id ="&id

'Caso ocorra um erro esta função de erro será chamada
'On error Resume Next
'Executa inserção no Banco de Dados 
Set ObjConn = objConn.Execute(strQuery)
'Fecha o Objeto de Conexão
objConn.close
'"APAGA" qualquer instancia que possa ter no objeto objRs e objConn
Set objRs = Nothing
Set objConn = Nothing 
if err = 0 Then
	'Redireciona o usuário caso não tenha ocorrido erro na transação
	response.redirect "index.asp"
end if
%>

Compartilhar este post


Link para o post
Compartilhar em outros sites

a mensagem é bem clara... erro na SQL..

não devia, mas... tire a virgula antes do "where".

cara, na boa.. estude SQL... sem isso vc vai viver sofrendo com "pepininhhos" básicos como esse..

dicas boas p/ começar:

http://www.linhadecodigo.com.br/artigo/2975/comandos-basicos-em-sql-insert-update-delete-e-select.aspx
http://www.linhadecodigo.com.br/artigo/75/principais-instrucoes-em-sql.aspx

Compartilhar este post


Link para o post
Compartilhar em outros sites

Isso é erro de sintaxe na instrução de seu update.

 

você deve estar passando algum valor errado.

 

Da um Response.Write no strQuery e ver o que está sendo passado.

 

vlw

 

 

OPS: editando rsrsrs. Vdd o que o Fernando disse, essa vírgula não existe.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Verifique a ortografia. pode ser um nome de coluna Invalido 'sua_coluna'. A coluna a qual você se refere na Base de Dados não foi encontrada. e também veja se os tipos de dados estão corretos

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.