problemas, e mais problemas, agora é com CADASTRAR NO BANCO DE DADOS

clagils · Abril 17, 2006

nossa

essa eu nao tenho a menor ideia

ate agora eu tava me virando e resolvendo os problemas , mas agora eu nao tenho a meno ideia do q fazer

vejam o codigo

adm.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><html><%call administrador%><head><title>Documento sem título</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body><%function login' function _______________________________________________________________________________________________login%><%dim nomedim senhanome=request.form("nome")senha=request.form("senha")dim cenecdim conexaodim gravaconec = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("login.mdb")Set conexao = Server.CreateObject("ADODB.Connection")conexao.Open conecdim sqlsql = "SELECT * FROM usuario WHERE nome='" & nome & "' AND senha='" & senha & "'"dim rslogin=0Set rs = conexao.Execute(sql)If rs.EOF Thenlogin = 0Elselogado = 2End Ifif login=0 thenresponse.write("Entre com seu LOGIN")elseif login=2 thenSession("logado") = trueResponse.write("LOGADO")elseresponse.write("Entre com seu LOGIN")end ifif request.FORM("nome") = "administrador" Thencall administradorend if%><form>  <table width="17" border="0" cellspacing="0" cellpadding="0">	<tr align="center"> 	  <td colspan="2" bgcolor="#660000"><font color="#FFFFFF" size="+1">Login</font></td>	</tr>	<tr> 	  <td width="51" bgcolor="#660000"><font color="#FFFFFF" size="+1">Nome</font></td>	  <td width="143" align="right" valign="middle" bgcolor="#FFCCCC"> 		<input name="nome" type="text" id="nome" size="20">	  </td>	</tr>	<tr> 	  <td bgcolor="#666666"><font color="#FFFFFF" size="+1">Senha</font></td>	  <td align="right" bgcolor="#CCCCCC"><input name="senha" type="text" id="senha" size="20">	  </td>	</tr>	<tr align="center" bgcolor="#666666"> 	  <td colspan="2"> 		<input type="submit" name="Submit2" value="Login">	  </td>	</tr>  </table></form><%End Function' fim de function _______________________________________________________________________________________________login%><%'###################%><%' funcao _________________________________________________________________________________________________administrador function administrador%><form action="adm.asp" method="get" enctype="multipart/form-data" name="form1" target="_self">  <table width="139" height="141" border="0" cellpadding="0" cellspacing="0">	<tr align="center" valign="middle" bgcolor="#660000"> 	  <td height="29" colspan="2"><font color="#FFFFFF" size="+1">Administrador</font></td>	</tr>	<tr bgcolor="#CCCCCC"> 	  <td width="21" bgcolor="#660000"> <input type="radio" name="radiobutton" value="adicionar"> 	  </td>	  <td width="118" bgcolor="#FFCCCC">Adicionar</td>	</tr>	<tr bgcolor="#CCCCCC"> 	  <td bgcolor="#666666"> 		<input type="radio" name="radiobutton" value="modificar"> 	  </td>	  <td bgcolor="#CCCCCC">Modificar</td>	</tr>	<tr bgcolor="#FFCCCC"> 	  <td bgcolor="#660000"> 		<input type="radio" name="radiobutton" value="consultar">	  </td>	  <td bgcolor="#FFCCCC">Consultar</td>	</tr>	<tr align="center" bgcolor="#666666"> 	  <td colspan="2"> <input type="submit" name="Submit" value="OK"> </td>	</tr>  </table></form><%if request("radiobutton")="adicionar" Thenresponse.write ("adicionar")call cadastroelseif request("radiobutton")="deletar" Thenresponse.write ("consultar")call deletarelseif request("radiobutton")="modificar" Thenresponse.write ("modificar")call modificarelseif request("radiobutton")="consultar" Thenresponse.write ("consultar")call consultaEnd ifEnd Function' fim funcao _____________________________________________________________________________________________administrador%><%'############%><%' funcao _____________________________________________________________________________________________________consultafunction consulta%><%'arquivo de consulta de cadastrodim cenecdim conexaodim gravaconec = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("login.mdb")Set conexao = Server.CreateObject("ADODB.Connection")conexao.Open conecSet grava=Server.CreateObject("ADODB.RecordSet")grava.Open  "SELECT * FROM usuario",conexao,3,3'se grava chegar ao final da lista entao..if grava.eof thenresponse.write "nao ha registros"Set grava = nothingSet conexao = nothingelse%><form action="deleta.asp" name="form_1" id="form_1">  <table width="416" border="0" cellspacing="0" cellpadding="0">	<tr align="center" bgcolor="#660000"> 	  <td colspan="4"><font color="#FFFFFF" size="+1">Consulta</font></td>	</tr>	<tr> 	  <td width="32%" bgcolor="#660000"><font color="#FFFFFF" size="+1">Nome</font></td>	  <td width="33%" bgcolor="#666666"><font color="#FFFFFF" size="+1">Senha</font></td>	  <td width="18%" bordercolor="#FFFFFF" bgcolor="#996633"><font color="#FFFFFF" size="+1">ID</font></td>	  <td width="17%" bgcolor="#674523"><font color="#FFFFFF" size="+1">Excluir</font></td>	</tr>	<%While intRec<grava.pagesize AND NOT grava.EOF%>	<tr> 	  <td bgcolor="#FFD9D9"><%=grava("nome")%></td>	  <td bgcolor="#CCCCCC"><%=grava("senha")%></td>	  <td bgcolor="#EAD5BF"><%=grava("id")%></td>	  <td align="center" valign="middle" bgcolor="#E3C8AC"> 		<input type="checkbox" name="checkbox" value=<%=grava("id")%>> 	  </td>	</tr>	<tr> 	  <%grava.MovenextWendend ifSet grava = nothingSet conexao = nothing%>	  <td colspan="3" bgcolor="#666666"> </td>	  <td align="center" valign="middle" bgcolor="#666666"> 		<input name="submit" type="submit" id="submit" value="Excluir"></td>	</tr>  </table></form><%End Function' fim de function _______________________________________________________________________________________________consulta%><%'######################%><%' function _______________________________________________________________________________________________cadastrofunction cadastro%><%dim conecdim conexaodim sqldim gravadim nomedim senhanome= request.QueryString("nome")senha= request.QueryString("senha")'obj de conexao oleconec = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("login.mdb")'obj conexao bdset conexao = Server.CreateObject("ADODB.Connection")conexao.Open conec' obj gravacao bdset grava=Server.CreateObject("ADODB.RecordSet")'insere bdsql = "INSERT INTO usuario (nome, senha)  VALUES ('"&nome&"','"&senha&"') "' execulta as conexoesgrava.Open sql,conexao,1,3%><form action="adm.asp" method="get" enctype="multipart/form-data" name="form_1" id="form_1">  <table width="17" border="0" cellpadding="0" cellspacing="0">	<tr align="center"> 	  <td height="0" colspan="2" bgcolor="#660000"><font color="#FFFFFF" size="+1">Cadastro</font></td>	</tr>	<tr> 	  <td width="51" height="0" bgcolor="#660000"><font color="#FFFFFF" size="+1">Nome</font></td>	  <td width="143" height="0" align="right" valign="middle" bgcolor="#FFCCCC"> 		<input name="nome" type="text" id="nome" size="20" maxlength="10"> </td>	</tr>	<tr> 	  <td width="51" height="0" bgcolor="#666666"><font color="#FFFFFF" size="+1">Senha</font></td>	  <td width="143" height="0" align="right" valign="middle" bgcolor="#CCCCCC"> 		<input name="senha" type="password" id="senha" size="20" maxlength="10">	  </td>	</tr>	<tr align="right" bgcolor="#666666"> 	  <td height="0" colspan="2"> <input type="submit" name="Submit" value="Cadastrar"> 	  </td>	</tr>  </table>  </form>  <%response.Write "nome- "&nome&"<BR>"response.Write "senha- "&senha&"<BR>"  %><%End Function' fim de function _______________________________________________________________________________________________cadastra%><%'##############%></body></html>

tudo funciona perfeitamente porem

quando eu mando cadastrar

so em chamar a funcao cadastro ,ele ja cadastra no banco de dados(em branco)

e quando eu escrevo algo no nome e na senha , o sistema manda em branco os campos para o banco de dados

tentem colocar para rodar em suas maquinas e c acharem a resposta por favor postem aqui

obs. no meu banco de dados eu so tenho os campos ID NOME SENHA

Salgado · Abril 17, 2006

Mas a função está fazendo exatamente o que você está mandando!

O que você deve passar é mais um parâmetro em seu FORM, para que a inserção no BD só ocorra após o envio do FORM interno de cadastro.

clagils · Abril 17, 2006

o estranho é q o mesmo codigo q esta na funcao cadastro é de uma outra pagina q fiz individualmenteq cadastra perfeitamente eu apenas troque o action para adm.asp q é esta pagina

Salgado · Abril 17, 2006

Também costumo usar dessa forma, mas com SUBS e não FUNCTIONS. Te aconselho a criar uma outra apenas para inserir os dados do cadastro, você passa uma Query no action de seu form e ao capturar testa e executa a function de inserção.

clagils · Abril 17, 2006

agradeço a ajuda

eu fiz da sseguinte forma

fiz o formulario dentro da funcao e o action manda os dados a outra pagina q cadastra

depois de cadaastrado a pagina retorna para a inicial

dessa forma mal deu mais erros e o cadastro esta sedo feito com sucesso

obrigado http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

Entrar

Arquivado

problemas, e mais problemas, agora é com CADASTRAR NO BANCO DE DADOS

Recommended Posts

clagils 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

clagils 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

clagils 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Estou criando uma calculadora de m2 e litros de tinta

Cruzamento de Bases

Consulta sem duplicação

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante