Ir para conteúdo

POWERED BY:

Arquivado

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

Célio-Ctba

Dados do formulário não vão pro banco

Por , em ASP Clássico

Recommended Posts

Célio-Ctba    0

Célio-Ctba
Postado

Fala galera!!

 

Fiz um simples formulário com 2 campos para serem gravados num banco access simples, mas não está dando certo. Quando clica no botão enviar, nenhuma ação é efetuada, não gera erro e tb não grava nada no banco.

Segue código:

 

ASP

[*]<%

 

[*]Set BdCliente=Server.CreateObject("Adodb.connection")

 

[*]BdCliente.Open "Provider=Microsoft.Jet.OleDb.4.0; "&_

 

[*]"Data Source=c:\inetpub\wwwroot\teste\banco.mdb"

 

[*]%>

 

[*]If IsEmpty( Request.Form("submit") ) Then

 

[*]

<form name="formulario" method="POST" action="

ASP

[*]<%=Request.ServerVariables("script_name")%>

">

<p align="center"><b><font face="Verdana" size="1" color="#FFFFFF">Nome:<br> </font></b><b><font face="Verdana" size="1" color="#FFFFFF"><input type="text" name="nome" size="22">

</font></b></p>

<p align="center"><b><font face="Verdana" size="1" color="#FFFFFF">E-mail:<br> </font></b><b><font face="Verdana" size="1" color="#FFFFFF"> <input type="text" name="email" size="22"></font></b></p>

<center><input type="submit" value="Enviar" style="font-family: Verdana; color: #000000; background-color: #FF0000">

<input type="reset" value="Limpar" style="font-family: Verdana; color: #000000; background-color: #FF0000"></font></p></center>

</form>

ASP

[*]Else

 

[*] If Not IsEmpty(Request.Form("submit")) AND Trim(Request.Form("nome")) <> "" AND Trim(Request.Form("email")) <> "" Then

 

[*] Set BdCliente = Server.CreateObject("ADODB.Connection")

 

[*] BdCliente.Open "DBQ=c:\inetpub\wwwroot\teste\banco.mdb;Driver={Microsoft Access Driver (*.mdb)};"

 

[*]

 

[*] set table = Server.CreateObject("ADODB.RecordSet")

 

[*] sql = "select top 1 * from email"

 

[*] table.open sql, BdCliente , 3, 3, 1

 

[*] table.addnew

 

[*]

 

[*] 'table("cod_serv") = Request.FORM("cod_serv")

 

[*] table("nome") = Request.FORM("nome")

 

[*] table("email") = Request.FORM("email")

 

[*]

 

[*]

 

[*] table.update

dados foram enviados com sucesso!

ASP

[*]Else

Atenção: Alguns dados necessário não foram preenchidos corretamente

ASP

[*]End If

 

[*]End If

Compartilhar este post

Link para o post
Compartilhar em outros sites

[rush_jeff_rulez]    0

[rush_jeff_rulez]
Postado

Fala veio .... Cara nao sei se você colou errado o q houve mas aqui oh:

<form name="formulario" method="POST" action="">

Parace q você nao esta enviando a ação para página nenhuma !!! :mellow: foi um erro de colação ou tah rolando isso mesmo !?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

eh amigo verifica isso e possivelmente seu erro será corrigido

Compartilhar este post

Link para o post
Compartilhar em outros sites

Célio-Ctba    0

Célio-Ctba
Postado

Opa, é que saiu separado a linha está assim:

<form name="formulario" method="POST" action="<%=Request.ServerVariables("script_name")%>">

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

você etsa submetendo pra propri pagina??onde esta a parte que insere dados no db??

Compartilhar este post

Link para o post
Compartilhar em outros sites

Célio-Ctba    0

Célio-Ctba
Postado

ASP

[*]

 

[*]If Not IsEmpty(Request.Form("submit")) AND Trim(Request.Form("nome")) <> "" AND Trim(Request.Form("email")) <> "" Then

 

[*]

 

[*]Set BdCliente = Server.CreateObject("ADODB.Connection")

 

[*]

 

[*]BdCliente.Open "DBQ=c:\inetpub\wwwroot\banco.mdb;Driver={Microsoft Access Driver (*.mdb)};"

 

[*]

 

[*] set table = Server.CreateObject("ADODB.RecordSet")

 

[*] sql = "select top 1 * from email"

 

[*] table.open sql, BdCliente , 3, 3, 1

 

[*] table.addnew

 

[*]

 

[*] table("nome") = Request.FORM("nome")

 

[*] table("email") = Request.FORM("email")

 

[*]

 

[*]

 

[*] table.update

 

[*]

Está aqui, o IF verifica se os campos não estão vazios, e depois é feita a inserção.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

mas você ta vendo que se um tiver vazio não passa né??

Compartilhar este post

Link para o post
Compartilhar em outros sites

Célio-Ctba    0

Célio-Ctba
Postado

Entendo, mas é essa a intenção do IF, se algum dos campos em questão estiver vazio, ele mostra mensagem.

<%

  Else

%>

 

<font face="Arial" size="2">

  <center><br>Atenção: Alguns dados necessário não foram preenchidos corretamente

 

  <br><a href="java script:history.go(-1)"><b>Clique aqui</b></a> para voltar</font></center>

mas você ta vendo que se um tiver vazio não passa né??

<{POST_SNAPBACK}>

Compartilhar este post

Link para o post
Compartilhar em outros sites

[rush_jeff_rulez]    0

[rush_jeff_rulez]
Postado

Eae brother bele !?

 

 

Certo ... entao cara sei lah o q pode estra dando errado e se você fizer assim ?

 

ASP

[*]

 

[*]set table = Server.CreateObject("ADODB.RecordSet")

 

[*]sql = "select * from email"

 

[*]table.open sql, BdCliente , 1, 3

 

[*]table.addnew

 

[*]

 

Se nao rolar ainda ... posta ai o codigo completo ... para gente enteder melhor o q passa bele !?

 

Falow maninho http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites

Célio-Ctba    0

Célio-Ctba
Postado

Eae brother bele !?

 

 

Certo ... entao cara sei lah o q pode estra dando errado e se você fizer assim ?

 

ASP

[*]set table = Server.CreateObject("ADODB.RecordSet")<br />sql = "select * from email"<br />table.open sql, BdCliente , 1, 3<br />table.addnew

 

Se nao rolar ainda ... posta ai o codigo completo ... para gente enteder melhor o q passa bele !?

 

Falow maninho  http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

<{POST_SNAPBACK}>

Aqui está:

 

<html><head><title>teste</title></head><!-- HTML do formulário ******************************************************************************** --><%If IsEmpty( Request.Form("submit") ) Then%><form name="formulario" method="POST" action="<%=Request.ServerVariables("script_name")%>">Nome:  <input type="text" name="nome" size="22">E-mail: <input type="text" name="email" size="22"><input type="submit" value="Enviar"><input type="reset" value="Limpar"></form><!-- HTML do formulário ******************************************************************************** --><%Else  If Not IsEmpty(Request.Form("submit"))  AND Trim(Request.Form("nome")) <> ""  AND Trim(Request.Form("email")) <> ""    Then    Set BdCliente = Server.CreateObject("ADODB.Connection")    BdCliente.Open "DBQ=d:\inetpub\wwwroot\banco.mdb;Driver={Microsoft Access Driver (*.mdb)};"        set table = Server.CreateObject("ADODB.RecordSet")  sql = "select * from email"       'sql = "select top 1 * from email"  table.open sql, BdCliente , 1, 3  'table.open sql, BdCliente , 3, 3, 1    table.addnew            table("nome") = Request.FORM("nome")    table("email") = Request.FORM("email")                table.update%>  <font face="Arial" size="2">   	 <center><br>Os dados foram enviados com sucesso!<%  Else%>        Atenção: Alguns dados necessário não foram preenchidos corretamente   <br><a href="javascript:history.go(-1)"><b>Clique aqui</b></a> para voltar</font></center><%  End IfEnd If%></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

[rush_jeff_rulez]    0

[rush_jeff_rulez]
Postado

Eae brother ....

 

Aqui rodou facil ... dah uma testada ae ... soh muda o caminho do bd q eu troquei bele !?

 

ASP

[*]<html>

 

[*]<head>

 

[*]<title>teste</title>

 

[*]</head>

 

[*]<!-- HTML do formulário ***************************************************************************

*****

 

[*]-->

 

[*]<%

 

[*]If Request.Form("nome") = "" OR Request.Form("email") = "" Then

 

[*]msg = "Os dados não foram informados corretamente"

 

[*]%>

 

[*]<form name="formulario" method="POST" action="<%=Request.ServerVariables("script_name")%>">

 

[*]Nome: <input type="text" name="nome" size="22">

 

[*]E-mail: <input type="text" name="email" size="22">

 

[*]<input type="submit" value="Enviar" name="submit">

 

[*]<input type="reset" value="Limpar">

 

[*]</form>

 

[*]<%=msg%>

 

[*]<!-- HTML do formulário ***************************************************************************

*****

 

[*]-->

 

[*]<%

 

[*]Else

 

[*] Set BdCliente = Server.CreateObject("ADODB.Connection")

 

[*]  BdCliente.Open "DBQ=C:\inetpub\wwwroot\asp\testes\banco.mdb;Driver={Microsoft Access Driver (*.mdb)};"

 

[*]  

 

[*]  set table = Server.CreateObject("ADODB.RecordSet")

 

[*] sql = "select * from email"

 

[*] table.open sql, BdCliente , 1, 3

 

[*]  table.addnew

 

[*]  

 

[*]  

 

[*]  table("nome") = Request.FORM("nome")

 

[*]  table("email") = Request.FORM("email")

 

[*]  

 

[*]  

 

[*]  table.update

 

[*]

 

[*]%>

 

[*]<font face="Arial" size="2">

 

[*]<center><br>Os dados foram enviados com sucesso!

 

[*]<%

 

[*]End If

 

[*]%></body></html>

 

Depois ainda você pode personalizar a msg para cada tipo de erro q tiver ... falou cara !!!!

Abraços

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