Ir para conteúdo
Fórum Script Brasil

Martinsrj

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    291

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que Martinsrj postou

  1. Martinsrj
    Boa noite! Peço desculpas, mas não entendi. O meu codigo esta dessa forma, desde já agradeco pelo esclarecimento: <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>Gerência de Serviços de TI</title> <link href="../estilos_portabilidade.css" rel="stylesheet" type="text/css" /> <style type="text/css"> <!-- body { margin-left: 0px; } --> </style> <script language="JavasSript"> function validaForm() { if (document.getElementById('txt_nome.projeto').value== "") { alert ("O campo Nome do Projeto deve ser preenchido!"); document.getElementById('txt_nome.projeto').focus(); return false; } return true; } </script> </head> <body> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td><!--#include file="topo.asp"--></td> </tr> </table> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td bgcolor="#f5f5f5"><div align="center"> <br /> <table width="98%" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC"> <tr> <td height="200" valign="top" bgcolor="#FFFFFF"><div align="center"> <br /> <br /> <table width="98%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="69%" height="20"><span class="style2">Inclusão de Projeto</span></td> <td width="31%"><div align="right">&nbsp;<a href="projetos.asp" class="menu27">Consultar Projeto</a> | <a href="alteracaodadosprojeto.asp" class="menu27">Alteração de Projeto</a> | <a href="#" class="menu27">Logout</a>&nbsp;&nbsp;&nbsp;</div></td> </tr> </table> <br /> <table width="99%" border="0" cellspacing="0" cellpadding="0" > <form name="inclusao" method="POST" action="ins.dadosprojeto.asp" onSubmit="return validaForm()"><tr> <td><table width="100%" border="0" cellspacing="5" cellpadding="0"> <tr> <td width="18%" height="35" bgcolor="f4f4f4" class="style3"><div align="right">Nome do Projeto:</div></td> <td width="82%" bgcolor="f4f4f4"> <input type="text" name="txt_nome.projeto" class="campocombo" id="txt_nome.projeto" size="70" /> </td> </tr>
  2. Martinsrj
    Coloquei o código conforme abaixo, porem ao clicar no botão cadastrar não aparece nada: <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>Gerência de Serviços de TI</title> <link href="../estilos_portabilidade.css" rel="stylesheet" type="text/css" /> <style type="text/css"> <!-- body { margin-left: 0px; } --> </style> <script language="JavasSript"> function validaForm() { alert(document.getElementById('txt_nome.projeto').value) if (document.getElementById('txt_nome.projeto').value== "") { alert ("O campo Nome do Projeto deve ser preenchido!"); d.txt_nome.projeto.focus(); return false; } return true; } </script>
  3. Martinsrj
    Olá fiote! Muito obrigado pela aula. Coloquei a modificação que você mencionou, porem continua não exibindo nenhum alerta para o usuario: <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>Gerência de Serviços de TI</title> <link href="../estilos_portabilidade.css" rel="stylesheet" type="text/css" /> <style type="text/css"> <!-- body { margin-left: 0px; } --> </style> <script language="JavasSript"> function validaForm() { if (document.getElementById('txt_nome.projeto').value== "") { alert ("O campo Nome do Projeto deve ser preenchido!"); d.txt_nome.projeto.focus(); return false; } return true; } </script> </head> <body>
  4. Martinsrj
    Olá pessoal, boa tarde! Possuo o código abaixo, porem o usuario não está recebendo nenhuma critica quando deixa de prencher o primeiro campo. Segue o código: <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>Gerência de Serviços de TI</title> <link href="../estilos_portabilidade.css" rel="stylesheet" type="text/css" /> <style type="text/css"> <!-- body { margin-left: 0px; } --> </style> <script language="javascript"> function validaForm() { d = document.inclusao; if (d.txt_nome.projeto == ""){ alert ("O campo Nome do Projeto deve ser preenchido!"); d.txt_nome.projeto.focus(); return false; } return true; } </script> </head> <body> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td><!--#include file="topo.asp"--></td> </tr> </table> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td bgcolor="#f5f5f5"><div align="center"> <br /> <table width="98%" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC"> <tr> <td height="200" valign="top" bgcolor="#FFFFFF"><div align="center"> <br /> <br /> <table width="98%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="69%" height="20"><span class="style2">Inclusão de Projeto</span></td> <td width="31%"><div align="right">&nbsp;<a href="projetos.asp" class="menu27">Consultar Projeto</a> | <a href="alteracaodadosprojeto.asp" class="menu27">Alteração de Projeto</a> | <a href="#" class="menu27">Logout</a>&nbsp;&nbsp;&nbsp;</div></td> </tr> </table> <br /> <table width="99%" border="0" cellspacing="0" cellpadding="0" > <form name="inclusao" method="POST" action="ins.dadosprojeto.asp" onSubmit="return validaForm() "><tr> <td><table width="100%" border="0" cellspacing="5" cellpadding="0"> <tr> <td width="18%" height="35" bgcolor="f4f4f4" class="style3"><div align="right">Nome do Projeto:</div></td> <td width="82%" bgcolor="f4f4f4"> <input type="text" name="txt_nome.projeto" class="campocombo" id="txt_status" size="70" /> </td> </tr> <tr> <td height="35" bgcolor="f4f4f4" class="style3"><div align="right">Autor do Projeto:</div></td> <td bgcolor="f4f4f4"> <input type="text" name="txt_autor.projeto" class="campocombo" id="txt_status" size="70" /> </td> </tr> <tr> <td height="15" bgcolor="f4f4f4" class="style3"><div align="right">Escopo da Demanda/Projeto:</div></td> <td height="15" bgcolor="f4f4f4"><label></label> <div align="right" class="style3"> <div align="left"> <textarea name="txt_escopo.projeto" id="txt_escopo.projeto" cols="90" rows="8" class="campocombo"></textarea> </div> </div></td> </tr> <tr> <td height="15" bgcolor="f4f4f4" class="style3"><div align="right">Atividades Realizadas:</div></td> <td height="15" bgcolor="f4f4f4"> <textarea name="txt_atividade" id="txt_atividade" cols="90" rows="12" class="campocombo"></textarea></td> </tr> <tr> <td height="35" bgcolor="f4f4f4" class="style3"><div align="right">Próximos Passos::</div></td> <td bgcolor="f4f4f4"><label> <textarea name="txt_proximo" id="txt_proximo" cols="90" rows="12" class="campocombo"></textarea> </label></td> </tr> <tr> <td height="35" bgcolor="f4f4f4" class="style3"><div align="right">Pontos de Atenção:</div></td> <td bgcolor="f4f4f4"><label> <textarea name="txt_pontos" id="txt_pontos" cols="90" rows="12" class="campocombo"></textarea> </label></td> </tr> <tr> <td height="50" bgcolor="f4f4f4">&nbsp;</td> <td bgcolor="f4f4f4"><label> <input type="submit" name="btEnviar" id="btEnviar" class="botao" value="Cadastrar" /> <input type="reset" name="btLimpa" id="btLimpa" class="botao" value="Limpar" /> </label></td> </tr> </table></td> </tr></form> </table> <br /> </div></td> </tr> </table> <br /> </div></td> </tr> </table><!--#include file="rodape.asp"--> </body> </html>
  5. Martinsrj
    Valeu bareta! RESOLVIDO!!!!!! strSQL = strSQL & " WHERE posicao_atual = 'Ativado'"
  6. Martinsrj
    Olá pessoal, boa tarde! Estou com uma dúvida onde eu quero selecionar todos os campos de uma certa tabela, porem a coluna posicao_atual tem que estar todos como Ativado. <% Option Explicit %> <!--#Include file="conexao.asp"--> <% Dim conbd_gd, rsDados, strSQL, var_cor, Ativado strSQL = "SELECT * FROM tab_dadosprojeto" strSQL = strSQL & " WHERE posicao_atual = Ativado strSQL = strSQL & " order by data desc" Call AbreConexao Set rsDados = conbd_gd.Execute(strSQL) Response.Charset="utf-8" %> Erro que aparece na tela: Microsoft VBScript compilation error '800a0409' Unterminated string constant /grupo_demanda/Projetos/projetos.asp, line 8 strSQL = strSQL & " WHERE posicao_atual = Ativado -------------------------------------------------^
  7. Martinsrj
    RESOLVIDO: <% = (ConvertDataBanco(rsDadosB("data"))) %>
  8. Martinsrj
    Ola pessoal, boa noite! Tenho uma tabela conforme o modelito abaixo: tab_acoesprojeto CREATE TABLE `tab_acoesprojeto` ( `cod_acao` INT(11) NOT NULL AUTO_INCREMENT, `cod_dadosprojeto` INT(11) NOT NULL COMMENT 'Campo relacionado ao cod_dados da Tabela tab_dadosprojeto', `acao` TEXT, `status` VARCHAR(60) DEFAULT NULL, `legenda` VARCHAR(100) DEFAULT NULL, `responsavel` VARCHAR(100) DEFAULT NULL, `data` DATE DEFAULT NULL, PRIMARY KEY (`cod_acao`,`cod_dadosprojeto`), UNIQUE KEY `cod_acao` (`cod_acao`), KEY `FK_tab_acoesprojeto` (`cod_dadosprojeto`), CONSTRAINT `FK_tab_acoesprojeto` FOREIGN KEY (`cod_dadosprojeto`) REFERENCES `tab_dadosprojeto` (`cod_dados`) ) ENGINE=INNODB AUTO_INCREMENT=10 DEFAULT CHARSET=utf8 Reparei que se eu colocar pra imprimir dessa forma: <%= var_acao %> o laco repete varias vezes, porem com os nomes repetido. A solucao para esse campo e dos demais foi colocar dessa forma: <% = rsDadosB("acao") %>, <% = rsDadosB("status") %>... . Existe um campo onde eu utilizo uma funcao para formatacao da data que esse: <% = (ConvertDataBanco(Date())) %>, porem aparece a mesma data onde não corresponde ao registro. Veja na imagem abaixo o campo data repetido: O inicio do meu codigo esta assim: <% Option Explicit %> <!--#Include file="conexao.asp"--> <% Dim conbd_gd, rsDados, strSQL, var_visualizadados, var_nomeprojeto, var_escopoprojeto, var_atividade, var_proximo, var_pontos, strSQLB, rsDadosB, var_acao, var_status, var_legenda, var_responsavel, var_data, sData var_visualizadados = Request.QueryString("cod_dados1") Call AbreConexao strSQL = "SELECT * FROM tab_dadosprojeto " strSQL = strSQL & " WHERE cod_dados = " & var_visualizadados strSQLB = "SELECT tab_dadosprojeto.cod_dados, tab_acoesprojeto.cod_acao, tab_acoesprojeto.cod_dadosprojeto, tab_acoesprojeto.acao, tab_acoesprojeto.status, tab_acoesprojeto.legenda, tab_acoesprojeto.responsavel, tab_acoesprojeto.data " strSQLB = strSQLB & "FROM tab_dadosprojeto " strSQLB = strSQLB & "INNER JOIN tab_acoesprojeto " strSQLB = strSQLB & "ON tab_dadosprojeto.cod_dados = tab_acoesprojeto.cod_dadosprojeto " strSQLB = strSQLB & " WHERE cod_dados = " & var_visualizadados Set rsDados = conbd_gd.Execute(strSQL) Set rsDadosB = conbd_gd.Execute(strSQLB) '-- Variaveis da tabela: tab_dadosprojeto var_nomeprojeto = rsDados("nome_projeto") var_escopoprojeto = rsDados("escopo_projeto") var_atividade = rsDados("atividades_realizadas") var_proximo = rsDados("proximo_passo") var_pontos = rsDados("pontos_atencao") '-- Variaveis da tabela: tab_acoesprojeto var_acao = rsDadosB("acao") var_status = rsDadosB("status") var_legenda = rsDadosB("legenda") var_responsavel = rsDadosB("responsavel") var_data = rsDadosB("data") ' sData=day(var_data) & "-" & month(var_data) & "-" & year(var_data) Function ConvertDataBanco(var_data) var_data = Right("0"&Day(var_data),2) &"-"& Right("0"&Month(var_data),2) &"-"& Year(var_data) ConvertDataBanco = var_data End Function ' Response.Write(ConvertDataBanco(Date())) '-- Response.Charset="ISO-8859-1" %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> Aqui vem a minha outra parte do codigo: <% Do While Not rsDadosB.Eof %> <tr> <td class="tabela_branca"><% = rsDadosB("acao") %> </td> <td height="10" class="tabela_branca"><% = rsDadosB("status") %></td> <td class="tabela_branca"><img border="0" src="<% = rsDadosB("legenda") %>"</td> <td class="tabela_branca"><% = rsDadosB("responsavel") %></td> <td class="tabela_branca"><% = (ConvertDataBanco(Date())) %></td> </tr> <% rsDadosB.MoveNext Loop rsDadosB.Close Call FechaConexao Set rsDadosB = Nothing %> </table> </table> <br /> <br /> </div></td> OBS.: não coloquei o codigo todo, mas caso seja necessario e so falar. Abracos galera!
  9. Martinsrj
    Resolvido da seguinte forma: <td bgcolor="f4f4f4"> <select name="txt_codprojeto" size="1" > <option>Codigo do Projeto: </option> <% Do While Not rsDados.Eof %> <option value="<% = rsDados("cod_dados")%>"> <%=rsDados("cod_dados")%> </option> <% rsDados.MoveNext LOOP%> </select> <% Set rsDados=nothing 'rsDados.Close 'Call FechaConexao %> <select name="txt_nomeprojeto" size="1" > <option>não sabe o codigo, clique aqui: </option> <% Do While Not rsDados2.Eof %> <option value="<% = rsDados2("cod_dados") %>"> <%= rsDados2("cod_dados") %> - <%= rsDados2("nome_projeto") %> </option> <% rsDados2.MoveNext LOOP%> </select> <% Set rsDados2=nothing 'rsDados2.Close 'Call FechaConexao %> </td>
  10. Martinsrj
    :unsure: Ola pessoal, boa tarde! Estou com grande dificuldade em carregar na segundo combo os dados, aparece apenas o ultimo dado cadastro no banco tres vezes. Postei o meu codigo no pastebin para uma melkhor visualizacao: http://pastebin.com/f72501d99 Aqui segue o codigo da minha pagina: <% Option Explicit Response.Charset="ISO-8859-1" Response.AddHeader "Content-Type", "text/html; charset=iso-8859-1" %> <!--#Include file="conexao.asp"--> <% Dim conbd_gd, rsDados, rsDados2, strSQL, strSQL2, var_nomeprojeto, var_cod_dados, rs_Dados strSQL = "SELECT * FROM tab_dadosprojeto" strSQL = strSQL & " order by data desc" strSQL2 = "SELECT * FROM tab_dadosprojeto" strSQL2 = strSQL2 & " order by data desc" Call AbreConexao Set rsDados = conbd_gd.Execute(strSQL) Set rsDados2 = conbd_gd.Execute(strSQL2) var_cod_dados = rsDados2("cod_dados") var_nomeprojeto = rsDados2("nome_projeto") %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>Gerência de Serviços de TI</title> <link href="../estilos_portabilidade.css" rel="stylesheet" type="text/css" /> <style type="text/css"> <!-- body { margin-left: 0px; } --> </style></head> <body> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td height="50" bgcolor="#CC0000">&nbsp;<span class="style1200">&nbsp;PROJETOS</span></td> <td bgcolor="#CC0000"><div align="right"><a href="java script:window.close()"><img src="../menu/quadrinho.gif" width="17" height="17" border="0" /></a>&nbsp;&nbsp;&nbsp;&nbsp;</div></td> </tr> </table> <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC"> <tr> <td valign="top" bgcolor="#FFFFFF"><div align="center"> <br /> <br /> <table width="98%" border="0" cellspacing="0" cellpadding="0"> <tr> <td height="20"><span class="style2">Inclusão das Decrições de Atividades</span></td> </tr> </table> <br /> <table width="99%" border="0" cellspacing="0" cellpadding="0"> <form> <tr> <td valign="top"><table width="100%" border="0" cellspacing="5" cellpadding="0"> <tr> <td height="35" bgcolor="f4f4f4" class="style3">&nbsp;</td> <td bgcolor="f4f4f4"> <select name="txt_codprojeto" size="1" > <option>Codigo do Projeto: </option> <% Do While Not rsDados.Eof %> <option value="<% = rsDados("cod_dados")%>"> <%=rsDados("cod_dados")%> </option> <% rsDados.MoveNext LOOP%> </select> <% Set rsDados=nothing 'rsDados.Close 'Call FechaConexao %> <select name="txt_nomeprojeto" size="1" > <option>não sabe o codigo, clique aqui: </option> <% Do While Not rsDados2.Eof %> <option value="<% = var_cod_dados %>"> <%= var_cod_dados %> - <%= var_nomeprojeto %> </option> <% rsDados2.MoveNext LOOP%> </select> <% Set rsDados2=nothing 'rsDados2.Close 'Call FechaConexao %> </td> </tr> <tr> <td width="18%" height="35" bgcolor="f4f4f4" class="style3"><div align="right">Ação:</div></td> <td width="82%" bgcolor="f4f4f4"><label></label> <textarea name="txt_acao" id="txt_acao" cols="90" rows="2" class="campocombo"></textarea> </td> </tr> <tr> <td height="35" bgcolor="f4f4f4" class="style3"><div align="right">Status:</div></td> <td bgcolor="f4f4f4"><label> <select name="txt_status" size"1"> <option>Escolher Status</option> <option>Concluído</option> <option>Em andamento - Atenção</option> <option>Em andamento - Crítico</option> <option>Em andamento - Normal</option> <option>Não Iniciado</option> <option>On-going</option> </select> </label></td> </tr> <tr> <td height="35" bgcolor="f4f4f4" class="style3"><div align="right">Responsável:</div></td> <td bgcolor="f4f4f4"><input name="txt_responsavel" type="text" class="campocombo" id="txt_prod" size="40" /></td> </tr> <tr> <td height="35" bgcolor="f4f4f4" class="style3"><div align="right">Data:</div></td> <td bgcolor="f4f4f4"><select name="date_dia" id="text_data"> <option>Dia</option> <option value="01">01</option> <option value="02">02</option> <option value="03">03</option> <option value="04">04</option> <option value="05">05</option> <option value="06">06</option> <option value="07">07</option> <option value="08">08</option> <option value="09">09</option> <option value="10">10</option> <option value="11">11</option> <option value="12">12</option> <option value="13">13</option> <option value="14">14</option> <option value="15">15</option> <option value="16">16</option> <option value="17">17</option> <option value="18">18</option> <option value="19">19</option> <option value="20">20</option> <option value="21">21</option> <option value="22">22</option> <option value="23">23</option> <option value="24">24</option> <option value="25">25</option> <option value="26">26</option> <option value="27">27</option> <option value="28">28</option> <option value="29">29</option> <option value="30">30</option> <option value="31">31</option> </select> <label> <select name="date_mes" id="select2"> <option>Mês</option> <option value="jan">01</option> <option value="fev">02</option> <option value="mar">03</option> <option value="abr">04</option> <option value="mai">05</option> <option value="jun">06</option> <option value="jul">07</option> <option value="ago">08</option> <option value="set">09</option> <option value="out">10</option> <option value="nov">11</option> <option value="dez">12</option> </select> <select name="date_ano" id="select3"> <option>Ano</option> <option value="2009">2009</option> <option value="2010">2010</option> <option value="2011">2011</option> <option value="2012">2012</option> </select> </label></td> </tr> <tr> <td height="50" bgcolor="f4f4f4">&nbsp;</td> <td bgcolor="f4f4f4"><label> <input type="submit" name="btEnviar" id="btEnviar" class="botao" value="Cadastrar" /> <input type="reset" name="btLimpa" id="btLimpa" class="botao" value="Limpar" /> </label></td> </tr> </table></td> </tr> </form> </table> <br /> <br /> <br /> </div></td> </tr> </table> </body> </html> Veja como os dados aparece na segunda combo: Uma observacao: a segunda combo so serve como cola para o usuario inserir na primeira combo qual e o codigo do seu projeto. a segundo combo de aparecer o codigo juntamente com o nome do projeto, a primeira so aparece o codigo.
  11. Martinsrj
    Valeu Jonathan pela ajuda e a ideia que me deste. Com o seu código a data fica dessa forma: 10-7-2009 Utilizei uma função interessante, veja o código: var_data = rsDadosB("data") ' sData=day(var_data) & "-" & month(var_data) & "-" & year(var_data) Function ConvertDataBanco(var_data) var_data = Right("0"&Day(var_data),2) &"-"& Right("0"&Month(var_data),2) &"-"& Year(var_data) ConvertDataBanco = var_data End Function Abraços.
  12. Martinsrj
    Não entendi quando você colocou no post: O problema está no formato dd-mm-aaaa ao invés de dd/mm/aaaa Jonathan, o que ocorre é o seguinte no Banco Mysql está dessa forma: 2009-07-10, porem quando eu coloco para exibir em tela através do comando: <% = rsDadosB.Fields("data") %> aparece na tela assim: 7/10/aaaa Desejo que seja impresso não 7/10/aaaa e sim: 10-07-2009 Abraços e obrigado pela ajuda desde já.
  13. Martinsrj
    Olá pessoal! A imagem já está aparecendo, o codigo ficou assim: <td class="tabela_branca"><img border="0" src="<% = rsDadosB.Fields("legenda") %>"</td> porem a data não consegui identificar o porque que na tela aparece da seguinte forma: 7/10/aaaa se no banco está dessa forma: 2009-07-10
  14. Martinsrj
    A imagem tem que aparecer na coluna legenda, Veja na 1° imagem como aparece as linhas referenta a coluna LEGENDA. a outra dúvida na é coluna Data, pois no banco está com as seguintes informações: 2009-07-09 conforme a segunda imagem que postei. Abraços e obrigado pela ajuda.
  15. Martinsrj
    Olá pessoal, boa tarde! Estou com dificuldade para exibir a imagem do banco e tb do formato da data! Segue abaixo a tela com a imagem não aparecendo e tb a data.: <% Option Explicit %> <!--#Include file="conexao.asp"--> <% Dim conbd_gd, rsDados, strSQL, var_visualizadados, var_nomeprojeto, var_escopoprojeto, var_atividade, var_proximo, var_pontos, strSQLB, rsDadosB, var_acao, var_status, var_legenda, var_responsavel, var_data var_visualizadados = Request.QueryString("cod_dados1") Call AbreConexao strSQL = "SELECT * FROM tab_dadosprojeto " strSQL = strSQL & " WHERE cod_dados = " & var_visualizadados strSQLB = "SELECT tab_dadosprojeto.cod_dados, tab_acoesprojeto.cod_acao, tab_acoesprojeto.cod_dadosprojeto, tab_acoesprojeto.acao, tab_acoesprojeto.status, tab_acoesprojeto.legenda, tab_acoesprojeto.responsavel, tab_acoesprojeto.data " strSQLB = strSQLB & "FROM tab_dadosprojeto " strSQLB = strSQLB & "INNER JOIN tab_acoesprojeto " strSQLB = strSQLB & "ON tab_dadosprojeto.cod_dados = tab_acoesprojeto.cod_dadosprojeto " strSQLB = strSQLB & " WHERE cod_dados = " & var_visualizadados Set rsDados = conbd_gd.Execute(strSQL) Set rsDadosB = conbd_gd.Execute(strSQLB) '-- Variaveis da tabela: tab_dadosprojeto var_nomeprojeto = rsDados("nome_projeto") var_escopoprojeto = rsDados("escopo_projeto") var_atividade = rsDados("atividades_realizadas") var_proximo = rsDados("proximo_passo") var_pontos = rsDados("pontos_atencao") '-- Variaveis da tabela: tab_acoesprojeto var_acao = rsDadosB("acao") var_status = rsDadosB("status") var_legenda = rsDadosB("legenda") var_responsavel = rsDadosB("responsavel") var_data = rsDadosB("data") Response.Charset="ISO-8859-1" %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <script type="text/javascript" src="../js/funcoes.js"></script> <title>Gerência de Serviços de TI</title> <link href="../estilos_portabilidade.css" rel="stylesheet" type="text/css" /> </head> <body> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td><!--#include file="topo.asp"--></td> </tr> </table> <% Do While Not rsDados.Eof Response.Charset="ISO-8859-1" %> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td bgcolor="#f5f5f5"><div align="center"><br /> <table width="98%" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC"> <tr> <td height="200" class="tabelao_fundo_branco"><div align="center"> <br /> <table width="98%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="80%" height="20"><span class="titulo_mae"><% = rsDados.Fields("nome_projeto") %></span></td> <td width="20%">Link: |<a href="java script:inclusao()" class="menu27"> Inclusão de Descrição</a> |</td> </tr> </table> <br /> <table width="98%" border="0" cellspacing="0" cellpadding="0"> <tr> <td><span class="subtitulo">Escopo da Demanda / Projeto</span></td> </tr> </table> <table width="98%" border="0" cellspacing="0" cellpadding="0"> <tr> <td class="tabela_branca"><% = rsDados.Fields("escopo_projeto") %></td> </tr> </table> <table width="98%" border="0" cellspacing="0" cellpadding="0"><tr></tr> </table> <br /> <table width="98%" border="0" cellspacing="4" cellpadding="0"> <tr> <td width="50%"><span class="subtitulo">Atividade Realizadas</span></td> <td width="50%"><span class="subtitulo">Pr&oacute;ximos Passos</span></td> </tr> <tr> <td width="50%" class="tabela_branca"><% = rsDados.Fields("atividades_realizadas") %></td> <td width="50%" class="tabela_branca"><% = rsDados.Fields("proximo_passo") %></td> </tr> </table> <br /> <table width="98%" border="0" cellspacing="0" cellpadding="0"> <tr> <td><span class="subtitulo">Pontos de Aten&ccedil;&atilde;o</span></td> </tr> </table> <table width="98%" border="0" cellspacing="0" cellpadding="0"> <tr> <td class="tabela_branca"><% = rsDados.Fields("pontos_atencao") %></td> </tr> </table> <% rsDados.MoveNext Loop rsDados.Close 'Call FechaConexao Set rsDados = Nothing %> <br /> <table width="98%" border="0" cellspacing="0" cellpadding="0"> <tr> <td><span class="titulo">Descrição das Atividades</span></td> </tr> </table> <br /> <table width="98%" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC"> <tr> <td width="50%" height="20" class="tabela_verde">Ação</td> <td width="16%" class="tabela_verde"><strong>Status</strong></td> <td width="7%" class="tabela_verde">legenda</td> <td width="17%" class="tabela_verde">Responsável</td> <td width="17%" class="tabela_verde">Data</td> </tr> <% Do While Not rsDadosB.Eof %> <tr> <td class="tabela_branca"><% = rsDadosB.Fields("acao") %></td> <td height="10" class="tabela_branca"><% = rsDadosB.Fields("status") %></td> <td class="tabela_branca"><img border="0" src"<% = rsDadosB.Fields("legenda") %>" with="20" height="20"></td> <td class="tabela_branca"><% = rsDadosB.Fields("responsavel") %></td> <td class="tabela_branca"><% = rsDadosB.Fields("data") %></td> </tr> <% rsDadosB.MoveNext Loop rsDadosB.Close Call FechaConexao Set rsDadosB = Nothing %> </table> </table> <br /> <br /> </div></td> </tr> </table> <br /> </td> </tr> </table><!--#include file="../rodape.asp"--> </body> </html>
  16. Martinsrj
    Valeu campeão! RESOLVIDO.
  17. Martinsrj
    Não estou conseguindo identificar o motivo desse erro: Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80040E14) [MySQL][ODBC 5.1 Driver][mysqld-5.0.67-community-nt]Unknown column 'nome' in 'field list' /grupo_demanda/projetos/obama/ins.dadosobama.asp, line 41 A linha 41 é essa: conbd_gd.Execute(strINS) Segue abaixo o meu código: <% Option Explicit %> <!--#Include file="conexao.asp"--> <% Dim conbd_gd, rsInsere, strINS, var_data, hora, Minuto, Segundo, var_nomeprojeto, var_escopoprojeto, var_atividade, var_proximo, var_pontos, var_posicaoatual var_nomeprojeto = TRIM(Request.Form("txt_nome.projeto")) var_escopoprojeto = TRIM(Request.Form("txt_escopo.projeto")) var_atividade = TRIM(Request.Form("txt_atividade")) var_proximo = TRIM(Request.Form("txt_proximo")) var_pontos = TRIM(Request.Form("txt_pontos")) var_posicaoatual = "Ativado" '-- Função para conversao de data para o MySQL -- Paulo Martins. Function ConvertDataMySQL(ConDataBanco) ConDataBanco = Year(ConDataBanco) &"-"& Right("0"&Month(ConDataBanco),2) &"-"& Right("0"&Day(ConDataBanco),2) ConvertDataMySQL = ConDataBanco End Function '-- Response.Write(ConvertDataMySQL(Date())) hora = Hour(time) Minuto = Right("0"&Minute(time),2) Segundo = Second(time) var_data = (ConvertDataMySQL(Date())) & " " & hora & ":" & Minuto & ":" & Segundo strINS = "INSERT into tab_dadosobama " strINS = strINS & "(nome, escopo_projeto, atividades_realizadas, proximo_passo, pontos_atencao, data, posicao_atual) " strINS = strINS & "VALUES ('" & var_nomeprojeto & "'," strINS = strINS & "'" & var_escopoprojeto & "'," strINS = strINS & "'" & var_atividade & "'," strINS = strINS & "'" & var_proximo & "'," strINS = strINS & "'" & var_pontos & "'," strINS = strINS & "'" & var_data & "'," strINS = strINS & "'" & var_posicaoatual & "'" strINS = strINS & ")" Call AbreConexao conbd_gd.Execute(strINS) 'response.write strINS 'response.end() 'Comentário-- Verifica o sucesso da operação, baseado na variavel 'err' if err.number = 0 then response.write ("Cadastro realizado com sucesso") '--Response.Write "<font face='arial' size'3' color='green'><b>O ID: " & var_nome.projeto & " foi incluído com sucesso!</font></b><br> Else response.write ("Erro: " + err.description) End if Call FechaConexao %> Aqui vai o erro completo: Aqui está a estrutura do minha tabela: O nome do banco: gd_dev CREATE TABLE `tab_dadosobama` ( `cod_dados` int(11) NOT NULL auto_increment, `nome_projeto` varchar(50) default NULL, `escopo_projeto` text, `atividades_realizadas` text, `proximo_passo` text, `pontos_atencao` text, `data` datetime default NULL, `posicao_atual` varchar(12) default NULL COMMENT 'Ativo ou Desativado', PRIMARY KEY (`cod_dados`) ) ENGINE=InnoDB DEFAULT CHARSET=utf8; Código da conexão: <% sub AbreConexao Dim Servidor, usuario, senha, banco, string servidor = "localhost" usuario = "root" senha = "jeferson" banco = "gd_dev" '-- banco = "bd_gd1" string = "driver={MySQL ODBC 5.1 Driver};server=" & servidor & ";" string = string & "uid=" & usuario & ";" string = string & "pwd=" & senha & ";" string = string & "database=" & banco Set conbd_gd = Server.CreateObject("ADODB.Connection") conbd_gd.ConnectionString = string conbd_gd.Open end sub sub FechaConexao conbd_gd.close set conbd_gd = nothing end sub %>
  18. Martinsrj
    Boa noite pessoal! Bareta, realizei algumas modificacoes no banco e as tabelas ficaram assim: Criei uma tabela chamado autorizacao com o campo tipo autorizacao, pois atraves dele eu verifico se o usuario pode editar ou não. Pois em todos os sistema todos os usuarios poderao visualizar os dados, apenas alguns que poderao realizar a edicao. Verifique por gentilza essas tres tabelas e veja se essa e a logica ou se eu estou criando uma gambiarra... rsrsrsrsrs? Abracos a todos.
  19. Martinsrj
    Seria interessante eu colocar esses campos (nomes dos sistemas) na tabela: usuarios_autorizados ?
  20. Martinsrj
    Olá Pessoal, beleza? Recebi uma missão de fazer alguns sistemas dentro de um portal. O único sistema que está quase pronto é o de Portabilidade. Agora, estou fazendo um sistema chamado Projeto Obama, na verdade esse é com urgência, tenho que entrega-lo na segunda-feira. Tenho pensamento de fazer um único banco e criar várias tabelas para os diversos sistemas que serão acessados no meu site ou endereço. Estou brekando na situação de permissionamento, exemplo: O usuário Fulano pode editar, incluir, excluir dados do Sistema Portabilidade e também do Projeto Obama, porem não pode nos sistemas Gerencia de Incidentes, Gestao de Problemas, Gestao de Mudanças apenas pode visualizar os dados. Preciso de uma luz na modelagem do banco na parte de permissionamento de vários usuarios. Sistemas que serão feitos: Portabilidade, Projeto Obama, Gerencia de Inverso, Gestao de Problem, Gestao de Teste Obs.: todos os sistemas está dentro de único site, pois através desse site todos os usuários poderão visualizar os dados dos sistemas Atualmente o meu banco está com as seguintes tabelas: tab_dadosport CREATE TABLE `tab_dadosport` ( `cod_dados` INT(10) NOT NULL AUTO_INCREMENT, `status` VARCHAR(100) DEFAULT NULL, `id` VARCHAR(10) DEFAULT NULL, `sistema` VARCHAR(20) DEFAULT NULL, `descricao` TEXT, `cod_grupo` INT(12) DEFAULT NULL, `observacao` TEXT, `fase` VARCHAR(20) DEFAULT NULL, `plano_entrega` TEXT, `dt_inc` DATETIME DEFAULT NULL, PRIMARY KEY (`cod_dados`) ) ENGINE=INNODB AUTO_INCREMENT=20 DEFAULT CHARSET=utf8 tab_grupos CREATE TABLE `tab_grupos` ( `cod_grupo` INT(12) NOT NULL, `grupo` VARCHAR(50) DEFAULT NULL, PRIMARY KEY (`cod_grupo`) ) ENGINE=INNODB DEFAULT CHARSET=utf8 usuarios_autorizados CREATE TABLE `usuarios_autorizados` ( `cod_usr` INT(10) NOT NULL, `login` VARCHAR(30) DEFAULT NULL, `nome_usr` VARCHAR(100) DEFAULT NULL, `senha` VARCHAR(30) DEFAULT NULL, `cod_grupo` VARCHAR(12) DEFAULT NULL, PRIMARY KEY (`cod_usr`) ) ENGINE=INNODB DEFAULT CHARSET=utf8
  21. Martinsrj
    Funcionou!
  22. Martinsrj
    Olá pessoal boa tarde! Estou me deparando com o seguinte erro: Microsoft OLE DB Provider for ODBC Drivers error '80040e14' [MySQL][ODBC 5.1 Driver][mysqld-5.1.35-community]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near ' id, sistema, descricao, cod_grupo, observacao, fase, plano_entrega, dt_inc stat' at line 1 /conteudo/grupo_demanda/cod/alt3.dados.asp, line 34 Observação, a linha 34 é essa: Set rsDados = conbd_gd1.Execute(strALT) Segue abaixo o código da pagina: alt3.dados.asp <% Option Explicit %> <!--#Include file="conexao.asp"--> <% Dim conbd_gd1, rsInsere, strALT, var_status, var_id, var_sistema, var_descricao, var_cod_grupo, var_observacao, var_fase, var_plano_entrega, var_dt_inc, data, hora, Minuto, Segundo, varIDcod varIDcod = TRIM(Request.Form("coddados")) var_status = TRIM(Request.Form("txt_status")) var_id = TRIM(Request.Form("txt_id")) var_sistema = TRIM(Request.Form("txt_sistema")) var_descricao = TRIM(Request.Form("txt_descricao")) var_cod_grupo = 1 var_observacao = TRIM(Request.Form("txt_observacao")) var_fase = TRIM(Request.Form("txt_fase")) var_plano_entrega = TRIM(Request.Form("txt_plano_entrega")) Call AbreConexao strALT = "UPDATE tab_dados SET status, id, sistema, descricao, cod_grupo, observacao, fase, plano_entrega, dt_inc " '-- strALT = strALT & "(status, id, sistema, descricao, cod_grupo, observacao, fase, plano_entrega, dt_inc) " strALT = strALT & "status & '" & varIDcod & "'," strALT = strALT & "status & '" & var_status & "'," strALT = strALT & "status & '" & var_id & "'," strALT = strALT & "status & '" & var_sistema & "'," strALT = strALT & "status & '" & var_descricao & "'," strALT = strALT & "status & '" & var_cod_grupo & "'," strALT = strALT & "status & '" & var_observacao & "'," strALT = strALT & "status & '" & var_fase & "'," strALT = strALT & "status & '" & var_plano_entrega & "'," strALT = strALT & "status & '" & var_observacao & "'," strALT = strALT & "WHERE cod_dados = " & varIDcod & " " 'Response.Write strALT 'Response.End Set rsDados = conbd_gd1.Execute(strALT) Call FechaConexao Set rsDados = Nothing %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>Untitled Document</title> <link href="estilos_portabilidade.css" rel="stylesheet" type="text/css" /> <style type="text/css"> <!-- body { margin-left: 0px; } --> </style></head> <body> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td><!--#include file="topo.asp"--></td> </tr> </table> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td bgcolor="#f5f5f5"><div align="center"> <br /> <table width="98%" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC"> <tr> <td height="200" valign="top" bgcolor="#FFFFFF"><div align="center"> <br /> <table width="98%" border="0" cellspacing="0" cellpadding="0"> <tr> <td height="20"><div align="center"><span class="style2">Alterado com sucesso</span></div></td> </tr> </table> <br /> <br /> </div></td> </tr> </table> <br /> </div></td> </tr> </table><!--#include file="rodape.asp"--> </body> </html> Na pagina alt2.dados.asp está recuperandoos dados Segue abaixo o código: <% Option Explicit %> <!--#Include file="conexao.asp"--> <% Dim conbd_gd1, rsDados, strSQL, cod_altera, var_descricao, var_observacao, var_planodeEntrega cod_altera = Request.QueryString("cod_dados1") Call AbreConexao strSQL = "SELECT * FROM tab_dados " strSQL = strSQL & " WHERE cod_dados = " & cod_altera '-- response.write strSQL Set rsDados = conbd_gd1.Execute(strSQL) var_descricao = rsDados("descricao") var_observacao = rsDados("observacao") var_observacao = rsDados("observacao") var_planodeEntrega = rsDados("plano_entrega") %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>Untitled Document</title> <link href="estilos_portabilidade.css" rel="stylesheet" type="text/css" /> <style type="text/css"> <!-- body { margin-left: 0px; } --> </style></head> <body> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td><!--#include file="topo.asp"--></td> </tr> </table> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td bgcolor="#f5f5f5"><div align="center"> <br /> <table width="98%" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC"> <tr> <td height="200" valign="top" bgcolor="#FFFFFF"><div align="center"> <br /> <table width="98%" border="0" cellspacing="0" cellpadding="0"> <tr> <td height="20"><span class="style2">Alteração de Dados</span></td> </tr> </table> <br /> <table width="99%" border="0" cellspacing="0" cellpadding="0"> <form name="alteracao" method="POST" action="alt3.dados.asp"><tr> <td><table width="100%" border="0" cellspacing="5" cellpadding="0"> <tr> <td width="14%" height="35" bgcolor="f4f4f4" class="style3"><div align="right">Status:</div></td> <td bgcolor="f4f4f4"> <input type="text" name="txt_status" value="<% = rsDados("status") %>" size="10" class="campocombo" id="txt_status" /></td> </tr> <tr> <td height="35" bgcolor="f4f4f4" class="style3"><div align="right">ID:</div></td> <td height="35" bgcolor="f4f4f4"><label> <input type="text" name="txt_id" value="<% = rsDados("id") %>" size="10" class="campocombo" id="txt_status" /> </label> <div align="right" class="style3"></div></td> </tr> <tr> <td height="35" bgcolor="f4f4f4" class="style3"><div align="right">Sistemas:</div></td> <td bgcolor="f4f4f4"><label> <input type="text" name="txt_sistema" value="<% = rsDados("sistema") %>" size="10" class="campocombo" id="txt_sistema" /> </label></td> </tr> <tr> <td height="100" bgcolor="f4f4f4" class="style3"><div align="right">Descrição/ Impacto:</div></td> <td bgcolor="f4f4f4"><label> <textarea name="txt_descricao" id="txt_descricao" cols="50" rows="7" class="campocombo"><% = var_descricao %></textarea> </label></td> </tr> <tr> <td height="100" bgcolor="f4f4f4" class="style3"><div align="right">Observação:</div></td> <td bgcolor="f4f4f4"><label> <textarea name="txt_observacao" id="txt_observacao" cols="50" rows="7" class="campocombo"><% = var_descricao %></textarea> </label></td> </tr> <tr> <td height="35" bgcolor="f4f4f4" class="style3"><div align="right">Fase:</div></td> <td bgcolor="f4f4f4"><label> <input type="text" name="txt_fase" value="<% = rsDados("fase") %>" size="10" class="campocombo" id="txt_fase" /> </label></td> </tr> <tr> <td height="100" bgcolor="f4f4f4" class="style3"><div align="right">Plano de Entrega:</div></td> <td bgcolor="f4f4f4"><label> <textarea name="txt_plano_entrega" id="txt_plano_entrega" cols="50" class="campocombo" rows="7"><% = var_planodeEntrega %></textarea> </label></td> </tr> <tr> <td height="50" bgcolor="f4f4f4">&nbsp;</td> <td bgcolor="f4f4f4"><label> <input type="hidden" name="coddados" value="<% = rsDados("cod_dados") %>" /> <br> <input type="submit" name="btEnvia" id="button" class="botao" value="Alterar" /> <input type="reset" name="btLimpa" id="btLimpa" class="botao" value="Consultar" /> <% response.write request.querystring("id") %> </label></td> </tr> </table></td> </tr></form> </table> <br /> </div></td> </tr> </table> <br /> </div></td> </tr> </table><!--#include file="rodape.asp"--> </body> </html> Aqui está todos os campos da minha tabela: tab_dados CREATE TABLE `tab_dados` ( `cod_dados` int(10) NOT NULL, `status` varchar(100) DEFAULT NULL, `id` varchar(10) DEFAULT NULL, `sistema` varchar(20) DEFAULT NULL, `descricao` text, `cod_grupo` varchar(12) DEFAULT NULL, `observacao` text, `fase` varchar(20) DEFAULT NULL, `plano_entrega` text, `dt_inc` datetime DEFAULT NULL, PRIMARY KEY (`cod_dados`) ) ENGINE=InnoDB DEFAULT CHARSET=utf8
  23. Martinsrj

    (Resolvido) Alteração

    pergunta respondeu ao Martinsrj de Martinsrj em ASP

    Valeu galera pela ajuda! o erro estava nessa linha: <a href="alt2.dados.asp?cod_dados1=<% = rsDados.Fields("cod_dados") %>"> Esqueci de colocar o R no <a href ... rsrsrsrsrs Agora irei iniciar a pagina que exibirá no formulario contendo os campos para a alteração. desde já agradeço pela ajuda e conto com vocês para as futuras dúvidas. Abraços.
  24. Martinsrj

    (Resolvido) Alteração

    pergunta respondeu ao Martinsrj de Martinsrj em ASP

    Bareta, fiz exatamente o que você mencionou. Deu certo em parte, porem na coluna ID não foi criado o link nos registtros. Conforme a minha intenção nesse código: <td width="6%" class="tabela_branca"><div align="center" class="style3"> <a hef="alt2.dados.asp?cod_dados1=<% = rsDados.Fields("cod_dados") %>"> <% = rsDados.Fields("id") %></a> </div></td>
  25. Martinsrj

    (Resolvido) Alteração

    pergunta respondeu ao Martinsrj de Martinsrj em ASP

    Olá Bareta, boa tarde! Segue o a minha tabela: tab_dados CREATE TABLE `tab_dados` ( `cod_dados` int(10) NOT NULL, `status` varchar(100) DEFAULT NULL, `id` varchar(10) DEFAULT NULL, `sistema` varchar(20) DEFAULT NULL, `descricao` text, `cod_grupo` varchar(12) DEFAULT NULL, `observacao` text, `fase` varchar(20) DEFAULT NULL, `plano_entrega` text, `dt_inc` datetime DEFAULT NULL, PRIMARY KEY (`cod_dados`) ) ENGINE=InnoDB DEFAULT CHARSET=utf8
×
×
  • Criar Novo...