Ir para conteúdo

POWERED BY:

Arquivado

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

Amaral

[Resolvido] Problema com Sintaxe(Update)

Por , em ASP Clássico

Recommended Posts

Amaral    0

Amaral
Postado 

<%@LANGUAGE="VBSCRIPT"%>
<%
option explicit
%>
<!--#Include file="dbconexao.inc"-->
<%
Dim conexaoDataBase
Dim strIns, rsFilmes
Dim varCodigo, varGenero, VarTitulo, varDirecao, varDuracao, varPreco, varAno, varSinopse, varLancamento, varIdFilme
varIdFilme = Trim(request.Form("idFilme"))
varCodigo = Trim(request.Form("txtCodigo"))
varGenero = Trim(request.Form("txtGenero"))
varTitulo = Trim(request.Form("txtTitulo"))
varDirecao = Trim(request.Form("txtDirecao"))
varDuracao = Trim(request.Form("txtDuracao"))
varPreco = request.Form("txtPreco")
varAno = Trim(request.Form("txtAno"))
varSinopse = request.Form("txtSinopse")
varLancamento = Trim(request.Form("txtLancamento"))
varTitulo = REPLACE(varTitulo, "'", " ")
varDirecao = REPLACE(varDirecao, "'", " ")
varSinopse = REPLACE(varSinopse, "'", " ")
varPreco = REPLACE(varPreco, "'", ".")
Call abreconexao
strIns = "UPDATE Filmes SET "
strIns = strIns & "CodFilme = '" & varCodigo & "', "
strIns = strIns & "genero = '" & varGenero & "', "
strIns = strIns & "Titulo = '" & varTitulo & "', "
strIns = strIns & "Direcao = '" & varDirecao & "', "
strIns = strIns & "Duracao = " & varDuracao & ", "
strIns = strIns & "Preco = " & varPreco & ", "
strIns = strIns & "Sinopse = '" & varSinopse & "', "
strIns = strIns & "Lancamento = '" & varLancamento & "', "
strIns = strIns & "Ano = '" & varAno & "' "
strIns = strIns & "WHERE codFilme = '" & varIdFilme & "' "
set rsFilmes = conexaoDataBase.execute(strIns)
Call fechaconexao
set rsFilmes = nothing
-----------------

Meu código é esse e quando tento fazer o update na página apresenta o erra a baixo.

 

 

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

 

[Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe na instrução UPDATE.

 

/locadora/paginas/AlteraFilmes3.asp, linha 36 (essa linha 36 é set rsFilmes = conexaoDataBase.execute(strIns))

 

 

Alguém pode me ajudar?

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

faça isso

response.write strIns : response.end
set rsFilmes = conexaoDataBase.execute(strIns)
poste o resultado

Compartilhar este post

Link para o post
Compartilhar em outros sites

Amaral    0

Amaral
Postado

faça isso

response.write strIns : response.end
set rsFilmes = conexaoDataBase.execute(strIns)
poste o resultado

 

o código ficou assim:

<%@LANGUAGE="VBSCRIPT"%>
<%
option explicit
%>
<!--#Include file="dbconexao.inc"-->
<%
Dim conexaoDataBase
Dim strIns, rsFilmes
Dim varCodigo, varGenero, VarTitulo, varDirecao, varDuracao, varPreco, varAno, varSinopse, varLancamento, varIdFilme
varIdFilme = Trim(request.Form("idFilme"))
varCodigo = Trim(request.Form("txtCodigo"))
varGenero = Trim(request.Form("txtGenero"))
varTitulo = Trim(request.Form("txtTitulo"))
varDirecao = Trim(request.Form("txtDirecao"))
varDuracao = Trim(request.Form("txtDuracao"))
varPreco = request.Form("txtPreco")
varAno = Trim(request.Form("txtAno"))
varSinopse = request.Form("txtSinopse")
varLancamento = Trim(request.Form("txtLancamento"))
varTitulo = REPLACE(varTitulo, "'", " ")
varDirecao = REPLACE(varDirecao, "'", " ")
varSinopse = REPLACE(varSinopse, "'", " ")
varPreco = REPLACE(varPreco, "'", ".")
Call abreconexao
strIns = "UPDATE Filmes SET "
strIns = strIns & "CodFilme = '" & varCodigo & "', "
strIns = strIns & "genero = '" & varGenero & "', "
strIns = strIns & "Titulo = '" & varTitulo & "', "
strIns = strIns & "Direcao = '" & varDirecao & "', "
strIns = strIns & "Duracao = " & varDuracao & ", "
strIns = strIns & "Preco = " & varPreco & ", "
strIns = strIns & "Sinopse = '" & varSinopse & "', "
strIns = strIns & "Lancamento = '" & varLancamento & "', "
strIns = strIns & "Ano = '" & varAno & "' "
strIns = strIns & "WHERE codFilme = '" & varIdFilme & "' "
response.write strIns : response.end
set rsFilmes = conexaoDataBase.execute(strIns)
Call fechaconexao
set rsFilmes = nothing
%>
<html>
<head>
<title>Alterando registros em uma tabela</title>

</head>
<body>
Alteração executada com sucesso
</body>
</html>

 

#Resultado:

 

UPDATE Filmes SET CodFilme = '002A', genero = 'ANIMA', Titulo = 'A Era do Gelo', Direcao = 'Chris Wedge', Duracao = 115, Preco = 2,5, Sinopse = 'Durante o período glacial, um bebê é separado de seus pais quando tigres atacam uma aldeia de esquimós. Mas um trio de heróis que estava no lugar errado, mas na hora certa - um mamute rabugento, porém, dono de um grande coração (Manfred, mais conhecido como Manny), um atrapalhado bicho preguiça (Sid) e um tigre dente de sabre muito suspeito (Diego) - embarcará numa jornada para ajudá-lo a encontrar sua família.', Lancamento = 'N', Ano = '24/06/2002' WHERE codFilme = '002A'

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

o preço está errado

Preco = 2,5,

tem que ser

Preco = 2.5,

 

faça assim

varPreco = replace(replace("" & request.Form("txtPreco"), ".", ""), ",", ".")
e retire o que pedi pra você colocar anteriormente

Compartilhar este post

Link para o post
Compartilhar em outros sites

Amaral    0

Amaral
Postado

o preço está errado

Preco = 2,5,

tem que ser

Preco = 2.5,

 

faça assim

varPreco = replace(replace("" & request.Form("txtPreco"), ".", ""), ",", ".")
e retire o que pedi pra você colocar anteriormente

 

Aí é isso mesmo...Valeu! consegui corrigir.

eu estava substituindo ' por . antes, tava escrito errado.

varPreco = REPLACE(varPreco, "'", ".")

 

agora mudei

varPreco = REPLACE(varPreco, ",", ".")

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

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

  Aceito