Outro Erro Q Eu N Entendi

[Ghosty]

eu estou quase conseguindo fazer a minha inserção no bd mas da um erro q n tem explicação, vejam:

esse é o erro:

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

[Microsoft][ODBC Microsoft Access Driver] Number of query values and destination fields are not the same. 

/c/enviarbd.asp, line 115 

eu já contei um monte de vez e tem sim a mesma quantidade vejam:

sql = "INSERT INTO pedido (nomerep,nomecli,cnpj,data,radio,check,frut,cons,bac,vin,tem,mon,tipoo,bor,out,nome,qtd,qtdcx,valor,un,des,desconto,investimento,inv,investotal,invtot,fattotal,fatliquido,jus,conprod1,conmar1,conpre1,conprod2,conmar2,conpre2,conprod3,conmar3,conpre3, loja, emb)" 
sql = sql & "VALUES ('" & nomerep & "','" & nomecli & "','" & cnpj & "'," & data & ",'" & radio & "'," & check & ",'" & frut & "','" & cons & "','" & bac & "','" & vin & "','" & tem & "','" & mon & "','" & menu & "','" & bor & "','" & out & "','" & nome & "'," & qtd & ","
sql = sql & "" & qtdcx & "," & valor & "," & un & "," & des & "," & desconto & "," & investimento & "," & inv & "," & investotal & "," & invtot & "," & fattotal & "," & fatliquido & ",'" & jus & "','" & conprod1 & "','" & conmar1 & "','" & conpre1 & "','" & conprod2 & "','" & conmar2 & "',"
sql = sql & "'" & conpre2 & "','" & conprod3 & "','" & conmar3 & "','" & conpre3 & "'," & loja & "," & emb & ")"

é grande mas acredito q n seja esse o problema...

se alguém consegui me ajudar eu agradeço!!

[davidmg]

posta aí a linha 115

David

[dark0]

bom, o insert funciona assim:

insert into tabela (campos_da_tabela) values ('valores_dos_campos_da_tabela')

a quantidade de campos dentro do primeiro parenteses, deve ser igual à quantidade de campos no segundo parenteses.

Se o total dos 2 for diferente, vai dar esse erro que deu pra você.

revise seu codigo. alguma coisa tá a mais ou a menos aí ..

pelo menos sempre que eu vi esse erro aí, era isso que falei

[Ghosty]

mas brother eu já contei e recontei um monte de vez e n tah diferente!!!

tem 40 campos na query e 40 campos nos destinos!!!

n é possível essa é a unica instrução sql da página...

tipow eu pensei q hj eu acabava esse negócio...

eu vo posta todo o código pra você ver...

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Response.Expires = 0
Dim objConn, objRs, strQuery, strConnection,nomerep,nomecli,cnpj,data,radio,check,frut,cons,bac,vin,tem,mon,tipoo,bor,out,nome,qtd,qtdcx,valor,un,des,desconto,investimento,inv,investotal,invtot,fattotal,fatliquido,jus,menu,corpo,conprod1,conmar1,conpre1,conprod2,conmar2,conpre2,conprod3,conmar3,conpre3, loja, emb, cond
loja=request.form("loja")
emb=request.Form("emb")
conprod2=request.Form("conprod2")
conmar2=request.Form("conmar2")
conpre2=request.Form("conpre2")
conprod3=request.Form("conprod3")
conmar3=request.Form("conmar3")
conpre3=request.Form("conpre3")
conprod1=request.Form("conprod1")
conmar1=request.Form("conmar1")
conpre1=request.Form("conpre1")
tipoo=request.Form("tipoo")
radio=request.Form("radiobutton")
menu=request.Form("menu")
nomerep=request.Form("nomerep")
nomecli=request.Form("nomecli")
cnpj=request.Form("cnpj")
data=request.Form("data")
check=request.Form("check")
frut=request.Form("frut")
cons=request.Form("cons")
bac=request.Form("bac")
vin=request.Form("vin")
tem=request.Form("tem")
mon=request.Form("mon")
bor=request.Form("bor")
out=request.Form("out")
nome=request.Form("nome")
qtd=request.Form("qtd")
qtdcx=request.Form("qtdcx")
un=request.Form("un")
valor=request.Form("valor")
des=request.Form("des")
des=Round(des,2)
des=replace(des,".",",")
desconto=request.Form("desconto")
investimento=request.Form("investimento")
inv=request.Form("inv")
inv=Round(inv,2)
inv=replace(inv,".",",")
investotal=request.Form("investotal")
investotal=Round(investotal,2)
investotal=replace(investotal,".",",")
invtot=request.Form("invtot")
invtot=Round(invtot,2)
invtot=replace(invtot,".",",")
fattotal=request.Form("fattotal")
fattotal=Round(fattotal,2)
fattotal=replace(fattotal,".",",")
fatliquido=request.Form("fatliquido")
fatliquido=Round(fatliquido,2)
fatliquido=replace(fatliquido,".",",")
jus=request.Form("jus")
cond=request.Form("cond")
if menu="Outro - Escrever ao lado -->" then
menu=tipoo
else
menu=menu
end if
if frut=checkbox then
frut=""
else
frut="Sim"
end if
if cons=checkbox then
cons=""
else
cons="Sim"
end if
if bac=checkbox then
bac=""
else
bac="Sim"
end if
if vin=checkbox then
vin=""
else
vin="Sim"
end if
if tem=checkbox then
tem=""
else
tem="Sim"
end if
if mon=checkbox then
mon=""
else
mon="Sim"
end if
if bor=checkbox then
bor=""
else
bor="Sim"
end if
if out=checkbox then
out=""
else
out="Sim"
end if
'conecta ao banco
url_conexao = Server.MapPath("/c/invbd.mdb")
set conexao = Server.CreateObject("ADODB.Connection")
conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao

'cria o sql
sql = "INSERT INTO pedido (nomerep,nomecli,cnpj,data,radio,check,frut,cons,bac,vin,tem,mon,tipoo,bor,out,nome,qtd,qtdcx,valor,un,des,desconto,investimento,inv,investotal,invtot,fattotal,fatliquido,jus,conprod1,conmar1,conpre1,conprod2,conmar2,conpre2,conprod3,conmar3,conpre3, loja, emb)" 
sql = sql & "VALUES ('" & nomerep & "','" & nomecli & "','" & cnpj & "'," & data & ",'" & radio & "'," & check & ",'" & frut & "','" & cons & "','" & bac & "','" & vin & "','" & tem & "','" & mon & "','" & menu & "','" & bor & "','" & out & "','" & nome & "'," & qtd & ","
sql = sql & "" & qtdcx & "," & valor & "," & un & "," & des & "," & desconto & "," & investimento & "," & inv & "," & investotal & "," & invtot & "," & fattotal & "," & fatliquido & ",'" & jus & "','" & conprod1 & "','" & conmar1 & "','" & conpre1 & "','" & conprod2 & "','" & conmar2 & "',"
sql = sql & "'" & conpre2 & "','" & conprod3 & "','" & conmar3 & "','" & conpre3 & "'," & loja & "," & emb & ")"

conexao.execute(sql)

Set objRs = Nothing
Set objConn = Nothing
'redireciona


%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Página enviada com Sucesso!</title>

<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
-->
</style></head>

<body>
<%
Set objMail = Server.CreateObject("Persits.MailSender")
strlista="vendas@uniagro-ind.com.br,logistica@uniagro-ind.com.br,comercial@uniagro-ind.com.br,informatica@uniagro-ind.com.br"
email="logistica@uniagro-ind.com.br"

corpo = "<!DOCTYPE HTML PUBLIC "& chr(34) &"-//W3C//DTD HTML 4.01 Transitional//EN"& chr(34) &" "& chr(34) &"http://www.w3.org/TR/html4/loose.dtd"& chr(34) &"><html><head><meta http-equiv="& chr(34) &"Content-Type"& chr(34) &" content="& chr(34) &"text/html; charset=iso-8859-1"& chr(34) &">"
corpo = corpo & "<title>Sucesso!</title></head><body><div align="& chr(34) &"center"& chr(34) &"><font face="& chr(34) &"Verdana, Arial, Helvetica, sans-serif"& chr(34) &" size="& chr(34) &"+2"& chr(34) &" color="& chr(34) &"#666666"& chr(34) &">Investimento"& data &" </font></div>"
corpo = corpo & "<hr><table width="& chr(34) &"624"& chr(34) &" border="& chr(34) &"0"& chr(34) &" align="& chr(34) &"center"& chr(34) &"><tr><td width="& chr(34) &"207"& chr(34) &"><strong>Nome do Representante:</strong></td><td colspan="& chr(34) &"5"& chr(34) &">"& nomerep &"</td></tr><tr><td><strong>Nome do Cliente: </strong></td>"
corpo = corpo & "<td colspan="& chr(34) &"5"& chr(34) &">"& nomecli &"</td></tr><tr><td><strong>Lojas:</strong></td><td width="& chr(34) &"57"& chr(34) &">"& loja &"</td><td width="& chr(34) &"114"& chr(34) &"><strong>Check-outs:</strong></td><td width="& chr(34) &"106"& chr(34) &">"& check &"</td><td width="& chr(34) &"50"& chr(34) &"><strong>CNPJ:</strong></td>"
corpo = corpo & "<td width="& chr(34) &"152"& chr(34) &">"& cnpj &"</td></tr></table><div align="& chr(34) &"center"& chr(34) &"></div><hr><div align="& chr(34) &"center"& chr(34) &"><font size="& chr(34) &"+1"& chr(34) &"><strong>Produtos Cadastrados</strong><br></font></div><font size="& chr(34) &"2"& chr(34) &"><table width="& chr(34) &"632"& chr(34) &" border="& chr(34) &"0"& chr(34) &" align="& chr(34) &"center"& chr(34) &">"
corpo = corpo & "<tr><td width="& chr(34) &"88"& chr(34) &"><strong>Frutas Secas: </strong></td><td width="& chr(34) &"74"& chr(34) &">"& frut &"</td><td width="& chr(34) &"83"& chr(34) &"><strong>Temperos:</strong></td><td width="& chr(34) &"76"& chr(34) &">"& tem &"</td><td width="& chr(34) &"77"& chr(34) &"><strong>Conservas:</strong></td>"
corpo = corpo & "<td width="& chr(34) &"68"& chr(34) &">"& cons &"</td><td width="& chr(34) &"64"& chr(34) &"><strong>Borges:</strong></td><td width="& chr(34) &"68"& chr(34) &">"& bor &"</td></tr><tr><td><strong>Bacalhau:</strong></td><td>"& bac &"</td><td><strong>Monde:</strong></td><td>"& mon &"</td>"
corpo = corpo & "<td><strong>Vinhos:</strong></td><td>"& vin &"</td><td><strong>Outros:</strong></td><td>"& out &"</td></tr></table></font><hr><table width="& chr(34) &"631"& chr(34) &" border="& chr(34) &"0"& chr(34) &" align="& chr(34) &"center"& chr(34) &"><tr><td width="& chr(34) &"132"& chr(34) &"><strong>Nome do Produto: </strong></td>"
corpo = corpo & "<td width="& chr(34) &"182"& chr(34) &">"& nome &"</td><td width="& chr(34) &"146"& chr(34) &"><strong>Embalagem:</strong></td><td width="& chr(34) &"153"& chr(34) &">"& emb &"</td></tr><tr><td><strong>Pre&ccedil;o do Produto: </strong></td><td>"&"R$"& valor &"</td><td><strong>Qtd:</strong></td>"
corpo = corpo & "<td>"& qtd &"</td></tr><tr><td><strong>Unidades:</strong></td><td>"& un &"</td><td><strong>Condi&ccedil;&atilde;o:</strong></td><td>"& radio &"</td></tr><tr><td><strong>Desconto(%):</strong></td><td>"& desconto &"%"&"</td><td><strong>Desconto(R$):</strong></td>"
corpo = corpo & "<td>"&"R$"& des &"</td></tr><tr><td><strong>Investimento(%):</strong></td><td>"& inv &"%"&"</td><td><strong>Investimento(R$):</strong></td><td>"&"R$"& investimento &"</td></tr><tr><td><strong>Invest. Total(%):</strong></td><td>"& invtot &"%"&"</td><td><strong>Invest. Total(R$):</strong></td>"
corpo = corpo & "<td>"&"R$"& investotal &"</td></tr><tr><td><strong>Fat. Bruto:</strong></td><td>"&"R$"& fattotal &"</td><td><strong>Fat. L&iacute;quido: </strong></td><td>"&"R$"& fatliquido &"</td></tr><tr><td>&nbsp;</td><td><div align="& chr(34) &"center"& chr(34) &"><strong>Tipo de Investimento: </strong></div></td>"
corpo = corpo & "<td colspan="& chr(34) &"2"& chr(34) &">"& menu &"</td></tr></table><hr><div align="& chr(34) &"center"& chr(34) &"><font size="& chr(34) &"+1"& chr(34) &"><strong>Justificativa do Investimento</strong></font></div><br><center><textarea name="& chr(34) &"textarea"& chr(34) &" cols="& chr(34) &"80"& chr(34) &" rows="& chr(34) &"4"& chr(34) &" readonly>"& jus &"</textarea>"
corpo = corpo & "</center><hr><div align="& chr(34) &"center"& chr(34) &"><strong><font size="& chr(34) &"+1"& chr(34) &">Dados da Concorr&ecirc;ncia</font></strong></div><br><table width="& chr(34) &"622"& chr(34) &" border="& chr(34) &"0"& chr(34) &"align="& chr(34) &"center"& chr(34) &"><tr><td width="& chr(34) &"61"& chr(34) &">&nbsp;</td><td width="& chr(34) &"184"& chr(34) &"><div align="& chr(34) &"center"& chr(34) &"><strong>Produto 1 </strong></div></td>"
corpo = corpo & "<td width="& chr(34) &"212"& chr(34) &"><div align="& chr(34) &"center"& chr(34) &"><strong>Produto 2 </strong></div></td><td width="& chr(34) &"223"& chr(34) &"><div align="& chr(34) &"center"& chr(34) &"><strong>Produto 3 </strong></div></td></tr><tr><td height="& chr(34) &"26"& chr(34) &"><strong>Nome:</strong></td><td><div align="& chr(34) &"center"& chr(34) &">"& conprod1 &"</div></td>"
corpo = corpo & "<td><div align="& chr(34) &"center"& chr(34) &">"& conprod2 &"</div></td><td><div align="& chr(34) &"center"& chr(34) &">"& conprod3 &"</div></td></tr><tr><td><strong>Marca:</strong></td><td><div align="& chr(34) &"center"& chr(34) &">"& conmar1 &"</div></td><td><div align="& chr(34) &"center"& chr(34) &">"& conmar2 &"</div></td><td><div align="& chr(34) &"center"& chr(34) &">"& conmar3 &"</div></td></tr>"
corpo = corpo & "<tr><td><strong>Pre&ccedil;o:</strong></td><td><div align="& chr(34) &"center"& chr(34) &">"& conpre1 &"</div></td><td><div align="& chr(34) &"center"& chr(34) &">"& conpre2 &"</div></td><td><div align="& chr(34) &"center"& chr(34) &">"& conpre3 &"</div></td></tr></table><hr><div align="& chr(34) &"center"& chr(34) &"><p><strong><font size="& chr(34) &"3"& chr(34) &">Parecer &Aacute;rea Comercial Uniagro</font></strong></p>"
corpo = corpo & "<p><strong><font size="& chr(34) &"3"& chr(34) &">(___) Aprovado Autoriza&ccedil;&atilde;o/Supervis&atilde;o_______________________________Data:___/___/___</font></strong></p><p><strong><font size="& chr(34) &"3"& chr(34) &">(___) Reprovado Autoriza&ccedil;&atilde;o/Gerencia_______________________________Data:___/___/___</font></strong></p></div></body></html>"
  objMail.Host = "mail.sulweb.com.br"
    objMail.Subject = nomeres &" "& data
    objMail.From = "Informatica@uniagro-ind.com.br"
    objMail.FromName = "Web - investimento"
    objMail.AddAddress strlista
    objMail.IsHTML = True 
    objMail.Body = corpo
    objMail.Send 
  set objMail = nothing
response.redirect "ver.asp"
%>
<center><img src="sent_.gif" width="800" height="400" border="0" usemap="#Map">
  <map name="Map">
    <area shape="poly" coords="259,290,356,220,522,224,525,323,335,335" href="index.asp" target="_self">
  </map>
</center>
</body>
</html>

[dark0]

bom, vamos raciocinar

Isso tudo, vem de um formulario, correto?

No formulario, tem algum campo de multipla seleção?

Algum destes campos pode estar vindo com valor 'sujo', e por isso da erro ...

[Ghosty]

hum...

no formulario tem dois menus dropdown onde seleciona o nome e o tipo de investimento, tb tem uma sessão de radiobutton onde seleciona a condição e tb tem um sessão de checkbox onde seleciona quais produtos cadastrados...

mas funcionava quando tinha bem menos campos na instrução sql... e dentre essas instruções já tinha os dois menus dropdown..

e ai tem alguma ideia do q tah acontecendo??

[dark0]

você fez o que eu falei?

Se você der um RESPONSE.WRITE no seu SQL, como mostra na tela? (comente a linha que executa o SQL, para funcionar ..) e depois dê response.END para parar a tela com o conteudo do SQL ..

[nostrinkes]

Quando uso muitos campos por motivo de organização uso addnew para inserir dados é mais fácil e legivel.

Caso continue no sql reveja a quantidade de aspas duplas e vírgulas se estiverem a mais pode estar considerando como campo.

[dark0]

olha, eu já peguei este tipo de erro, e o problema era nas variaveis que vinham do formulario. Que traziam dados em vetores, e por isso dava erro.

Pode ser este caso ..

[Ghosty]

eu já verifiquei n tem nenhuma array nu meu formulário...

e eu aindsa numerei as variaveis da instrução sql pra ter certeza de quem tem a mesma quantidade.. eu realmente n sei mais o q fazer...

[dark0]

err

você fez o que eu falei anteriormente?

deu um Response.Write no sql?

[Ghosty]

desculpa eu n cheguei a fazer isso... vou ver se consigo..

[Ghosty]

é realmente no response.write as variaveis de destino estão com 1 a mais, mas é so no response.write porque no coigo tah certo... eu fiz uma conversão de ponto pra vírgula antes de executar o sql, no entanto algumas variaveis numericas vao com vírgula na inserção isso pode dar algum erro?

valeu pela atenção!

[dark0]

pode ser aí o seu problema!

por isso falei pra usar response.write no SQL, assim você vê que dados estao sendo enviados, e vê se Há mesmo o erro!

[Ghosty]

brother!! pode fecha esse tópico!! já tah tudo resolvido!!!

muito Obrigado mesmo!!!!

[dark0]

O que era?

Como resolveu?

Agora fiquei curioso, hehehe

[Ghosty]

Acredito que tenha ocorrido uma confusão pois os campos de destino são separados por vírgula, então quando ele leu aqueles valores com vírugula e já q numero n usa aspas ele de certo pensou q tinha uns 5 ou 6 valores a mais!!

foi so tirar os replace() q tudo funcionou!!

[dark0]

hehe

entendido então..

Mas, basicamente, para ver o erro, você teve que dar Response.Write no sql ..

To fechando o tópico então

Abraços