Atualizando Dados No Bd

ViniciusJau · Janeiro 26, 2005

e ai moçada, seguinte... peguei um codigo pronto na net para alterar dados de um banco....

porém estou tendo alguns problemas

esse arquivo aqui exibe os conteudo do meu banco, dai eu escolho o que vai ser alterado atravéz de um Rádio.. e clica no botão alterar pra ir pra uma outra pagina onde vão ser alterados os dados

sl_funcionario.asp

<%
Option Explicit
Response.Expires = 0
Dim objConn, objRs, strQuery, strConnection
'Conectando com o banco de dados mdb
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DBQ=" & Server.MapPath("../amarconsultoria.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"
'Seleciona da tabela contato
strQuery = "SELECT * FROM cadastro_funcionarios_centrais"
Set ObjRs = objConn.Execute(strQuery)
%>
<html>
<LINK REL=stylesheet HREF="liks_etc.css" TYPE="text/css">
<head>
<title>sl_funcionario.asp</title>
</head>
<body bgcolor="#FFFFFF">
<div align="center" style="width: 756; height: 119">
<table width="69%" border="0" cellspacing="0" cellpadding="0" height="1" align="center">
<tr>
<td width="736" valign="top" height="136">
<table border="0" cellpadding="0" cellspacing="0" width="81%" align="center">
<tr bgcolor="ffffff">
<td colspan="3">  </td>
</tr>
<tr>
<td colspan="3">
<table width="735" border="0" cellspacing="0" cellpadding="0" height="18">
<tr>
<td align="center" height="1" width="735"> <font face="Verdana, Arial, Helvetica, sans-serif" color="#000099" size="3"><b><br>
</b> <font size="2">Selecione o cadastros a ser alterado</font></font></td>
</tr>
</table>
<form method="GET" action="form_altera.asp">
<table width="736" border="0" cellspacing="0" cellpadding="0" height="1">
<tr>
<td height="1" align="center" width="734">
<table width="100%" height="63" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#CCCCCC">
<tr bgcolor="#FF6600">
<td width="43" height="2" align="center" bgcolor="#006699">
<font size="1" color="FFFFFF"><b><font face="Verdana">Nº:</font></b>
</font></td>
<td width="92" height="2" align="center" bgcolor="#006699">
<font size="1" color="FFFFFF"><b><font face="Verdana">NomedoFuncionario:</font></b>
</font></td>
<td height="2" colspan="2" align="center" bgcolor="#006699">
<font size="1" color="FFFFFF"><b></b> </font> <font size="1" color="FFFFFF"><b><font face="Verdana">Funcao:</font></b>
</font></td>
<td width="123" height="2" align="center" bgcolor="#006699">
<font size="1" color="FFFFFF"><b><font face="Verdana">DataAdmissao:</font></b>
</font></td>
<td width="147" height="2" align="center" bgcolor="#006699"><font size="1" color="FFFFFF"><b><font face="Verdana">Cidade:</font></b>
</font></td>
<td width="139" align="center" bgcolor="#006699"><font size="1" color="FFFFFF"><b><font face="Verdana">Fone:</font></b>
</font></td>
<td width="120" height="2" align="center" bgcolor="#006699">
<font size="1" color="FFFFFF">
<input type="submit" name="Submit" value="Alterar">
</font></td>
</tr>
<%While Not objRS.EOF %>
<tr bgcolor="#FFFFE6">
<td width="43" height="2" align="center" bgcolor="#FFFFE6">
<div align="left"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000">
<%Response.write objRS("autonum")%>
</font> </b></font></div></td>
<td width="92" height="2" align="center">
<div align="left"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000">
<%Response.write objRS("NomedoFuncionario")%>
</font> </b></font></div></td>
<td colspan="2" height="2" align="center"> <div align="left"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000">
</font> </b></font> <font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif">
<%Response.write objRS("Funcao")%>
</font></b></font></div></td>
<td width="123" height="2" align="center" bgcolor="#FFFFE6">
<div align="left"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif">
<%Response.write objRS("dataAdmissao")%>
</font></b></font></div></td>
<td width="147" height="2" align="center" bgcolor="#FFFFE6">
<div align="left"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000">
<%Response.write objRS("cidade")%>
</font></b></font></div></td>
<td width="139" align="center" bgcolor="#FFFFE6">
<div align="center"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000">
</font><font size="2"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000066"><%Response.write objRS("Fone")%></font></b></font><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000">
</font></b></font></div></td>
<td width="120" height="2" align="center">
<div align="center"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000">
<input type="radio" name="radio" value="<%=objRS(0)%>">
</font> </b></font></div></td>
</tr>
<%
'Move para o próximo registro
objRS.MoveNext
Wend
'Fechando as conexões
objRs.close
objConn.close
Set objRs = Nothing
Set objConn = Nothing
%>
</table>
</td>
</tr>
</table>
</form>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</body>
</html>

quanto a esse arquivo, acho que está tudo certo...., feito isso cai nessa pagina aqui:

<html>
<head>
<title>form_altera.asp</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>
<head>
<%
On error resume Next
Dim objConn, stringSQL, strConnection, id
id = Request.QueryString("radio")
' Conectando com o banco de dados contato.mdb
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRS = Server.CreateObject("ADODB.Connection")
objConn.Open "DBQ=" & Server.MapPath("../amarconsultoria.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"
stringSQL = "SELECT * FROM cadastro_funcionarios_centrais WHERE autonum = "&id
Set objRS = objConn.Execute(stringSQL)
'Deletando registro da tabela cadastro_funcionarios_centrais onde esta a id
if err <> 0 Then%>
Ocorreu algum erro <br> <a href="javascript:history.back(-1)">Volta</a>
<%else%>
<form method="post" action="altera_dados.asp" name="form">
<input name="fone" id="fone" value="<%=objRS("fone")%>" size="50">
aqui vai o resto dos campos tals tasl tasl e etc etc etc.....

só que qunado eu seleciono algum registro e vou alterar, ele não dá o erro ( em vermelho) dai eu apaguei essa parte do codigo que está em vermelho e só exibe a pagina em branco.......

Developer · Janeiro 26, 2005

Qual o erro que aparece na página?

ViniciusJau · Janeiro 26, 2005

então.... num dá erro nenhum a apgina fica em branco......

vou até postar o codigo inteiro desse segundo arquivo:

<html>
<head>
<title>form_altera.asp</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>
<head>
<%
On error resume Next
Dim objConn, stringSQL, strConnection, id
id = Request.QueryString("radio")
' Conectando com o banco de dados
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRS = Server.CreateObject("ADODB.Connection")
objConn.Open "DBQ=" & Server.MapPath("../amarconsultoria.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"
stringSQL = "SELECT * FROM cadastro_funcionarios_centrais WHERE autonum = "&id
Set objRS = objConn.Execute(stringSQL)
'Deletando registro da tabela cadastro_funcionarios_centrais onde esta a id
if err <> 0 Then%>
Ocorreu algum erro <br> <a href="javascript:history.back(-1)">Volta</a>
<%else%>
<div align="center"></div>
<form method="post" action="altera_dados.asp" name="form" onsubmit="return valida_campo()">
<div align="center">
<center>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><table width="505
" height="18" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="413" height="1" align="center" bgcolor="#FF6600">
<font size="2"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF">::
Cadastro ::</font></b></font></td>
</tr>
</table></td>
</tr>
</table>
<table border="0" width="502" bgcolor="F5F5F5">
<tr>
<td bgcolor="#FFFFE6"><font size="2" face="Verdana" color="0000cc">Foto/URL:</font></td>
<td bgcolor="#FFFFE6"> <input name="fone" type="text" id="fone" style="font-family: Verdana; font-size: 8 pt;COLOR: 0000CC;" value="<%=objRS("fone")%>" size="50">
</td>
</tr>
<tr>
<td width="109" bgcolor="#FFFFE6"><font size="2" face="Verdana" color="0000cc">Nome:</font></td>
<td width="319" bgcolor="#FFFFE6"> <input type="text" name="nome" size="20" style="font-family: Verdana; font-size: 8 pt;COLOR: 0000CC;" value='<%=objRS("nome")%>'">
</td>
</tr>
<tr>
<td width="109" bgcolor="#FFFFE6"><font size="2" face="Verdana" color="0000cc">E-mail:</font></td>
<td width="319" bgcolor="#FFFFE6"> <input type="text" name="DataAdmissao" size="20" style="font-family: Verdana; font-size: 8 pt; COLOR: 0000CC;" value="<%=objRS("DataAdmissao")%>">
</td>
</tr>
<tr>
<td width="109" bgcolor="#FFFFE6"><font size="2" face="Verdana" color="0000cc">Telefone:</font></td>
<td width="319" bgcolor="#FFFFE6"> <input type="text" name="Funcao" size="20" style="font-family: Verdana; font-size: 8 pt;COLOR: 0000CC;" value="<%=objRS("Funcao")%>">
</td>
</tr>
<tr>
<td width="109" bgcolor="#FFFFE6"><font size="2" face="Verdana" color="0000cc">Comentário:</font></td>
<td width="319" bgcolor="#FFFFE6"> <textarea rows="4" name="cidade" cols="20" style="font-family: Verdana; font-size: 8 pt;COLOR: 0000CC;"><%=objRS("cidade")%></textarea>
<input type="hidden" name="autonum" value="<%=objRS("autonum")%>">
</td>
</tr>
<tr bgcolor="#FFFFE6">
<td colspan="2"> <p align="center">
<input type="submit" value="Alterar" name="enviar">
</td>
</tr>
</table>
</center>
</div>
</form>
<%end if%>
</td>
</tr>
</table>
</body>
</html>

Developer · Janeiro 26, 2005

<html>
<head>
<title>form_altera.asp</title>

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

<head>
<%
On error resume Next
Dim objConn, stringSQL, strConnection, id
id = Request.QueryString("radio")
' Conectando com o banco de dados contato.mdb
Set objConn =  Server.CreateObject("ADODB.Connection")
Set objRS =  Server.CreateObject("ADODB.Connection")
objConn.Open "DBQ=" & Server.MapPath("../amarconsultoria.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"
stringSQL = "SELECT * FROM cadastro_funcionarios_centrais WHERE autonum = "&id
Set objRS = objConn.Execute(stringSQL)
'Deletando registro da tabela cadastro_funcionarios_centrais onde esta a id
if err <> 0 Then

Response.Write "Ocorreu algum erro <br> <a href=""javascript:history.back(-1)"">Voltar</a>"

else%>

      <form method="post" action="altera_dados.asp" name="form">
<input name="fone" id="fone" value="<%=objRS("fone")%>" size="50"> 

aqui vai o resto dos campos tals tasl tasl e etc etc etc.....

ViniciusJau · Janeiro 26, 2005

ixi

mais ai você só colocou a msg de erro........ isso ai já tava funcionando....

eu queria saber porque a dava erro.... dai eu tirei esse codigo ai para ver qual a descriçção do erro e a pagina ficava em branco....

Developer · Janeiro 26, 2005

ixi
mais ai você só colocou a msg de erro........ isso ai já tava funcionando....
eu queria saber porque a dava erro.... dai eu tirei esse codigo ai para ver qual a descriçção do erro e a pagina ficava em branco....

há sim...

Olha:

<html>
<head>
<title>form_altera.asp</title>

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

<head>
<%
On error resume Next
Dim objConn, stringSQL, strConnection, id
id = Request.QueryString("radio")
' Conectando com o banco de dados contato.mdb
Set objConn =  Server.CreateObject("ADODB.Connection")
Set objRS =  Server.CreateObject("ADODB.Connection")
objConn.Open "DBQ=" & Server.MapPath("../amarconsultoria.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"
stringSQL = "SELECT * FROM cadastro_funcionarios_centrais WHERE autonum = "&id
Set objRS = objConn.Execute(stringSQL)%>

<%=objRS("campo")%><br>
<%=objRS("campo2")%>

<%'Deletando registro da tabela cadastro_funcionarios_centrais onde esta a id
if err <> 0 Then

Response.Write "Ocorreu algum erro <br> <a href=""javascript:history.back(-1)"">Voltar</a>"

else%>

     <form method="post" action="altera_dados.asp" name="form">
<input name="fone" id="fone" value="<%=objRS("fone")%>" size="50"> 

aqui vai o resto dos campos tals tasl tasl e etc etc etc.....

ViniciusJau · Janeiro 26, 2005

putz...deu na mesma...

acho que não estou conseguindo explicar minha duvida

na verdade ele está puxando pelo nome

 <input type="radio" name="radio" value="<%=objRS(0)%>">

( e no exemplo que eu baixei da net ele puxava pelo id )

id = Request.QueryString("radio")

ViniciusJau · Janeiro 27, 2005

Achei o meu erro.....

na verdade no exemplo que eu baixei ele estava fazendo a assossi~~ao pelo campo Auto Numeração ( que era a primeira coluna da tabela)

no que eu estava montado a primeira coluna era o nome...... dai ele puxava pelo nome ao invés de puxar pelo numero.....

como sempre... falta de atenção minha.....

Entrar

Atualizando Dados No Bd

Pergunta

ViniciusJau

Link para o comentário

Compartilhar em outros sites

7 respostass a esta questão

Posts Recomendados

Developer

Link para o comentário

Compartilhar em outros sites

ViniciusJau

Link para o comentário

Compartilhar em outros sites

Developer

Link para o comentário

Compartilhar em outros sites

ViniciusJau

Link para o comentário

Compartilhar em outros sites

Developer

Link para o comentário

Compartilhar em outros sites

ViniciusJau

Link para o comentário

Compartilhar em outros sites

ViniciusJau

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades