Ir para conteúdo

POWERED BY:

Arquivado

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

Matheus Brito

Inserção no banco

Por , em ASP Clássico

Recommended Posts

Matheus Brito    12

Matheus Brito
Postado

Pessoal to com o seguinte problema, to tentando inserir no banco os dados vindo de um form nao to conseguindo, segue codigo:

 

Código do form:

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /><title>Formulário</title><style type="text/css"><!--form.insere { background-color: #FFFFCC; width:510px;height:autofont: 11px Verdana, sans-serif;color: #003399;border: 1px solid #0000FF;padding-left:10px;}.campos {background-color:#B0E0E6;font: 11px georgia, sans-serif;color:#0033CC;margin-right: 20px;}.botao {background-color: #CC3300;font: 10px Arial, sans-serif;color: #CCFFFF;}--></style><script language="JavaScript">	function validaForm(){		//validar nome		d = document.cadastro;		if (d.nome.value == ""){			alert("O campo " + d.nome.name + " deve ser preenchido!");			d.nome.focus();			return false;		}// valida endereco  if (d.endereco.value == ""){	  alert("O campo " + d.endereco.name + " deve ser preenchido!");	  d.endereco.focus();	  return false;		 }  if (d.bairro.value == ""){	  alert("O campo " + d.bairro.name + " deve ser preenchido!");	  d.bairro.focus();	  return false;		 }if (d.complemento.value == ""){	  alert("O campo " + d.complemento.name + " deve ser preenchido!");	  d.complemento.focus();	  return false;		 }if (d.email.value == ""){	  alert("O campo " + d.email.name + " deve ser preenchido!");	  d.email.focus();	  return false;		 }//validar email		if (d.email.value == ""){			alert("O campo " + d.email.name + " deve ser preenchido!");			d.email.focus();			return false;		}		//validar email(verificao de endereco eletronico)		parte1 = d.email.value.indexOf("@");		parte2 = d.email.value.indexOf(".");		parte3 = d.email.value.length;		if (!(parte1 >= 3 && parte2 >= 6 && parte3 >= 9)) {			alert("O campo " + d.email.name + " deve ser conter um endereco eletronico!");			d.email.focus();			return false;		}		//validar telefone		if (d.telefone.value == ""){			alert("O campo " + d.telefone.name + " deve ser preenchido!");			d.telefone.focus();			return false;		}		//validar telefone(verificacao se contem apenas numeros)		if (isNaN(d.telefone.value)){			alert("O campo " + d.telefone.name + " deve conter apenas numeros!");			d.telefone.focus();			return false;		}if (d.fax.value == ""){			alert("O campo " + d.fax.name + " deve ser preenchido!");			d.fax.focus();			return false;		}				if (isNaN(d.fax.value)){			alert("O campo " + d.fax.name + " deve conter apenas numeros!");			d.fax.focus();			return false;		}					if (d.razao.value == ""){	  alert("O campo " + d.razao.name + " deve ser preenchido!");	  d.razao.focus();	  return false;		 }			if (d.entrega.value == ""){	  alert("O campo " + d.entrega.name + " deve ser preenchido!");	  d.entrega.focus();	  return false;		 }	</script></head><body><form name="cadastro" method="post" action="insere.asp" class="insere" onSubmit="return validaForm()">  <label><b>Nome:</b>  <input type="text" name="nome" size="59" maxlength="50" class="campos"/>  </label>  <p>	<label><b>Endereço:</b>	<input type="text" name="endereco" size="55" maxlength="55" class="campos"/>	</label></p>  <label></label>  <label></label>  <p><b>Bairro:</b>	<input type="text" name="bairro" size="59" maxlength="30" class="campos"/></p>  <p><b>Complemento:</b>	<input type="text" name="complemento" size="49" maxlength="20" class="campos"/>  </p>  <p><b>Site:</b>	<input type="text" name="site" size="22" maxlength="20" class="campos"/>	<b>Email:</b>	<input type="text" name="email" size="22" maxlength="20" class="campos"/>  </p>  <p><b>Telefone:</b>	<input type="text" name="telefone" size="20" maxlength="14" class="campos"/>	<b>Fax:</b>	<input type="text" name="fax" size="20" maxlength="14" class="campos"/>  </p>  <p><b>Razão:</b>	<input type="text" name="razao" size="58" maxlength="30" class="campos"/>  </p>  <p>	<b>Entrega:</b>	<input type="text" name="entrega" size="56" maxlength="30" class="campos"/>  </p>  <p> </p>  <div align="center">	  <input name="enviar" type="submit" value="Enviar" class="botao" />	  	  	  	  	</div></form></body></html>

 

Código do insere.asp:

 

<%Nome = Request.form("nome")endereco = request.Form("endereco")complemento= request.form("complemento")site = request.form("site")telefone= request.Form("telefone")email = request.form("email")fax = request.form("fax")bairro = request.form("bairro")razao = request.form("razao")Str= "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" &server.MapPath("dataBase") & "\bd.mdb"set conexao= Server.CreateObject("adodb.connection")conexao.open strsql ="insert into credenciados (nome,endereco,complemento,site,telefone,email,fax bairro,razao)" sql=sql & " values ('" & nome & "','" & endereco & "','" & complemento & "''" & site & "''" &telefone & "''" & email & "''"& fax & "''" & bairro & "''" & razao & "')"conexao.execute sqlconexao.Closeset conexao=nothingresponse.Write("Dados Introduzidos com sucesso...")%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

priemiramente qual o erro?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Matheus Brito    12

Matheus Brito
Postado

segue erro marioufpa:Tipo de erro:Erro de compilação do Microsoft VBScript (0x800A03EA)Erro de sintaxe/insere.asp, line 22, column 93sql=sql & " values ('" & nome & "','" & endereco & "','" & complemento & "''" & site & "''" &--------------------------------------------------------------------------------------------^abs

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

com certeza estao faltando as virgulas entre os valorescoloque-as e veja se aparece outro erro

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ted k'    126

Ted k'
Postado

verdade:

 

'" & nome & "','" & endereco & "','" & complemento & "','" & site & "','" &
telefone & "','" & email & "','"& fax & "','" & bairro & "','" & razao & "'

Compartilhar este post

Link para o post
Compartilhar em outros sites

Matheus Brito    12

Matheus Brito
Postado

vlw pelas respostas mas coloquei as virgulas que tavam faltando mas continuo o mesmo erro.abs

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

posta o erro agora

Compartilhar este post

Link para o post
Compartilhar em outros sites

Matheus Brito    12

Matheus Brito
Postado

Erro:Tipo de erro:Erro de compilação do Microsoft VBScript (0x800A03EA)Erro de sintaxe/insere.asp, line 22, column 95sql=sql & " values ('" & nome & "','" & endereco & "','" & complemento & "','" & site & "','" &----------------------------------------------------------------------------------------------^

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

de um response.write em sua sql e poste aqui

Compartilhar este post

Link para o post
Compartilhar em outros sites

Matheus Brito    12

Matheus Brito
Postado

Olha só coloquei um caracter _ no fim desse instrução:

sql ="insert into credenciados (nome,endereco,complemento,site,telefone,email,fax bairro,razao)" sql=sql & " values ('" & nome & "','" & endereco & "','" & complemento & "','" & site & "','" &_[b](aqui)[/b]telefone & "','" & email & "','"& fax & "','" & bairro & "','" & razao & "')"

 

E apareceu outro tipo de erro:

 

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)

[Microsoft][Driver ODBC para Microsoft Access]Erro geral Não é possível abrir a chave 'Temporary (volatile) Jet DSN for process 0x840 Thread 0xac4 DBC 0x119c024 Jet' do Registro.

/insere.asp, line 19

 

 

A linha 19 é:

 

conexao.open str

 

Vlw e me ajudem plis

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

sql ="insert into credenciados (nome, endereco, complemento, site, telefone, email, fax, bairro, razao) values ('" & nome & "','" & endereco & "','" & complemento & "','" & site & "','" & telefone & "','" & email & "','"& fax & "','" & bairro & "','" & razao & "')"

tava faltando uma virgula depois de faxos campos sao todos texto mesmo?se forem tente assim como postei

Compartilhar este post

Link para o post
Compartilhar em outros sites

Matheus Brito    12

Matheus Brito
Postado

Os campos sao todos textos exceto os que sao numeros como tel e fax ne?e tentei como você disse e aparece o mesmo erro.abs

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

os que forem numeros voce tira as aspas simples entre o valor

sql ="insert into credenciados (nome, endereco, complemento, site, telefone, email, fax, bairro, razao) values ('" & nome & "','" & endereco & "','" & complemento & "','" & site & "'," & telefone & ",'" & email & "',"& fax & ",'" & bairro & "','" & razao & "')"

se tiver dando erro posta aqui qual é

Compartilhar este post

Link para o post
Compartilhar em outros sites

Matheus Brito    12

Matheus Brito
Postado

Ta assim oh man:

 

sql ="insert into credenciados (nome, endereco, complemento, site, telefone, email, fax, bairro, razao) values ('" & nome & "','" & endereco & "','" & complemento & "','" & site & "','" & telefone & "','" & email & "','"& fax & "','" & bairro & "','" & razao & "')"

 

poxa já to quase desistindo uma simples inserção...

abs

Compartilhar este post

Link para o post
Compartilhar em outros sites

Custellinha    0

Custellinha
Postado

bota:

 

sql ="insert into credenciados (nome, endereco, complemento, site, telefone, email, fax, bairro, razao) values ('" & nome & "','" & endereco & "','" & complemento & "','" & site & "'," & telefone & ",'" & email & "',"& fax & ",'" & bairro & "','" & razao & "')"

Compartilhar este post

Link para o post
Compartilhar em outros sites

Matheus Brito    12

Matheus Brito
Postado

Custellinha coloquei e deu o mesmo erro...Tipo de erro:Microsoft OLE DB Provider for ODBC Drivers (0x80004005)[Microsoft][Driver ODBC para Microsoft Access]Erro geral Não é possível abrir a chave 'Temporary (volatile) Jet DSN for process 0x840 Thread 0xac4 DBC 0x119c024 Jet' do Registro./insere.asp, line 19linha 19:conexao.open str

Compartilhar este post

Link para o post
Compartilhar em outros sites

Custellinha    0

Custellinha
Postado 

<%Nome = Request.form("nome")endereco = request.Form("endereco")complemento= request.form("complemento")site = request.form("site")telefone= request.Form("telefone")email = request.form("email")fax = request.form("fax")bairro = request.form("bairro")razao = request.form("razao")Set Conexao = Server.CreateObject("ADODB.Connection")Conexao.open "DBQ="&server.mappath("database\bd.mdb")&";DRIVER={Microsoft Access Driver (*.mdb)}"sql ="insert into credenciados (nome, endereco, complemento, site, telefone, email, fax, bairro, razao) values ('" & nome & "','" & endereco & "','" & complemento & "','" & site & "'," & telefone & ",'" & email & "',"& fax & ",'" & bairro & "','" & razao & "')"conexao.execute sqlconexao.Closeset conexao=nothingresponse.Write("Dados Introduzidos com sucesso...")%>

Tenta isso...

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