Ir para conteúdo

POWERED BY:

Arquivado

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

Martinsrj

[Resolvido] [ERRO] Registro do campo data repetido...

Por , em ASP Clássico

Recommended Posts

Martinsrj    0

Martinsrj
Postado

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 nao corresponde ao registro.

Veja na imagem abaixo o campo data repetido:

Imagem Postada

 

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.: Nao coloquei o codigo todo, mas caso seja necessario e so falar.

 

Abracos galera!

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

é gerado algum erro ?

 

ele esta repetindo pq você deixou dentro do while e passa como parametro a funcao Date()

dae ele pega o valor de date()

Compartilhar este post

Link para o post
Compartilhar em outros sites

Martinsrj    0

Martinsrj
Postado

Nao da nenhum erro.

Verifique na imagem acima que postei como a data aparece repetido.

 

é gerado algum erro ?

 

ele esta repetindo pq você deixou dentro do while e passa como parametro a funcao Date()

dae ele pega o valor de date()

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

a imagem nao esta aparecendo, mas verifique date(), k esta sendo passado na funcaun ,dentro do while...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Martinsrj    0

Martinsrj
Postado

Ola amigao!

RESOLVIDO DESSA FORMA:

<% = (ConvertDataBanco(rsDadosB("data"))) %>

 

Abracos.

 

é gerado algum erro ?

 

ele esta repetindo pq você deixou dentro do while e passa como parametro a funcao Date()

dae ele pega o valor de date()

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

exato como eu havia lhe dito...

beleza

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