(Resolvido) Alteração

Martinsrj · Julho 6, 2009

Ola pessoal, boa tarde!

Estou com dificuldade de criar link no campo ID, pois ao ser selecionado como parametro cod_dados por intermedio da variavel cod_dados1.

Verifique na imagem abaixo o campo ID, justamente a coluna que desejo que criar o link:

Abaixo segue o erro:

ABAIXO segue o meu codigo:

<%
Option Explicit
%>
<!--#Include file="conexao.asp"-->
<%
Dim conbd_gd1, rsDados, strSQL 
strSQL = "SELECT status, id, sistema, descricao, observacao, fase, plano_entrega FROM tab_dados"
strSQL = strSQL & " order by dt_inc desc"
Call AbreConexao

Set rsDados = conbd_gd1.Execute(strSQL)
'--response.write strSQL
%>

<!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 class="tabela_fundo" ><div align="center"> <br />
          <table width="98%" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
            <tr>
              <td height="200" class="tabela_branca"><div align="center"> 
                <!-- Div do codigo horário -->
                
<br />
                  <table width="98%" border="0" cellspacing="0" cellpadding="0">
                    <tr>
                      <td><div align="right"><a href="login.asp" class="menu19"><strong>Módulo Administrativo</strong></a>&nbsp;&nbsp;</div></td>
                    </tr>
                  </table>
                  <table width="98%" border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td><span class="style2">Status dos Problemas - Atendimento</span></td>
                  </tr>
                </table> 
                <br />
                <table width="98%" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
                  <tr>
                    <td width="9%" height="20" class="tabela_verde"><div align="center" class="style3">Status</div></td>
                    <td width="6%" class="tabela_verde"><div align="center" class="style3"><strong>ID</strong></div></td>
                    <td width="12%" class="tabela_verde"><div align="center" class="style3">Sistema</div></td>
                    <td width="22%" class="tabela_verde"><div align="center" class="style3">Descrição / Impacto</div></td>
                    <td width="17%" class="tabela_verde"><div align="center" class="style3">Observações</div></td>
                    <td width="17%" class="tabela_verde"><div align="center" class="style3">Fase</div></td>
                    <td width="17%" class="tabela_verde"><div align="center" class="style3">Plano de Entrega</div></td>
                  </tr>
<%
Do While Not rsDados.Eof
%>

                  <tr>
                    <td width="9%" height="20" class="tabela_branca"><div align="center" class="style3">
                    <% = rsDados.Fields("status") %></div></td>
                    <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>
                    <td width="12%" class="tabela_branca"><div align="center" class="style3">
                    <% = rsDados.Fields("sistema") %></div></td>
                    <td width="22%" class="tabela_branca"><div align="center" class="style3"><% = rsDados.Fields("descricao") %></div></td>
                    <td width="17%" class="tabela_branca"><div align="center" class="style3">
                    <% = rsDados.Fields("observacao") %></div></td>
                    <td width="17%" class="tabela_branca"><div align="center" class="style3">
                    <% = rsDados.Fields("fase") %></div></td>
                    <td width="17%" class="tabela_branca"><div align="center" class="style3">
                    <% = rsDados.Fields("plano_entrega") %></div></td>
                  </tr>
<%
rsDados.MoveNext
Loop
rsDados.Close
Call FechaConexao
Set rsDados = Nothing
%>
                      </table>
                    </div></td>
                    <td class="tabela_branca"><div align="center"></div></td>
                    
                  </tr>
                </table>
                <br />
                <br />
                <br />
              </div></td>
            </tr>
          </table>
        <br />
    </div></td>
  </tr>
</table><!--#include file="rodape.asp"-->
</body>
</html>

Desde já agradeço ajuda de todos.

bareta · Julho 6, 2009

cara ta um lixo sua dúvida, não da pra entende nada... hduisahdihsadas

bom pela sua SS o que acontece é o seguinte... o campo que você tenta exibir na coluna id não existe no banco.

<a hef="alt2.dados.asp?cod_dados1=<% = rsDados.Fields("cod_dados") %>"> <% = rsDados.Fields("id") %></a>

quem é o auto numeração da tabela ID ou cod_dados???

Martinsrj · Julho 6, 2009

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

cara ta um lixo sua dúvida, não da pra entende nada... hduisahdihsadas bom pela sua SS o que acontece é o seguinte... o campo que você tenta exibir na coluna id não existe no banco.
<a hef="alt2.dados.asp?cod_dados1=<% = rsDados.Fields("cod_dados") %>"> <% = rsDados.Fields("id") %></a>
quem é o auto numeração da tabela ID ou cod_dados???

bareta · Julho 6, 2009

selecione todos os campos que serão usados, ou terá este erro...

Dim conbd_gd1, rsDados, strSQL 
strSQL = "SELECT status, id, sistema, descricao, observacao, fase, plano_entrega FROM tab_dados"
strSQL = strSQL & " order by dt_inc desc"
Call AbreConexao

Dim conbd_gd1, rsDados, strSQL 
strSQL = "SELECT * FROM tab_dados"
strSQL = strSQL & " order by dt_inc desc"
Call AbreConexao

Martinsrj · Julho 6, 2009

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>

selecione todos os campos que serão usados, ou terá este erro...

Dim conbd_gd1, rsDados, strSQL 
strSQL = "SELECT status, id, sistema, descricao, observacao, fase, plano_entrega FROM tab_dados"
strSQL = strSQL & " order by dt_inc desc"
Call AbreConexao

Dim conbd_gd1, rsDados, strSQL 
strSQL = "SELECT * FROM tab_dados"
strSQL = strSQL & " order by dt_inc desc"
Call AbreConexao

jow · Julho 6, 2009

Boa tarde vou te dá um exemplo prático ....

Set rs = conexao.execute("Select codigo, nome from NOME")

Do While Not rs.Eof %>
<a href="alt2.dados.asp?id=<%=rs("codigo")%>"><%=rs("nome")%></a>
<% rs.MoveNext
Loop %>

alt2.dados.asp

<% response.write request.querystring("id") %>

Editado Julho 6, 2009 por jow

Martinsrj · Julho 6, 2009

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.

Boa tarde vou te dá um exemplo prático ....

Set rs = conexao.execute("Select codigo, nome from NOME")

Do While Not rs.Eof %>
<a href="alt2.dados.asp?id=<%=rs("codigo")%>"><%=rs("nome")%></a>
<% rs.MoveNext
Loop %>

alt2.dados.asp

<% response.write request.querystring("id") %>

bareta · Julho 6, 2009

huidhiudshaiadhi... eu vi o ASP só... nem reparei no html...

Entrar

(Resolvido) Alteração

Pergunta

Martinsrj

Link para o comentário

Compartilhar em outros sites

7 respostass a esta questão

Posts Recomendados

bareta

Link para o comentário

Compartilhar em outros sites

Martinsrj

Link para o comentário

Compartilhar em outros sites

bareta

Link para o comentário

Compartilhar em outros sites

Martinsrj

Link para o comentário

Compartilhar em outros sites

jow

Link para o comentário

Compartilhar em outros sites

Martinsrj

Link para o comentário

Compartilhar em outros sites

bareta

Link para o comentário

Compartilhar em outros sites

Estatísticas dos Fóruns

Navegação

Atividades