Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Martinsrj

[Resolvido] [Erro] INNER JOIN

Por , em ASP Clássico

Recommended Posts

Martinsrj    0

Martinsrj
Postado

Olá pessoal, boa tarde!

Estou com dificuldade para exibir as ações de um determinado projeto.

Exemplo: usuario clicou no link do Projeto Obama, porem aparece o projeto dele completo, porem aparece ações do Projeto Obama e tb de outros projeto.

Segue abaixo a minha tabela tab_acoesprojeto

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=5 DEFAULT CHARSET=utf8
Segue abaixo a minha tabela tab_dadosprojeto

tab_dadosprojeto  CREATE TABLE `tab_dadosprojeto` (										  
					`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 AUTO_INCREMENT=4 DEFAULT CHARSET=utf8
Segue abaixo o código da pagina:

<%
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 "


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ó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çã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 />
<%
Do While Not rsDadosB.Eof

%>			  
				<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>
					  <tr>
						<td class="tabela_branca"><% = rsDadosB.Fields("acao") %></td>
						<td height="10" class="tabela_branca"><% = rsDadosB.Fields("status") %></td>
						<td class="tabela_branca"><% = rsDadosB.Fields("legenda") %></td>
						<td class="tabela_branca"><% = rsDadosB.Fields("responsavel") %></td>
						<td class="tabela_branca"><% = rsDadosB.Fields("data") %></td>
					   </tr>
				 </table>
<%
rsDadosB.MoveNext
Loop
rsDadosB.Close
Call FechaConexao
Set rsDadosB = Nothing
%>										   
			
					</table>
				   
			  <br />
			  <br />
			</div></td>
		  </tr>
		</table>
		<br />
	</td>
  </tr>
</table><!--#include file="../rodape.asp"-->
</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

No strSQLB você tem que fazer o filtro no WHERE também.

 

 

Olá pessoal, boa tarde!

Estou com dificuldade para exibir as ações de um determinado projeto.

Exemplo: usuario clicou no link do Projeto Obama, porem aparece o projeto dele completo, porem aparece ações do Projeto Obama e tb de outros projeto.

Segue abaixo a minha tabela tab_acoesprojeto

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=5 DEFAULT CHARSET=utf8
Segue abaixo a minha tabela tab_dadosprojeto

tab_dadosprojeto  CREATE TABLE `tab_dadosprojeto` (										  
					`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 AUTO_INCREMENT=4 DEFAULT CHARSET=utf8
Segue abaixo o código da pagina:

<%
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 "


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ó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çã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 />
<%
Do While Not rsDadosB.Eof

%>			  
				<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>
					  <tr>
						<td class="tabela_branca"><% = rsDadosB.Fields("acao") %></td>
						<td height="10" class="tabela_branca"><% = rsDadosB.Fields("status") %></td>
						<td class="tabela_branca"><% = rsDadosB.Fields("legenda") %></td>
						<td class="tabela_branca"><% = rsDadosB.Fields("responsavel") %></td>
						<td class="tabela_branca"><% = rsDadosB.Fields("data") %></td>
					   </tr>
				 </table>
<%
rsDadosB.MoveNext
Loop
rsDadosB.Close
Call FechaConexao
Set rsDadosB = Nothing
%>										   
			
					</table>
				   
			  <br />
			  <br />
			</div></td>
		  </tr>
		</table>
		<br />
	</td>
  </tr>
</table><!--#include file="../rodape.asp"-->
</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito