4 replies to this topic

[Råƒ(æ)!]

estou com o seguinte erro:

Microsoft JET Database Engine error '80040e14'

Syntax error in UPDATE statement.

/altcliente.asp, line 40

o código segue abaixo:

<!--#include file="includes/banco.asp"-->
<!--#include file="includes/func.asp"-->

<% If Session("login")="" then
response.redirect "admin.asp"
End If
%>

<%

Cod=Trim(Request.QueryString("codigocliente"))
If (cod<>"") and (isNumeric (cod)) then

sel1SQL="Select * from cliente where codigocliente="&cod
Set Rs=Con.Execute(sel1SQL)


codigocliente=rs("codigocliente")
nomefantasia=rs("nomefantasia")
razaosocial=rs("razaosocial")
ramoatividade=rs("ramoatividade")
cnpj=rs("cnpj")
inscestadual=rs("inscestadual")
observacoes=rs("observacoes")
dddtelefone=rs("dddtelefone")
numerotelefone=rs("numtelefone")
ramal=rs("ramal")
dddfax=rs("dddfax")
numtelfax=rs("numtelfax")
datacadastramento=rs("datacadastramento")
dataultimaatualizacao=rs("dataultimaatualizacao")
nomecontato=rs("nomecontato")


End If
SQL="UPDATE cliente set codigocliente="&codigocliente&", nomefantasia='"&nomefantasia&"', razaosocial='"&razaosocial&"', ramoatividade='"&ramoatividade&"', cnpj='"&cnpj&"', inscestadual='"&inscestadual&"', observacoes='"&observacoes&"', dddtelefone='"&dddtelefone&"', numtelefone='"&numerotelefone&"', ramal='"&ramal&"', dddfax='"&dddfax&"', numtelfax='"&numtelfax&"', datacadastramento='"&datacadastramento&"', dataultimaatualizacao='"&dataultimaatualizacao&"', nomecontato='"&nomecontato&"'"& _
"where codigocliente="&codigocliente


Con.Execute(SQL)
response.redirect("home.asp")

%>


e tem mais, pensaram que era só isso?! nahhh,,, segue o erro:

Microsoft JET Database Engine error '80004005'

The changes you requested to the table were not successful because they would create duplicate values in the index, primary key, or relationship. Change the data in the field or fields that contain duplicate data, remove the index, or redefine the index to permit duplicate entries and try again.

/altcurric01.asp, line 32

agora segue o código...:


<!--#include file="includes/banco.asp"-->
<!--#include file="includes/func.asp"-->

<%

selectSQL="select codigo from dados_pessoais where cpf='"&cpf&"'"


set rsquery = Con.Execute(selectSQL)


codigo=Trim(Request.Form("codigo"))
nome=Trim(Request.Form("nome"))
sexo=Trim(Request.Form("sexo"))
email=Trim(Request.Form("email"))
estadocivil=Trim(Request.Form("estadocivil"))
nascdia=Trim(Request.Form("nascdia"))
nascmes=Trim(Request.Form("nascmes"))
nascano=Trim(Request.Form("nascano"))
nasclocal=Trim(Request.Form("nasclocal"))
empregado=Trim(Request.Form("empregado"))
cpf=Trim(Request.Form("cpf"))
conjugenome=Trim(Request.Form("conjugenome"))
filhos=Trim(Request.Form("filhos"))
carro=Trim(Request.Form("carro"))
carromarca=Trim(Request.Form("carromarca"))
carroano=Trim(Request.Form("carroano"))

alt1SQL="update dados_pessoais set nome='"&nome&"', sexo='"&sexo&"', email='"&email&"', estadocivil='"&estadocivil&"', nascdia='"&nascdia&"', nascmes='"&nascmes&"', nascano='"&nascano&"', nasclocal='"&nasclocal&"', empregado='"&empregado&"', cpf='"&cpf&"', conjugenome='"&conjugenome&"', filhos='"&filhos&"', carro='"&carro&"', carromarca='"&carromarca&"', carroano='"&carroano&"'"&_
"where codigo="&codigo

con.Execute(alt1SQL)

'codigo=Trim(Request.Form("codigo"))
area=Trim(Request.Form("area"))
cargo=Trim(Request.Form("cargo"))
salario=Trim(Request.Form("salario"))

alt2SQL="update objetivo set codigo="&codigo&", area='"&area&"', cargo='"&cargo&"', salario='"&salario&"'"&_
"where codigo="&codigo

con.Execute(alt2SQL)

'codigo=Trim(Request.Form("codigo"))
telresidddd=Trim(Request.Form("telresidddd"))
telresid=Trim(Request.Form("telresid"))
telcomercddd=Trim(Request.Form("telcomercddd"))
telcomerc=Trim(Request.Form("telcomerc"))
telcelddd=Trim(Request.Form("telcelddd"))
telcel=Trim(Request.Form("telcel"))
endereco=Trim(Request.Form("endereco"))
numero=Trim(Request.Form("numero"))
complemento=Trim(Request.Form("complemento"))
bairro=Trim(Request.Form("bairro"))
cepcidade=Trim(Request.Form("cepcidade"))
ceplogradouro=Trim(Request.Form("ceplogradouro"))
cidade=Trim(Request.Form("cidade"))
uf=Trim(Request.Form("uf"))

alt3SQL="update dados_contato set codigo="&codigo&", telresidddd='"&telresidddd&"', telresid='"&telresid&"', telcomercddd='"&telcomercddd&"', telcomerc='"&telcomerc&"', telcelddd='"&telcelddd&"', telcel='"&telcel&"', endereco='"&endereco&"', numero='"&numero&"', complemento='"&complemento&"', bairro='"&bairro&"', cepcidade='"&cepcidade&"', ceplogradouro='"&ceplogradouro&"', cidade='"&cidade&"', uf='"&uf&"'"&_
"where codigo="&codigo

'response.write alt3SQL
'response.end

con.Execute(alt3SQL)


session("codigo") = codigo
Response.Redirect("altcurric02.asp")

%>

Help me!

Edição feita por: Råƒ(æ)!, 21/12/2003, 15:39.

[K I L L I N G]

Posta aew soh as linhas dos erros....
dai fica mais fácil hehe

[Råƒ(æ)!]

coloquei em vermelho as linhas onde apresentam erros....

[crazybaby]

Bom
os erros estaum em suas instruções sql.
no primeiro vc esta tratando todos campos com se eles estivessem como TEXTO no banco de dados.No seu banco de dados do primeiro erro tem algum campo númerico?Pois os valores numericos não são tratados com asp simples ' e sim somente com aspas duplas "

bom ...verifike aí...

qntu ao seu segundo erro, a instrução sql esta correta tbm, dê uma traduzida no erro e veja o q é(eu só naum traduzo pq naum sei)
rs

Flows

[K I L L I N G]

BEM como eu vi os erros saum de sintaxe do SQL, "UPDATE".

use a sintaxe do RS entaum:

rs.update
rs("COLUNA")=VALOR
rs("COLUNA2")=VALOR2
'e assim por diante
rs.update