tô quase lá

rubinhoce · Abril 27, 2005

GALERA JÁ TÔ MQUASE CONSEGUINTO FAZER, COM A AJUDA DE VOCÊS ESTOU QUASE TERMINANDO ESTE SCRIPT.PEGUEI ESTE SCRIPT E ESTOU TENTANDO ADAPTA-LO AO MEU SITEUSO ESTE SCRIPT PARA MOSTRAR UMA RELAÇÃO DE CANTORES E MUSICAS CADASTRADAS NO BD, UMA ESPECIE DE TOP 5 DE MUSICAS / MAS ESTE SCRIPT NAO CONTA NADA É SÓ UM CADASTRO E EXIBIÇÃO MESMO.TÁ EXIBINDO LEGAL, MAS QUANDO VOU NO FORM DE ALTERAR NAO DÁ CERTO----------------------------AQUI EXIBE NESSA PARTE TÁ beleza / AQUI O SCRIP EXIBE O QUE TEM NO BD<%Response.Expires = 0Dim objConn, objRs, strQuery, strConnection'Conectando com o banco de dados contato.mdbSet objConn = Server.CreateObject("ADODB.Connection")objConn.Open "DBQ=" & Server.MapPath("../../inclui_exclui_altera/contato.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"'Seleciona da tabela contatostrQuery = "SELECT * FROM contato"Set ObjRs = objConn.Execute(strQuery)%><table width="277" border="0" cellpadding="0" cellspacing="0">  <tr> <td height="36" colspan="2" valign="top"><img src="imagens/top_5.jpg" width="277" height="36"></td> </tr> <tr> <td width="5" height="19" valign="top" bgcolor="#efefef"> </td> <td width="272" valign="middle" bgcolor="#efefef"><font size="1" face="Verdana">1. <%Response.write objRS("musica1")%> - <%Response.write objRS("artista1")%> </font></font></font></td> </tr> <tr> <td width="5" height="19" valign="top" bgcolor="#efefef"> </td> <td valign="middle" bgcolor="#efefef"><font size="1" face="Verdana">2. <%Response.write objRS("musica2")%> - <%Response.write objRS("artista2")%> </font></td> </tr> <tr> <td width="5" height="19" valign="top" bgcolor="#efefef"> </td> <td valign="middle" bgcolor="#efefef"><font size="1" face="Verdana">3. <%Response.write objRS("musica3")%> - <%Response.write objRS("artista3")%> </font></td> </tr> <tr> <td width="5" height="19" valign="top" bgcolor="#efefef"> </td> <td valign="middle" bgcolor="#efefef"><font size="1" face="Verdana">4. <%Response.write objRS("musica4")%> - <%Response.write objRS("artista4")%> </font></td> </tr> <tr> <td width="5" height="19" valign="top" bgcolor="#efefef"> </td> <td valign="middle" bgcolor="#efefef"><font size="1" face="Verdana">5. <%Response.write objRS("musica5")%> - <%Response.write objRS("artista5")%> </font></td> </tr> <tr> <td height="19" colspan="2" valign="top"><img src="imagens/rodape_top5.gif" width="277" height="22"></td> </tr> </table>------------------------------------------------------------ AQUI É O FORM QUE ALTERA / AO ALTERAR A INFORMAÇÃO O FORM SEGUE NORMAL MAS QUANDO PASSA PARA A PÁGINA DE ALTERAÇÃO NAO DÁ MAIS NADA.<html><head><title></title></head><LINK REL=stylesheet HREF="liks_etc.css" TYPE="text/css"><head><%On error resume NextDim objConn, stringSQL, strConnection, idid = Request.QueryString("radio")' Conectando com o banco de dados contato.mdbSet objConn = Server.CreateObject("ADODB.Connection")Set objRS = Server.CreateObject("ADODB.Connection")objConn.Open "DBQ=" & Server.MapPath("contato.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"stringSQL = "SELECT * FROM contato WHERE autonum = "&idSet objRS = objConn.Execute(stringSQL)'Deletando registro da tabela contato onde esta a idif err <> 0 Then%> <div align="center"></div><%else%><title></title><form method="post" action="altera_dados.asp" name="form" onsubmit="return valida_campo()"> <div align="center"> <center> <table border="0" width="300" bgcolor="F5F5F5"> <tr bgcolor="#FFFFFF"> <td colspan="2" height="34"> <div align="center"><font size="2"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000066">Alteração de dados - ASPBRASIL.</font></b></font></div></td> </tr> <tr> <td width="286"><font size="2" face="Verdana" color="0000cc">Artista 1:</font></td> <td width="210"> <input type="text" name="nome" size="20" style="font-family: Verdana; font-size: 8 pt;COLOR: 0000CC;" value='<%=objRS("artista1")%>'"> </td> </tr> <tr> <td width="286"><font size="2" face="Verdana" color="0000cc">Música 1:</font></td> <td width="210"> <input type="text" name="email" size="20" style="font-family: Verdana; font-size: 8 pt; COLOR: 0000CC;" value="<%=objRS("musica1")%>" onBlur="confere()"> </td> </tr><tr> <td width="286"><font size="2" face="Verdana" color="0000cc">Artista 2:</font></td> <td width="210"> <input type="text" name="nome" size="20" style="font-family: Verdana; font-size: 8 pt;COLOR: 0000CC;" value='<%=objRS("artista2")%>'"> </td> </tr> <tr> <td width="286"><font size="2" face="Verdana" color="0000cc">Música 2:</font></td> <td width="210"> <input type="text" name="email" size="20" style="font-family: Verdana; font-size: 8 pt; COLOR: 0000CC;" value="<%=objRS("musica2")%>" onBlur="confere()"> </td> </tr><tr> <td width="286"><font size="2" face="Verdana" color="0000cc">Artista 3:</font></td> <td width="210"> <input type="text" name="nome" size="20" style="font-family: Verdana; font-size: 8 pt;COLOR: 0000CC;" value='<%=objRS("artista3")%>'"> </td> </tr> <tr> <td width="286"><font size="2" face="Verdana" color="0000cc">Música 3:</font></td> <td width="210"> <input type="text" name="email" size="20" style="font-family: Verdana; font-size: 8 pt; COLOR: 0000CC;" value="<%=objRS("musica3")%>" onBlur="confere()"> </td> </tr><tr> <td width="286"><font size="2" face="Verdana" color="0000cc">Artista 4:</font></td> <td width="210"> <input type="text" name="nome" size="20" style="font-family: Verdana; font-size: 8 pt;COLOR: 0000CC;" value='<%=objRS("artista4")%>'"> </td> </tr> <tr> <td width="286"><font size="2" face="Verdana" color="0000cc">Música 4:</font></td> <td width="210"> <input type="text" name="email" size="20" style="font-family: Verdana; font-size: 8 pt; COLOR: 0000CC;" value="<%=objRS("musica4")%>" onBlur="confere()"> </td> </tr><tr> <td width="286"><font size="2" face="Verdana" color="0000cc">Artista 5:</font></td> <td width="210"> <input type="text" name="nome" size="20" style="font-family: Verdana; font-size: 8 pt;COLOR: 0000CC;" value='<%=objRS("artista5")%>'"> </td> </tr> <tr> <td width="286"><font size="2" face="Verdana" color="0000cc">Música 5:</font></td> <td width="210"> <input type="text" name="email" size="20" style="font-family: Verdana; font-size: 8 pt; COLOR: 0000CC;" value="<%=objRS("musica5")%>" onBlur="confere()"> </td> </tr> <tr> <td width="286" colspan="2"> <p align="center"> <input type="submit" value="Alterar" name="enviar"> </td> </tr> </table> </center> </div></form><%end if%></body></html>------------------------------------------------------------------ O FORM ACIMA CHAMA ESTA PÁGINA QUE ALTERA OS DADOS / MAS ELE NAO ALTERA NADA NO MEU EXEMPLO DÁ UMA PAGINA BRANCA SEM NADA<%'Força o programador a declarar todas as variáveis, evitando erro de digitação no uso das variéveisOption Explicit'Não deixa informações no CacheResponse.Expires = 0'Declaração das variáveisDim objConn, strQuery, sql_query, RsQuery, campo, sql, autonumDim artista1, musica1, artista2, musica2, artista3, musica3, artista4, musica4, artista5, musica5, ObjRs'Atrubuição dos valores as respectivas variáveisartista1 = Request.Form("artista1")musica1 = Request.Form("musica1")artista2 = Request.Form("artista2")musica2 = Request.Form("musica2")artista3 = Request.Form("artista3")musica3 = Request.Form("musica3")artista4 = Request.Form("artista4")musica4 = Request.Form("musica4")artista5 = Request.Form("artista5")musica5 = Request.Form("musica5")autonum = Request.Form("autonum")'Cria o objeto RecordSet e atribui a variável Set objConn = Server.CreateObject("ADODB.Connection")'Abre a conexão com o banco de dados utilizando o Drive {Microsoft Access...'(para utilizar outro, ex: Paradox é só substituir o Drive pelo do Paradox)'(*.mdb) indica que o arquivo utiliza extensão mdbobjConn.Open "DBQ=" & Server.MapPath("contato.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"strQuery = "UPDATE contato SET artista1 = '"&artista1&"', musica1='"&musica1&"',artista2 = '"&artista2&"', musica2='"&musica2&"',artista3 = '"&artista3&"', musica3='"&musica3&"',artista4 = '"&artista4&"', musica4='"&musica4&"',artista5 = '"&artista5&"', musica5='"&musica5&"'WHERE autonum ="&autonum'Caso ocorra um erro esta função de erro será chamadaOn error Resume Next'Executaa inserção no Banco de Dados Set ObjRs = objConn.Execute(strQuery)'Fecha o Objeto de ConexãoobjConn.close'"APAGA" qualquer instancia que possa ter no objeto objRs e objConnSet objRs = NothingSet objConn = Nothing if err = 0 Then 'Redireciona o usuário caso não tenha ocorrido erro na transação response.redirect "sucesso.asp"end if%>-------------------------------DA MANEIRA QUE AÍ ESTÁ QUANDO ALTERO ALGUM DADO NO FORMULÁRIO A PÁGINA QUE FAZ A ALTERAÇÃO FICA BRANCA E NÃO MOSTRA NADA E NEM ALTERA OS DADOS NA TABELA DO FORM.ALGUÉM TEM ALGUMA SOLUÇÃO PRA ISSO ( POR FAVOR )RUBENS CORREIA

Mário Monteiro · Abril 27, 2005

tira o On error Resume Nextpor um tempo pra ver se pinta algum errose aparecer posta aqui

Entrar

Arquivado

tô quase lá

Recommended Posts

rubinhoce 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante