[Resolvido] Dificuldade Vinculo entre duas tabelas

Martinsrj · Julho 12, 2009

Ola pessoal, boa noite!

Estou encontrando uma grande dificuldade em montar ou vincular tab_acoesprojeto com a tabela: tab_dadosprojeto.

A imagem abaixo descreve exatamente as duas tabelas, primeiro: tab_dadosprojeto composto pelos campos da tabela com seguinte conteudo(nome_projeto: Projeto Obama, escopo_projeto: Consiste em realizar a substituiÃ§Ã£o do Vantive Help..., etc)

a Segunda tabela e composto pelos campos com os seguintes conteudos (acao: Kickoff com a equipe de Gestão de Demanda, status: Não Iniciado, legenda: Imagem Postada responsavel: Moizio, etc... )

Preciso pessoal que quando o usuario estiver para incluir as acoes inclua para o determinado PROJETO QUE O mesmo selecionou na combobox no codigo abaixo:

<%
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, strSQL, var_nomeprojeto, var_cod_dados, rs_Dados
strSQL = "SELECT * FROM tab_dadosprojeto"
strSQL = strSQL & " order by data desc"
Call AbreConexao

Set rsDados = conbd_gd.Execute(strSQL)

var_cod_dados = rsDados("cod_dados")
var_nomeprojeto = rsDados("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"> <span class="style1200"> 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>    </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"> </td>
						<td bgcolor="f4f4f4">
<select name="txt_nomeprojeto" size="1" >
<option>Selecione o Projeto: </option>

<% While Not rsDados.Eof %> 
<option value="<% = rsDados("cod_dados")%>">
<%=rsDados("nome_projeto")%> 
</option>
<%
rsDados.MoveNext
wend%> 
</select> 
<%Set rsDados=nothing 
'rsDados.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"> </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>

Aqui vai toda a estrutura do meu banco:

/* Estrutura da tabela: `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=6 DEFAULT CHARSET=utf8;

/*Estrutura da tabela: `tab_autorizacao` */

CREATE TABLE `tab_autorizacao` (
  `cod_sistema` int(11) NOT NULL AUTO_INCREMENT,
  `login` int(15) NOT NULL,
  `tipo_autorizacao` varchar(3) NOT NULL,
  PRIMARY KEY (`cod_sistema`,`login`)
) ENGINE=InnoDB DEFAULT CHARSET=utf8;

/*Estrutura da tabela: `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;

/* Estrutura da tabela: `tab_usuarios` */

CREATE TABLE `tab_usuarios` (
  `cod_usr` int(11) NOT NULL AUTO_INCREMENT,
  `login` int(15) NOT NULL,
  `nome_usr` varchar(100) NOT NULL,
  `senha` varchar(30) DEFAULT NULL,
  PRIMARY KEY (`cod_usr`,`login`),
  UNIQUE KEY `cod_usr` (`cod_usr`)
) ENGINE=InnoDB DEFAULT CHARSET=utf8;

Abracos.

xanburzum · Julho 12, 2009

você deve ter um relacionamento entre elas, faz um INNER JOIN,na verdade, a impôrtancia de uma modelagem de dados bem definida até os mínimos detalhes, como os campos de relacionamentos, um velho ditado diz, que um relacionamento bem definido é a alma do aplicativo, pois daí saem todas as consultas e operações com o banco, influenciando diretamente na otimização e performance do aplicativo , um projeto bem estruturado

Martinsrj · Julho 12, 2009

Na verdade ja existe.

A dificuldade e que quando um usuario selecionar um determinado projeto na combobox carregue tb o seu cod, na verdade o campo cod_dados, para que possa inserir todos os dados na tabela tab_acoesprojeto

você deve ter um relacionamento entre elas, faz um INNER JOIN,na verdade, a impôrtancia de uma modelagem de dados bem definida até os mínimos detalhes, como os campos de relacionamentos, um velho ditado diz, que um relacionamento bem definido é a alma do aplicativo, pois daí saem todas as consultas e operações com o banco, influenciando diretamente na otimização e performance do aplicativo , um projeto bem estruturado

xanburzum · Julho 12, 2009

no combobox, você pode passar no value o codigo do projeto e depois o nome dele, tipo:

select name="nome" size="1" >
<option>Selecione o Projeto: </option>
<% While Not rsDados.Eof %> 
<option value="<% = rsDados("codigo")%>">
<%=rsDados("nome")%> 
</option>
<%
rsDados.MoveNext
wend%> 
</select>

porem se o codigo k precisa esta em outra tabela, você deve fazer um INNER JOIN no Select para trazer esses dados...

Martinsrj · Julho 12, 2009

Campeao, creio que tive uma ideia que possa solucionar essa situacao.

Coloquei duas combo, a primeira contendo o codigo do projeto, onde eu necessito desse codigo para inserir em outra tabela. Na outra combo eu coloquei o codigo juntamente com o nome do projeto, pois o usuario certamente nao ira saber o codigo do projeto para incluir as acoes do formulario. A segunda combo vai servir como uma cola para o usuario inserir na primeira combo o codigo do projeto do seu interesse.

A ideia que eu tive tem tudo para funcionar e inserir os dados na tabela, porem esta dando esse erro:

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A01A8)

Objeto necessário

/grupo_demanda/projetos/obama/inclusao_descricao.asp, line 80

SEGUE abaixo o codigo das combos.

obs.: a linha 80 e essa: <% While Not rsDados.Eof %> (esse while e da 2 combo.)

<td bgcolor="f4f4f4">
<select name="txt_codprojeto" size="1" >
<option>Codigo do Projeto: </option>

<% While Not rsDados.Eof %> 
<option value="<% = rsDados("cod_dados")%>">
<%=rsDados("cod_dados")%> 
</option>
<%
rsDados.MoveNext
wend%> 
</select> 
<%Set rsDados=nothing 
'rsDados.Close
'Call FechaConexao
%>

<select name="txt_nomeprojeto" size="1" >
<option>Nao sabe o codigo, clique aqui: </option>

<% While Not rsDados.Eof %> 
<option value="<% = rsDados("cod_dados")%>">
<%=rsDados("cod_dados")%> - <%=rsDados("nome_projeto")%> 
</option>
<%
rsDados.MoveNext
wend%> 
</select>
						
						</td>

no combobox, você pode passar no value o codigo do projeto e depois o nome dele, tipo:
select name="nome" size="1" >
<option>Selecione o Projeto: </option>
<% While Not rsDados.Eof %> 
<option value="<% = rsDados("codigo")%>">
<%=rsDados("nome")%> 
</option>
<%
rsDados.MoveNext
wend%> 
</select>
porem se o codigo k precisa esta em outra tabela, você deve fazer um INNER JOIN no Select para trazer esses dados...

xanburzum · Julho 12, 2009

você precisa usar outro objeto recordset, nao pode usar o mesmo para os dois, olhe este exemplo de pais e estado em combobox:

este script faz o preenchemento de um combo e pega o valor do combo preenchido pra fazer o outro combo, tipo: 

um combo pais e outro combo estado 

as tabelas saun: 

pais- com os campos 
cod_pais - chave primária 
nome 

estado -c om os campos 
cod_pais - chave estrangeira 
cod_estado 
nome 

as tabelas possuem relacionamento de um para muitos 

<% Option Explicit 

'declaro as var 
dim var1,var2,var3,....., etc 
'recupero as var 
varpais=request.querystring("pais") 
'crioa a conexao 
%> 

<!--# include file="conexao/conexao.asp"--> 

<% 
'abro a conexao 
Call abre_conexao 
'crio o rs 
set rspais=server.createobject("ADODB.Recordset") 
'crio a SQL 
SQLpais="SELECT * FROM pais ORDER BY nome" 
rspais.open SQLpais,conexao,1,3 
%> 


'aki vou criar o combo, onde no evento onchange ele irá enviar o value do combo pais para a mesma pag, para eu recuperar o codigo do pais e assim preencher o combo estado. 

<form action="inserirend_action.asp" method="post"name="frmteste"> 
<select name="pais" size="1" Onchange="window.navigate('pag_atual.asp?pais='+frmteste.pais.value)"> 

<% while not rspais.eof%> 
<option value="<%=rs("cod_pais")%>"> 
<% if varpais=rs("pais") then 
response.write("Selecionado") 
end if%> 
<%=rs("nome")%> 
</option> 
<% rspais.movenext 
wend%> 
</select> 
<% set rspais=nothing%> 

'aki crio o combo estado 

<select name="estado"size="1"> 
if request("pais") ="" then%>

no select name="pais" uso o rs("pais")

no outro select o name=name="estado, é usado outro, o rsestado...

entendeu

Martinsrj · Julho 12, 2009

Ola Xanburzum!

Realizei a modificacao abaixo, porem da o seguinte erro:

Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A0411)

Redefinição do nome

/grupo_demanda/projetos/obama/inclusao_descricao.asp, line 8, column 23

Dim conbd_gd, rsDados, rsDados, rsDados2, strSQL, var_nomeprojeto, var_cod_dados, rs_Dados

<td bgcolor="f4f4f4">
<select name="txt_codprojeto" size="1" >
<option>Codigo do Projeto: </option>

<% While Not rsDados.Eof %> 
<option value="<% = rsDados("cod_dados")%>">
<%=rsDados("cod_dados")%> 
</option>
<%
rsDados.MoveNext
wend%> 
</select> 
<%Set rsDados=nothing 
'rsDados.Close
'Call FechaConexao
%>

<select name="txt_nomeprojeto" size="1" >
<option>Nao sabe o codigo, clique aqui: </option>

<% While Not rsDados2.Eof %> 
<option value="<% = var_cod_dados %>">
<%= var_cod_dados %> - <%= var_nomeprojeto %> 
</option>
<%
rsDados2.MoveNext
wend%> 
</select>
						
						</td>

As variaveis esta da seguinte forma:

<%
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, rsDados, rsDados2, strSQL, var_nomeprojeto, var_cod_dados, rs_Dados
strSQL = "SELECT * FROM tab_dadosprojeto"
strSQL = strSQL & " order by data desc"
Call AbreConexao

Set rsDados = conbd_gd.Execute(strSQL)
Set rsDados2 = conbd_gd.Execute(strSQL)

var_cod_dados = rsDados2("cod_dados")
var_nomeprojeto = rsDados2("nome_projeto")


%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 T

Mário Monteiro · Julho 12, 2009

uma dessas variáveis você já definiu antes

Dim conbd_gd, rsDados, rsDados, rsDados2, strSQL, var_nomeprojeto, var_cod_dados, rs_Dados

verifique qual e exclua de um dos locais

Martinsrj · Julho 12, 2009

Valeu Mario, pelo help!

Realmente declarei amais a variavel rsDados.

Porem o segundo while coloca na combo apenas o ultimo projeto.

Veja na imagem abaixo:

Imagem Postada

Desde ja agradeco a todos!

uma dessas variáveis você já definiu antes
Dim conbd_gd, rsDados, rsDados, rsDados2, strSQL, var_nomeprojeto, var_cod_dados, rs_Dados
verifique qual e exclua de um dos locais

xanburzum · Julho 12, 2009

como citei acima

você precisa usar outro objeto recordset, nao pode usar o mesmo para os dois:

ou seja você precisa de um recordset para preencher um combo e outro objeto recordset definido para o outro combo

e nao pode ter dois rsDados, rsDados

sehue o exemplo de paises e estado k roda certinho...

Martinsrj · Julho 12, 2009

Ja criei dois recordset: rsDados e rsDados2

Agora uma observacao: a segunda combo ira servir apenas como uma cola, ou seja: o usuario nao sabe o numero do codigo para inserir e entao va na segunda combo e veja o codigo do respectivo projeto.

<%
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, var_nomeprojeto, var_cod_dados, rs_Dados
strSQL = "SELECT * FROM tab_dadosprojeto"
strSQL = strSQL & " order by data desc"
Call AbreConexao

Set rsDados = conbd_gd.Execute(strSQL)
Set rsDados2 = conbd_gd.Execute(strSQL)

var_cod_dados = rsDados2("cod_dados")
var_nomeprojeto = rsDados2("nome_projeto")

como citei acima

você precisa usar outro objeto recordset, nao pode usar o mesmo para os dois:

ou seja você precisa de um recordset para preencher um combo e outro objeto recordset definido para o outro combo

e nao pode ter dois rsDados, rsDados

sehue o exemplo de paises e estado k roda certinho...

<select name="txt_codprojeto" size="1" >
<option>Codigo do Projeto: </option>

<% While Not rsDados.Eof %> 
<option value="<% = rsDados("cod_dados")%>">
<%=rsDados("cod_dados")%> 
</option>
<%
rsDados.MoveNext
wend%> 
</select> 
<%Set rsDados=nothing 
'rsDados.Close
'Call FechaConexao
%>

<select name="txt_nomeprojeto" size="1" >
<option>Nao sabe o codigo, clique aqui: </option>

<% While Not rsDados2.Eof %> 
<option value="<% = var_cod_dados %>">
<%= var_cod_dados %> - <%= var_nomeprojeto %> 
</option>
<%
rsDados2.MoveNext
wend%> 
</select>
						
						</td>

xanburzum · Julho 12, 2009

faz igual o exemplo k postei acima, esse combo serve certinho pra isso, ou seja

cria 1º um ,popula ele, e depois o outro sendo

um novo recordset, outra consulta SQL e por fim o select

'crio o SQL 2
SQLestado="Select * from estado where cod_pais="&varpais&" Order by nome" 
'crio o rsestado 
set rsestado=server.createobject("ADODB.Recordset") 
rsestado.open SQLestado,conexao,1,3 
<%while not rsestado.eof%> 
<option value="<%=rsestado("cod_estado")%>"> 
<%=rs("nome")%> 
</option> 
<%rs.movenext 
wend 
end if%> 
</select>

Martinsrj · Julho 12, 2009

Ola Xanburzum!

Cheguei a criar dois reordset, veja:

Set rsDados = conbd_gd.Execute(strSQL)

Set rsDados2 = conbd_gd.Execute(strSQL)

Aqui esta o meu codigo no inicio:

<%
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, var_nomeprojeto, var_cod_dados, rs_Dados
strSQL = "SELECT * FROM tab_dadosprojeto"
strSQL = strSQL & " order by data desc"
Call AbreConexao

Set rsDados = conbd_gd.Execute(strSQL)
Set rsDados2 = conbd_gd.Execute(strSQL)

var_cod_dados = rsDados2("cod_dados")
var_nomeprojeto = rsDados2("nome_projeto")


%>
<!DOCTYPE html PUBLIC

E aqui onde estao os dois while:

<td bgcolor="f4f4f4">
<select name="txt_codprojeto" size="1" >
<option>Codigo do Projeto: </option>

<% While Not rsDados.Eof %> 
<option value="<% = rsDados("cod_dados")%>">
<%=rsDados("cod_dados")%> 
</option>
<%
rsDados.MoveNext
wend%> 
</select> 
<%Set rsDados=nothing 
'rsDados.Close
'Call FechaConexao
%>

<select name="txt_nomeprojeto" size="1" >
<option>Nao sabe o codigo, clique aqui: </option>

<% While Not rsDados2.Eof %> 
<option value="<% = var_cod_dados %>">
<%= var_cod_dados %> - <%= var_nomeprojeto %> 
</option>
<%
rsDados2.MoveNext
wend%> 
</select>
						
						</td>

Uma observacao: a segunda combo so serve para o usuario inserir na primeira combo qual e o codigo do seu projeto.

Abracos e obrigado pela paciencia.

como citei acima

você precisa usar outro objeto recordset, nao pode usar o mesmo para os dois:

ou seja você precisa de um recordset para preencher um combo e outro objeto recordset definido para o outro combo

e nao pode ter dois rsDados, rsDados

sehue o exemplo de paises e estado k roda certinho...

xanburzum · Julho 12, 2009

bom aparentemente, esta correto...

você apenas esta usando a mesma string SQL.

Martinsrj · Julho 12, 2009

Segue o codigo completo com as modificacoes do recordset e string.

Postei o codigo no pastebin para uma melhor visualizacao: http://pastebin.com/f72501d99

<%
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"> <span class="style1200"> 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>    </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"> </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>Nao 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"> </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>

bom aparentemente, esta correto...

você apenas esta usando a mesma string SQL.

xanburzum · Julho 12, 2009

se esta rodando sem erro, ja era...

Mário Monteiro · Julho 12, 2009

você deve ter gravado o nome do projeto fora do while e por isso não muda

xanburzum · Julho 12, 2009

ele esta gerando erro..

poste a linha e numero

Martinsrj · Julho 12, 2009

Nao aparece nenhum erro. A situacao e que a segunda combo so aparece tres vezes o mesmo projeto:

Veja na imagem:

Imagem Postada

Coisa de louco, pois na primeira combo aparece todos.

ele esta gerando erro..

poste a linha e numero

Mário Monteiro · Julho 12, 2009

leia o meu post anterior

post o codigo que gera o segundo combo

Arquivado

[Resolvido] Dificuldade Vinculo entre duas tabelas

Recommended Posts

Martinsrj 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Martinsrj 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Martinsrj 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Martinsrj 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

Martinsrj 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Martinsrj 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Martinsrj 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Martinsrj 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

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

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Martinsrj 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179