Erro 0x80040E14

[ocamargo 0]

Iai Galera, beleza?

 

É o seguinte,

 

O insert abaixo nao esta rolando na pagina, mas quando testo diretamente no Access, ele insere as informações. Qual a razao disso? Não entendo

 

INSERT INTO Clientes (Nome, Email, TelRes, Endereco, bairro, CEP, Numero, Complemento, Nascimento, ProfCliente, ProfConjugue, Conjugue, EmpCliente, EmpConjugue, dddRes, TelCom, dddCom, TelCel, dddCel, TelFax, dddFax, NascConjugue, dddConjugue, TelConjugue, Filhos, Renda, Veiculo, Motivo, Pagamento, Data, Local, Interesse, agradou_imovel, Corretor, Supervisor, Valor, outras_informacoes) VALUES('otavio','ojc66@yahoo.com.br','4686-1499','Av Washington Luiz',36,'01451-001','887','Casa','1983-11-16','Analista Programador','Escritora','Aghata Cristie','Spread','','11','','11','8405-8289','11','3742-3802','11','1988-1-15','11','3501-2515','Brian Nstill','até 1500,00','Jornal','Morar','A prazo','2005-2-7 08:00','Aqui mesmo','Gostei do barraco','As rachaduras na parede','Lucas','Donizete',166436.60,'De frente pra favela e de costas pro morro')

O codigo q faz o insert e esse:

 

ASP [/tr][tr]

if Request.Form("cadastrar") <> "" then

strCliente = "INSERT INTO Clientes (Nome, Email, TelRes, Endereco, bairro, CEP, Numero, Complemento, Nascimento, "

strCliente = strCliente & "ProfCliente, ProfConjugue, Conjugue, EmpCliente, EmpConjugue, dddRes, TelCom, dddCom, TelCel, dddCel, "

strCliente = strCliente & "TelFax, dddFax, NascConjugue, dddConjugue, TelConjugue, Filhos, Renda, Veiculo, Motivo, Pagamento, "

strCliente = strCliente & "Data, Local, Interesse, agradou_imovel, Corretor, Supervisor, Valor, outras_informacoes) "

strCliente = strCliente & "VALUES('" & Nome & "','" & Email & "','" & telRes & "','" & Endereco & "'," & Bairro & ","

strCliente = strCliente & "'" & Cep & "','" & Numero & "','" & Complemento & "','" & Year(dtNasCli) & "-" & Month(dtNasCli) & "-" & Day(dtNasCli) & "',"

strCliente = strCliente & "'" & ProfCli & "','" & ProfConjugue & "','" & Conjugue & "','" & EmpCli & "','" & EmpConjugue & "','" & dddRes & "',"

strCliente = strCliente & "'" & telCom & "','" & dddCom & "','" & telCel & "','" & dddCel & "','" & telFax & "','" & dddFax & "',"

strCliente = strCliente & "'" & Year(dtNasConjugue) & "-" & Month(dtNasConjugue) & "-" & Day(dtNasConjugue) & "','" & dddConjugue & "','" & telConjugue & "',"

strCliente = strCliente & "'" & Filhos & "','" & Renda & "',"

select case (Veiculo)

case "jornal"

strCliente = strCliente & "'" & Jornal & "',"

case "outros"

strCliente = strCliente & "'" & Outros & "',"

case else

strCliente = strCliente & "'" & Veiculo & "',"

end select

strCliente = strCliente & "'" & Motivo & "','" & Pagamento & "','" & Year(Data) & "-" & Month(Data) & "-" & Day(Data) & " " & Hora & "',"

strCliente = strCliente & "'" & Local & "','" & Interesse & "','" & Opiniao & "','" & Corretor & "','" & Supervisor & "',"

strCliente = strCliente & Replace(Financiamento,",",".") & ",'" & Informacoes & "')"

'response.Write(strCliente)

'response.End()

set rsCliente = objBanco.execute(strCliente)

Response.Write("<script>if (window.confirm('Cadastro efetuado com sucesso, deseja cadastrar outro cliente?'))")

Response.Write("document.location.href='conteudo_casa.asp'")

Response.Write("else")

Response.Write("document.location.href='restrita.asp'")

end if

[/tr]

[mkboy 1]

Abaixo do insert, andes do execute coloqueresponse.write(suasql)response.endPronto, veja se esta indo tudo OK!

[ocamargo 0]

ja fiz isso, e peguei o insert criado e executei no Access, ele funcionou.Tanto é q as linhas response.write e response.end estao comentadas A duvida é: Se funcionou no access pq nao funciona na pagina?

[dark0 0]

Dê uma descrição completa do erro..Pois, pode ser problema com permissão..Diga aí qual a descrição completa do erro, para podermos te dizer algo mais definidoT+

[ocamargo 0]

Tipo de erro:Microsoft JET Database Engine (0x80040E14)Erro de sintaxe na instrução INSERT INTO./dinamica/conteudo_clientes.asp, line 68

[mkboy 1]

Ta, posta ae o que o response write respondeu!

[ocamargo 0]

é insert q ta em cima do codigo asp la em cima, quando criei o topicoPrimeiro ta o insert e depois o codigo da pagina asp

[rOcKLoCo 0]

veja se num é o campo VALOR....pois sempre dá pau com tipos numéricos...falows

[ocamargo 0]

No banco estou usando o campo valor com o formato Currency (Access)E faço um replace de "," por "."Nao dou a opcao do usuario digitar "." ou outros separadores, pois uso mascara no campo para adicionar somente ","Ex: Request.Form("valor") = 1664,36Valor = Replace(Request.Form("valor"),".",",")Valor = 1664.36Esse não e o correto?

[ocamargo 0]

Ja verifiquei nao e um problema com o valor, alguem tem alguma ideia do q pode ser?

[dark0 0]

me diz uma coisa..ocê tá fazendo o tratamento de aspas simples?Tipo.. se digitar uma aspa simples no seu form e enviar, o que acontece?

[mkboy 1]

Valor = Replace(Request.Form("valor"),".",",")Faça isso tbValor = Replace(Request.Form("valor"),"'","")Acho que o Dark0 tem razao!

[ocamargo 0]

por enquanto nao fiz nenhum tratamento pra aspas simples,ainda vou fazermas nao acredito q esse seja o problema, afinal em todos os campos q eu preenchi nao coloquei nenhum caracter especial

[ocamargo 0]

ai pessoal, nao sei mais o q pode ser

 

to postando todo o codigo da pagina pra ver se ajuda

 

ASP [/tr]

<!-- #include file="bd_open.asp" -->

<%

function CS (pStr)

pStr = replace(pStr,"'","")

end function

 

Nome = Request.Form("nome")

dtNasCli = Request.Form("dtNasCliente")

ProfCli = Request.Form("profCli")

EmpCli = Request.Form("empCli")

Endereco = Request.Form("endereco")

Numero = Request.Form("Numero")

Complemento = Request.Form("complemento")

Cep = Request.Form("Cep")

Cidade = Request.Form("cidade")

Bairro = Request.Form("bairro")

dddRes = Request.Form("dddresidencial")

telRes = Request.Form("telres")

dddCom = Request.Form("dddcomercial")

telCom = Request.Form("telcom")

dddCel = Request.Form("dddcelular")

telCel = Request.Form("telcel")

dddFax = Request.Form("dddfax")

telFax = Request.Form("telfax")

Email = Request.Form("email")

Conjugue = Request.Form("conjugue")

dtNasConjugue = Request.Form("dtNasConjugue")

dddConjugue = Request.Form("dddconjugue")

telConjugue = Request.Form("telconjugue")

ProfConjugue = Request.Form("profconjugue")

EmpConjugue = Request.Form("empconjugue")

Filhos = Request.Form("filhos")

Renda = Request.Form("renda")

'response.write "Renda:" & renda & "<br>"

Veiculo = Request.Form("veiculo")

Jornal = Request.Form("jornal")

Outros = Replace(Request.Form("outros"),"'","")

Motivo = Request.Form("motivo")

Pagamento = Request.Form("pagamento")

Financiamento = Request.Form("financiamento")

Interesse = Request.Form("interesse")

Opiniao = Request.Form("opiniao")

Informacoes = Request.Form("Informacoes")

Local = Request.Form("local")

Data = Request.Form("data")

Hora = Request.Form("hora")

Corretor = Request.Form("corretor")

Supervisor = Request.Form("supervisor")

if Request.Form("cadastrar") <> "" then

strCliente = "INSERT INTO Clientes (Nome, Email, TelRes, Endereco, bairro, CEP, Numero, Complemento, Nascimento, "

strCliente = strCliente & "ProfCliente, ProfConjugue, Conjugue, EmpCliente, EmpConjugue, dddRes, TelCom, dddCom, TelCel, dddCel, "

strCliente = strCliente & "TelFax, dddFax, NascConjugue, dddConjugue, TelConjugue, Filhos, Renda, Veiculo, Motivo, Pagamento, "

strCliente = strCliente & "Data, Local, Interesse, agradou_imovel, Corretor, Supervisor, Valor, outras_informacoes) "

strCliente = strCliente & "VALUES('" & CS(Nome) & "','" & CS(Email) & "','" & CS(telRes) & "','" & CS(Endereco) & "'," & Bairro & ","

strCliente = strCliente & "'" & CS(Cep) & "','" & CS(Numero) & "','" & CS(Complemento) & "','" & Year(dtNasCli) & "-" & Month(dtNasCli) & "-" & Day(dtNasCli) & "',"

strCliente = strCliente & "'" & CS(ProfCli) & "','" & CS(ProfConjugue) & "','" & CS(Conjugue) & "','" & CS(EmpCli) & "','" & CS(EmpConjugue) & "','" & CS(dddRes) & "',"

strCliente = strCliente & "'" & CS(telCom) & "','" & CS(dddCom) & "','" & CS(telCel) & "','" & CS(dddCel) & "','" & CS(telFax) & "','" & CS(dddFax) & "',"

strCliente = strCliente & "'" & Year(dtNasConjugue) & "-" & Month(dtNasConjugue) & "-" & Day(dtNasConjugue) & "','" & CS(dddConjugue) & "','" & CS(telConjugue) & "',"

strCliente = strCliente & "'" & Filhos & "','" & Renda & "',"

select case (Veiculo)

case "jornal"

strCliente = strCliente & "'" & CS(Jornal) & "',"

case "outros"

strCliente = strCliente & "'" & CS(Outros) & "',"

case else

strCliente = strCliente & "'" & Veiculo & "',"

end select

strCliente = strCliente & "'" & CS(Motivo) & "','" & Pagamento & "','" & Year(Data) & "-" & Month(Data) & "-" & Day(Data) & " " & Hora & ":00',"

strCliente = strCliente & "'" & CS(Local) & "','" & CS(Interesse) & "','" & CS(Opiniao) & "','" & CS(Corretor) & "','" & CS(Supervisor) & "',"

strCliente = strCliente & Replace(Financiamento,",",".") & ",'" & CS(Informacoes) & "')"

response.write strCliente

response.End()

set rsCliente = objBanco.execute(strCliente)

Response.Write("<script>if (window.confirm('Cadastro efetuado com sucesso, deseja cadastrar outro cliente?'))")

Response.Write("document.location.href='conteudo_casa.asp'")

Response.Write("else")

Response.Write("document.location.href='restrita.asp'")

end if

%>

<html>

<head>

<title>Imobiliaria Dinamica</title>

<script src="functions.js"></script>

<script language="JavaScript">

function atualiza() {

var campos = document.clientes;

campos.action='conteudo_clientes.asp';

campos.submit();

}

 

function selVeiculo(vei) {

var campos = document.clientes;

if (vei == "Jornal") {

campos.jornal.disabled = false;

campos.outros.disabled = true;

}

else {

if (vei == "outros") {

campos.jornal.disabled = true;

campos.outros.disabled = false;

}

else {

campos.jornal.disabled = true;

campos.outros.disabled = true;

}

}

}

 

function pagto(pr) {

var campos = document.clientes;

if (pr != "A vista")

campos.financiamento.disabled = false;

else

campos.financiamento.disabled = true;

}

 

function valida() {

var campos = document.clientes;

var msgErro = "";

if (campos.nome.value == "") {

msgErro = "Informe o Nome<br>";

}

if (campos.endereco.value == "") {

msgErro = msgErro + "Informe o Endereço<br>";

}

if (campos.numero.value == "") {

msgErro = msgErro + "Informe o Número<br>";

}

if (campos.cep.value == "") {

msgErro = msgErro + "Informe o CEP<br>";

}

if (campos.cidade.value == "") {

msgErro = msgErro + "Selecione uma cidade<br>";

}

if (campos.bairro.value == "") {

msgErro = msgErro + "Selecione um Bairro<br>";

}

if (campos.dddresidencial.value == "") {

msgErro = msgErro + "Informe o DDD Residencial<br>";

}

if (campos.telRes.value == "") {

msgErro = msgErro + "Informe o Telefone Residencial<br>";

}

if (campos.renda.value == "") {

msgErro = msgErro + "Selecione a Renda<br>";

}

if (campos.veiculo.value == "outros" && campos.outros.value == "") {

msgErro = msgErro + "Informe OUTROS Veiculos<br>";

}

else {

if (campos.veiculo.value == "Jornal" && campos.jornal.value == "") {

msgErro = msgErro + "Informe o Nome do Jornal<br>";

}

}

if (campos.pagamento.value == "") {

msgErro = msgErro + "Selecione o Prazo para Pagamento<br>";

}

else {

if (campos.pagamento.value == "Vista" || campos.pagamento.value == "Financiamento" && campos.financiamento.value == "") {

msgErro = msgErro + "Informe um VALOR para o Prazo de Pagamento<br>";

}

}

if (campos.loal.value == "") {

msgErro = msgErro + "Informe o Local<br>";

}

if (campos.data.value == "") {

msgErro = msgErro + "Informe a Data<br>";

}

if (campos.hora.value == "") {

msgErro = msgErro + "Informe a Hora<br>";

}

if (campos.corretor.value == "") {

msgErro = msgErro + "Informe o Corretor<br>";

}

if (campos.supervisor.value == "") {

msgErro = msgErro + "Informe o Supervisor<br>";

}

if (msgErro == "") {

document.all.err.style.visibility = 'hidden';

return true;

}

else {

msgErro = msgErro + "<br><a onClick='sisMsg.style.visibility = \"hidden\";'><font color='#000000'>Fechar</font></a>"

sisMsg.innerHTML = msgErro;

document.all.err.style.visibility = "visible";

return false;

}

}

</script>

<link rel="stylesheet" type="text/css" href="sem fundo.css">

</head>

<body>

<form name="clientes" method="post" action="conteudo_clientes.asp" onSubmit="return valida();">

<p class="titulo" align="center">Cadastro</p>

<hr size="2" width="100%">

Cliente <input type="text" name="nome" class="texto" size="80" maxlength="50" value="<%=Nome%>">

<br>

Data de nascimento <input type="text" name="dtNasCliente" class="texto" size="11" maxlength="10" onKeyPress="formatar(this,'##/##/####',event);" value="<%=dtNasCli%>">

Profissão <input type="text" name="profCli" class="texto" size="20" maxlength="30" value="<%=ProfCli%>">

Empresa <input type="text" name="empCli" class="texto" size="20" maxlength="30" value="<%=EmpCli%>">

<br>

Endereço <input type="text" class="texto" name="endereco" class="texto" size="30" maxlength="40" value="<%=Endereco%>">

Numero <input type="text" class="texto" name="numero" size="5" maxle

[ocamargo 0]

Continuacao:

 

ASP [/tr]

Numero <input type="text" class="texto" name="numero" size="5" maxlength="6" value="<%=Numero%>">

Complemento <input type="text" class="texto" name="complemento" size="10" maxlength="20" value="<%=Complemento%>">

CEP <input type="text" class="texto" name="cep" size="10" maxlength="9" onKeyPress="formatar(this,'#####-###',event)" value="<%=Cep%>">

<a href="http://www.correios.com.br/servicos/cep/cep_default.cfm" target="_blank">Consultar CEP</a><br>

Cidade

<select name="cidade" onChange="atualiza();">

<option value=""></option>

<%

strCidade = "SELECT DISTINCT Cidade FROM Bairros ORDER BY Cidade DESC"

set rsCidade = objBanco.execute(strCidade)

while not rsCidade.eof

%>

<option value="<%=rsCidade("cidade")%>"><%=rsCidade("cidade")%></option>

<%

rsCidade.movenext

wend

%>

</select>

<script>document.clientes.cidade.value='<%=Cidade%>'</script>

Bairro

<select name="bairro">

<option value=""></option>

<%

if Request.Form("cidade") <> "" then

strBairro="SELECT Codigo, Bairro FROM Bairros WHERE Cidade='" & Request.Form("cidade") & "' ORDER BY Bairro"

set rsBairro=objBanco.execute(strBairro)

while not rsBairro.eof

%>

<option value="<%=rsBairro("codigo")%>"><%=rsBairro("bairro")%></option>

<%

rsBairro.movenext

wend

end if

%>

</select>

<%

set rsCidade = nothing

set rsBairro = nothing

%>

<br>

Telefones:<br>

Residencial

(<input type="text" class="texto" name="dddresidencial" onKeyPress="Numerico();" size="3" maxlength="2" value="<%=dddRes%>">)

<input type="text" name="telRes" class="texto" size="10" maxlength="9" onKeyPress="formatar(this,'####-####',event);" value="<%=telRes%>">

Comercial

(<input type="text" class="texto" name="dddcomercial" onKeyPress="Numerico();" size="3" maxlength="2" value="<%=dddCom%>">)

<input type="text" name="telComCli" class="texto" size="10" maxlength="9" onKeyPress="formatar(this,'####-####',event);" value="<%=telComCli%>">

Celular

(<input type="text" class="texto" name="dddcelular" onKeyPress="Numerico();" size="3" maxlength="2" value="<%=dddCel%>">)

<input type="text" name="telCel" class="texto" size="10" maxlength="*" onKeyPress="formatar(this,'####-####',event);" value="<%=telCel%>">

Fax

(<input type="text" class="texto" name="dddfax" onKeyPress="Numerico();" size="3" maxlength="2" value="<%=dddFax%>">)

<input type="text" name="telFax" class="texto" size="10" maxlength="*" onKeyPress="formatar(this,'####-####',event);" value="<%=telFax%>">

<br>

e-mail <input type="text" name="email" class="texto" size="40" maxlength="50" value="<%=Email%>">

<br><br>

Nome do conjugue <input type="text" name="conjugue" class="texto" size="40" maxlength="50" value="<%=Conjugue%>">

<br>

Data de nascimento <input type="text" name="dtNasConjugue" class="texto" size="11" maxlength="10" onKeyPress="formatar(this,'##/##/####',event);" value="<%=dtNasConjugue%>">

Telefone Comercial

(<input type="text" class="texto" name="dddconjugue" onKeyPress="Numerico();" size="3" maxlength="2" value="<%=dddConjugue%>">)

<input type="text" name="telConjugue" class="texto" size="10" maxlength="9" onKeyPress="formatar(this,'####-####',event);" value="<%=telConjugue%>">

<br>

Profissão <input type="text" name="profconjugue" class="texto" size="20" maxlength="30" value="<%=ProfConjugue%>">

Empresa onde trabalha <input type="text" name="empconjugue" class="texto" size="20" maxlength="30" value="<%=EmpConjugue%>">

<br>

Filhos <input type="text" name="filhos" class="texto" size="40" maxlength="50" value="<%=Filhos%>">

<br><br>

Faixa de Renda Familiar

<select name="renda">

<option value="ate 1500,00">até 1500,00</option>

<option value="de 1500,00 a 2500,00">de 1500, a 2500,00</option>

<option value="ate 1500,00">de 2500 a 4000,00</option>

<option value="acima de 4000,00">acima de 4000,00</option>

</select>

<script>document.clientes.renda.value = '<%=Renda%>';</script>

<br><br>

<table border="0" cellpadding="0" cellspacing="0" width="100%">

<tr>

<td width="21%" rowspan="2">Veículo de Informação </td>

<td width="15%"><input type="radio" name="veiculo" value="Folhetos" onClick="selVeiculo(this.value);" <%if Veiculo = "Folhetos" or Veiculo = "" then response.write "checked" end if%>>Folhetos</td>

<td width="12%"><input type="radio" name="veiculo" value="Placa" onClick="selVeiculo(this.value);" <%if Veiculo = "Placa" then response.write "checked" end if%>>Placa</td>

<td width="10%"><input type="radio" name="veiculo" value="TV" onClick="selVeiculo(this.value);" <%if Veiculo = "TV" then response.write "checked" end if%>>TV</td>

<td width="10%"><input type="radio" name="veiculo" value="Jornal" onClick="selVeiculo(this.value);" <%if Veiculo = "Jornal" then response.write "checked" end if%>>Jornal</td>

<td width="32%">

<select name="jornal" disabled>

<option value="J. Imovel">J. Imóvel</option>

<option value="J. Ipanema">J. Ipanema</option>

</select>

<script>document.clientes.jornal.value = '<%=Jornal%>';</script>

</td>

</tr>

<tr>

<td><input type="radio" name="veiculo" value="Mala direta" onClick="selVeiculo(this.value);" <%if Veiculo = "Mala Direta" then response.write "checked" end if%>>Mala Direta</td>

<td><input type="radio" name="veiculo" value="Indicacao" onClick="selVeiculo(this.value);" <%if Veiculo = "Indicacao" then response.write "checked" end if%>>Indicação</td>

<td><input type="radio" name="veiculo" value="Radio" onClick="selVeiculo(this.value);" <%if Veiculo = "Radio" then response.write "checked" end if%>>Rádio</td>

<td><input type="radio" name="veiculo" value="Outros" onClick="selVeiculo(this.value);" <%if Veiculo = "Outros" then response.write "checked" end if%>>Outros</td>

<td><input type="text" name="outros" class=

[ocamargo 0]

To tentando refazer o insert, fiz uma operação simples

ASP [/tr][tr]

strCliente = "INSERT INTO Clientes(Nome) Values ('" & Nome & "')"

objBanco. execute(strCliente)

[/tr]

 

Retorna o erro 0x80004005

 

Verifiquei esse erro no site da microsoft, esse erro acontece quando o crystal reports 8 é instalada, mas nao instalei o crystal na minha maquina.

Mas em todo o caso baichei o Fix do link q eles disponibilizaram:

http://support.seagatesoftware.com/communi...8_webregfix.exe

so q acho q isso e so pra NT ou 2000, pq o executavel nao rodo com o XP

 

Alguma outra causa?

[dark0 0]

faz um teste aí

 

Roda esse codigo:

<%

url_conexao = Server.MapPath("banco.mdb")

set conexao = Server.CreateObject("ADODB.Connection")

conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao

 

sql = "insert into tabela (nome) values('nome')"

set rs = conexao.execute(sql)

 

response.write "Seus dados foram inseridos com sucesso!"

%>

Mude apenas o caminho do banco em vermelho

 

Poste aqui o que aconteceu quando você rodou o codigo.

[ocamargo 0]

Troquei o caminho do banco e o nome da tabela, e o registro foi inserido no banco

[ocamargo 0]

Estranho isso,Mudei o banco para outro diretorio e ele inseriru o registro, nao apontou o erroEstava vendo nos artigos do iMasters, q isso e um problema de permissão no diretorio, mas meu computador nao esta ligado em rede, é um XP Pro e nao a guia "Segurança" em "Propriedades" para mudar permissoes de pasta

[dark0 0]

entao, pegue a base nesse codigo, e monte o seu!Adicione os campos que for preciso e teste..Acho que tinha algo errado com seu codigo mesmo..Mas, enfim, se este funcionou, use-o, heheT+