Ir para conteúdo

POWERED BY:

Arquivado

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

Amaral

[Resolvido] Problema com Update

Por , em ASP Clássico

Recommended Posts

Amaral    0

Amaral
Postado

Olá, já observei várias vezes e não identifiquei qual o erro, alguém pode me ajudar?

 

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

 

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

 

/ecohidro/AlteraServ_3.asp, linha 22 (essa linha foi a que eu coloquei de vermelho)

<%@LANGUAGE="VBSCRIPT"%>
<%
option explicit
%>
<!--#Include file="dbconexao.inc"-->
<%
Dim conexaoDataBase
Dim strIns, rsServicos
Dim varTitulo, varconceito, varId
varId = Trim(request.Form("idServico"))
varTitulo = Trim(request.Form("txtTitulo"))
varconceito = Trim(request.Form("txtConceito"))
varconceito = REPLACE(varconceito, "'", " ")
varTitulo = REPLACE(varTitulo, "'", " ")
Call abreconexao
strIns = "UPDATE servicos SET "
strIns = strIns & "area = '" & varTitulo & "',"
strIns = strIns & "conceito = '" & varconceito & "', "
strIns = strIns & "WHERE CodServ = '" & varId & "'"

[color="#FF0000"]set rsServicos = conexaoDataBase.execute(strIns)[/color]
Call fechaconexao
set rsServicos = nothing
%>
<html>
<head>
<title>Alterando registros em uma tabela</title>

</head>
<body>
<p align="center"><strong>Alteração efetuada com sucesso!</strong></p>
</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

EuToComProblema!    1

EuToComProblema!
Postado

não saco nada de asp, mas achei um erro:

 

strIns = "UPDATE servicos SET "
strIns = strIns & "area = '" & varTitulo & "',"
strIns = strIns & "conceito = '" & varconceito & "', "  <-- AKI TEM UMA , SOBRANDO
strIns = strIns & "WHERE CodServ = '" & varId & "'"

Compartilhar este post

Link para o post
Compartilhar em outros sites

augustoclaro    2

augustoclaro
Postado

roda esse código para escrever a sql na página e eu procurar um erro:

 


<%@LANGUAGE="VBSCRIPT"%>
<%
option explicit
%>
<!--#Include file="dbconexao.inc"-->
<%
Dim conexaoDataBase
Dim strIns, rsServicos
Dim varTitulo, varconceito, varId
varId = Trim(request.Form("idServico"))
varTitulo = Trim(request.Form("txtTitulo"))
varconceito = Trim(request.Form("txtConceito"))
varconceito = REPLACE(varconceito, "'", " ")
varTitulo = REPLACE(varTitulo, "'", " ")
Call abreconexao
strIns = "UPDATE servicos SET "
strIns = strIns & "area = '" & varTitulo & "',"
strIns = strIns & "conceito = '" & varconceito & "', "
strIns = strIns & "WHERE CodServ = '" & varId & "'"
response.write strIns
response.end
set rsServicos = conexaoDataBase.execute(strIns)
Call fechaconexao
set rsServicos = nothing
%>
<html>
<head>
<title>Alterando registros em uma tabela</title>

</head>
<body>
<p align="center"><strong>Alteração efetuada com sucesso!</strong></p>
</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Amaral    0

Amaral
Postado

roda esse código para escrever a sql na página e eu procurar um erro:

 


<%@LANGUAGE="VBSCRIPT"%>
<%
option explicit
%>
<!--#Include file="dbconexao.inc"-->
<%
Dim conexaoDataBase
Dim strIns, rsServicos
Dim varTitulo, varconceito, varId
varId = Trim(request.Form("idServico"))
varTitulo = Trim(request.Form("txtTitulo"))
varconceito = Trim(request.Form("txtConceito"))
varconceito = REPLACE(varconceito, "'", " ")
varTitulo = REPLACE(varTitulo, "'", " ")
Call abreconexao
strIns = "UPDATE servicos SET "
strIns = strIns & "area = '" & varTitulo & "',"
strIns = strIns & "conceito = '" & varconceito & "', "
strIns = strIns & "WHERE CodServ = '" & varId & "'"
response.write strIns
response.end
set rsServicos = conexaoDataBase.execute(strIns)
Call fechaconexao
set rsServicos = nothing
%>
<html>
<head>
<title>Alterando registros em uma tabela</title>

</head>
<body>
<p align="center"><strong>Alteração efetuada com sucesso!</strong></p>
</body>
</html>

apareceu isso:

UPDATE servicos SET area = 'Aquicultura',conceito = 'A aquicultura pode ser definida como o processo de produção em cativeiro, de organismos com habitat predominantemente aquático, tais como peixes, camarões, rãs, entre outras espécies. Deve ser desenvolvida de maneira sustentável para que o ambiente seja utilizado de forma racional e a atividade possa ser praticada por muito tempo..TESTE', WHERE CodServ = '3'

Compartilhar este post

Link para o post
Compartilhar em outros sites

EuToComProblema!    1

EuToComProblema!
Postado

insisto em dizer que tem uma vírgula sobrando...

 

UPDATE servicos SET area = 'Aquicultura',conceito = 'A aquicultura pode ser definida como o processo de produção em cativeiro, de organismos com habitat predominantemente aquático, tais como peixes, camarões, rãs, entre outras espécies. Deve ser desenvolvida de maneira sustentável para que o ambiente seja utilizado de forma racional e a atividade possa ser praticada por muito tempo..TESTE', <-AKI! WHERE CodServ = '3'

 

UPDATE tabela SET

campo1 = valor1 , --aki tem virgula

campo2 = valor2 , --aki tb

campo3 = valor3 --aki nao pq eh a ultima linha, = no select

WHERE campo1 = 'alguma coisa'

Compartilhar este post

Link para o post
Compartilhar em outros sites

Amaral    0

Amaral
Postado

insisto em dizer que tem uma vírgula sobrando...

 

UPDATE servicos SET area = 'Aquicultura',conceito = 'A aquicultura pode ser definida como o processo de produção em cativeiro, de organismos com habitat predominantemente aquático, tais como peixes, camarões, rãs, entre outras espécies. Deve ser desenvolvida de maneira sustentável para que o ambiente seja utilizado de forma racional e a atividade possa ser praticada por muito tempo..TESTE', <-AKI! WHERE CodServ = '3'

 

UPDATE tabela SET

campo1 = valor1 , --aki tem virgula

campo2 = valor2 , --aki tb

campo3 = valor3 --aki nao pq eh a ultima linha, = no select

WHERE campo1 = 'alguma coisa'

 

Entendi amigo, mas eu tirei e olha como ficou:

 

UPDATE servicos SET area = 'Aquicultura',conceito = 'A aquicultura pode ser definida como o processo de produção em cativeiro, de organismos com habitat predominantemente aquático, tais como peixes, camarões, rãs, entre outras espécies. Deve ser desenvolvida de maneira sustentável para que o ambiente seja utilizado de forma racional e a atividade possa ser praticada por muito tempo.TESTANDO!'WHERE CodServ = '3'

Compartilhar este post

Link para o post
Compartilhar em outros sites

EuToComProblema!    1

EuToComProblema!
Postado

agora só precisa colocar um espaço.

 

eu gosto de colocar no inicio da nova linha, mas isso é o de menos...

 

strIns = "UPDATE servicos SET "
strIns = strIns & "area = '" & varTitulo & "',"
strIns = strIns & "conceito = '" & varconceito & "' "
strIns = strIns & " WHERE CodServ = '" & varId & "'"

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