Ir para conteúdo

POWERED BY:

Arquivado

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

trojan

Formulário ASP sem conexão com DB Access

Por , em ASP Clássico

Recommended Posts

trojan    0

trojan
Postado

Pessoal criei um formulário de cadastro de clientes e gostaria de interliga-lo com um banco de dados em access também pronto, segue abaixo o codigo do formulário e alguns dados do meu DB, se puderem me ajudar agradeceria muito a ajuda...

 

Código do meu Formulario

 

 

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<html>
<head>
<title>Cadastro de Clientes</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>

<table width="600" border="1" bgcolor="#CCCCCC">
  <tr>
	<td>
	<form name="dbcl" method="post" action="dbcl.aspx">
	<div align="center"><font size="+2">Cadastro de Clientes</font> </div>
	  <div align="right">Matrícula n°<input name="mat" type="text" value="" size="15" maxlength="99"></div>
		<br>
		<br>
Nome: 
<input name="nome" type="text" value="" size="35" maxlength="99">
Data de Nasc: 
<input name="data" type="text" value="" size="10" maxlength="10">
<br>
<br>
Endereço:
<input name="end" type="text" value="" size="31" maxlength="99">
Complemento:		 
<input name="compl" type="text" value="" size="15" maxlength="99">
<br>
<br>
Bairro:			  
<input name="bairro" type="text" value="" size="30" maxlength="99">
Cep:				 
<input name="cep" type="text" value="" size="10" maxlength="10">
<br>
<br>
Telefone:			
<input name="tel" type="text" value="031" size="2" maxlength="3"> 
					 <input name="tel" type="text" value="" size="3" maxlength="4"> 
					 -
					 <input name="tel" type="text" value="" size="3" maxlength="4"> 
Celular:			 
<input name="cel" type="text" value="031" size="2" maxlength="3"> 
					 <input name="cel" type="text" value="" size="3" maxlength="4"> 
					 -
					 <input name="cel" type="text" value="" size="3" maxlength="4">
		<br>
		<br>
		Tipo Sanguíneo:
		<input name="tip" type="text" value="" size="8" maxlength="8">
E-mail:			  
<input name="email" type="text" value="" size="20" maxlength="99">
<br>
<br>
	</div>
	  <input name="submit" type="submit" enabled="false" value="Salvar"> 
<input name="cancelar" type="submit" enabled="false" value="Cancelar"></form>
</td>
  </tr>
</table>
</body>
</html>

Dados do Banco de dados

 

O nome do Banco de dados esta como dbcl.mdb ( confiram ai acima )

 

Todos os campos criados no formulário são existentes no banco de dados

A rotina que preciso é de gravação.

Todos os dados digitados no formulario devem ser gravados no meu banco de dados ( dbcl.mdb )

 

Desde já Agradeço

Ariel trojan

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

olha da uma olhada neste , exemplo, só você segui-lo, e alterar os campos para seu form.

 

este é o código para incluir, nao esqueça de mudar a conexao para sua conexao, seu banco

neste código é interessante , que antes de fazer a inclusao, você verifica se ja existe os dados no banco para nao gerar duplicidade. usando um SELECT antes.

 

SQLselect="SELECT * FROM tabela WHERE nome='"&varnome&"'",end='"&varend&"'","datanas='"&vardatanas&"'","complemento='"&varcomplemento&"'",bairro='"&varbairro&"'",cep='"&varcep&"'",fone='"&varfone&"'",celular='"&varcelular&"'",sangue='"&varsangue&"'",email='"&varemail&"'""

 

lembrando que

varnome=Request.form("nome)

 

aqui o código para incluir, nao esqueça de trocar os campos no INSERT INTO

<% 'incluir_action.asp => fazer a inclusao no BD, antes fazendo uma verificaçao
   'no BD através de SQL Select if not rs.eof then
   'redireciono para incluir_form.asp?msgeof=1 else
   'incluo no bd atraves da SQL Insert e redireciono para adiministraçao.asp?msg=1
   'e lá receberá um mensagem de sucesso
   
   Option explicit
   'declaro as var
   dim varlogin, varemail, varsenha, conexao, conDBQ, constring, rsselect, SQLselect, rsinsert, SQLinsert
   'recupero todos os dados
   varlogin=trim(request.form("login"))
   varsenha=trim(request.form("senha"))
   varemail=trim(request.form("email"))
   'crio a conexao
  constring="provider=microsoft.JET.OLEDB.4.0;Data Source=" & Server.MapPath("db/quaddra.mdb")
Set conexao=Server.CreateObject("ADODB.Connection")
conexao.open constring
   'crio o rsselect para verificar se os dados jah estaun cadastrados
   set rsselect=server.createobject("ADODB.Recordset")
   'crio o SQLselect
   SQLselect="SELECT * FROM tabela WHERE nome='"&varnome&"',end='"&varend&"',datanas='"&vardatanas&"'",complemento='"&varcomplemento&"',bairro='"&varbairro&"',cep='"&varcep&"',fone='"&varfone&"',celular='"&varcelular&"',sangue='"&varsangue&"',email='"&varemail&"'"
   rsselect.open SQLselect,conexao,1,3
   if not rsselect.eof then
   		response.redirect("sua_pagina_form.asp?msgeof=1")
		set rsselect=nothing
   else	
   		'crio o rsinsert para inseiri os dados no bd
   		 set rsinsert=server.createobject("ADODB.Recordset")
		'crio o SQLinsert pra incluir no bd
		SQLinsert="INSERT INTO login(login,senha,email) values('"&varlogin&"','"&varsenha&"','"&varemail&"')"
		rsinsert.open SQLinsert,conexao,1,3
		response.redirect("administracao_treina.asp?msg=1")
		set rsinsert=nothing
	end if 
	set conexao=nothing %>

Compartilhar este post

Link para o post
Compartilhar em outros sites

trojan    0

trojan
Postado

OK! vou tentar efetuar esta conexão só uma duvida.

O primeiro codigo eu insiro no meu form é isso? e o outro eu coloco

em um outro arquivo .asp para --> redirecionamento?

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

o código acima é o action de seu form, ele irá recuperar os dados e inserir no

bd, o SQLSelect e para verificar se tem dados antes de inserir , para nao ser

duplicados:

 

SELECT * FROM tabela WHERE nome='"&varnome&"'",end='"&varend&"'","datanas='"&vardatanas&"'","complemento='"&varcomplemento&"'",
bairro='"&varbairro&"'",cep='"&varcep&"'",fone='"&varfone&"'",celular='"&varcelular&"'",sangue='"&varsangue&"'",email='"&varemail&"'""

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