While não está legal

[Ted k' 126]

Olá galera mais um problema: acho que sei fazer mais ñ lembro hehehehehehehe

 

estou com duas tabelas aki no meu banco MySQL - uma é Cliente e outra é Recados

 

estou fazendo uma consulta que é mais ou menos assim:

<%
Set TedkDados = TedkBanco.Execute("Select CodigoRecados, CodigoRemetenteRecados, CodigoDestinatarioRecados, TituloRecados, TextoRecados, DataExtensoRecados, DataAtualizacaoRecados, StatusRecados From extranetRecados Where CodigoDestinatarioRecados = '"&Session("Codigo")&"' Order By DataAtualizacaoRecados Asc")

If TedkDados.Eof Then
   Response.Write("")
Else

While Not TedkDados.Eof
	VarCmpCodigoRecados = TedkDados("CodigoRecados")
	VarCmpCodigoRemetenteRecados = TedkDados("CodigoRemetenteRecados")
	VarCmpCodigoDestinatarioRecados = TedkDados("CodigoDestinatarioRecados")
	VarCmpTituloRecados = TedkDados("TituloRecados")
	VarCmpTextoRecados = TedkDados("TextoRecados")
	VarDataExtensoRecados = TedkDados("DataExtensoRecados")
	VarDataAtualizacaoRecados = TedkDados("DataAtualizacaoRecados")
	VarStatusRecados = TedkDados("StatusRecados")
%>
restante do codigo....
<%
TedkDados.MoveNext : Wend
End If
%>

está tudo funcionando normalmente só que agora te um porém que ñ lembro como prosseguir, como eu disse antes são duas tabelas Cliente e Recados e esse codigo acima puxa a tabela de Recados.

Como posso proseguir agora para puxar o nome do Cliente atráves desse parâmetro

VarCmpCodigoRemetenteRecados = TedkDados("CodigoRemetenteRecados")

Eu estava colocando esse codigo assim:

<%
Set TedkDados = TedkBanco.Execute("Select CodigoRecados, CodigoRemetenteRecados, CodigoDestinatarioRecados, TituloRecados, TextoRecados, DataExtensoRecados, DataAtualizacaoRecados, StatusRecados From extranetRecados Where CodigoDestinatarioRecados = '"&Session("Codigo")&"' Order By DataAtualizacaoRecados Asc")

	If TedkDados.Eof Then
		Response.Write("")
	Else

While Not TedkDados.Eof
	VarCmpCodigoRecados = TedkDados("CodigoRecados")
	VarCmpCodigoRemetenteRecados = TedkDados("CodigoRemetenteRecados")
	VarCmpCodigoDestinatarioRecados = TedkDados("CodigoDestinatarioRecados")
	VarCmpTituloRecados = TedkDados("TituloRecados")
	VarCmpTextoRecados = TedkDados("TextoRecados")
	VarDataExtensoRecados = TedkDados("DataExtensoRecados")
	VarDataAtualizacaoRecados = TedkDados("DataAtualizacaoRecados")
	VarStatusRecados = TedkDados("StatusRecados")
	
		Set TedkDados = TedkBanco.Execute("Select NomeMeusDados, FuncaoMeusDados, ImagemMeusDados From extranetMeusDados Where CodigoMeusDados = "&VarCmpCodigoRemetenteRecados)
	
	VarCmpNomeMeusDados = TedkDados("NomeMeusDados")
	VarCmpFuncaoMeusDados = TedkDados("FuncaoMeusDados")
	VarCmpImagemMeusDados = TedkDados("ImagemMeusDados")
%>

Na Tabela Recados tem 8 Recados para o Cliente Logado pela Session acima, só que com esse codigo que crie só aparece um, sei que estou fazendo errado mais gostaria de apoio para onde colocar o codigo no local certo

 

obrigado galera!!!

[jrcardozo 4]

While Not TedkDados.Eof	VarCmpCodigoRecados = TedkDados("CodigoRecados")	VarCmpCodigoRemetenteRecados = TedkDados("CodigoRemetenteRecados")	VarCmpCodigoDestinatarioRecados = TedkDados("CodigoDestinatarioRecados")	VarCmpTituloRecados = TedkDados("TituloRecados")	VarCmpTextoRecados = TedkDados("TextoRecados")	VarDataExtensoRecados = TedkDados("DataExtensoRecados")	VarDataAtualizacaoRecados = TedkDados("DataAtualizacaoRecados")	VarStatusRecados = TedkDados("StatusRecados")			Set TedkDados = TedkBanco.Execute("Select NomeMeusDados, FuncaoMeusDados, ImagemMeusDados From extranetMeusDados Where CodigoMeusDados = "&VarCmpCodigoRemetenteRecados)if not TedkDados .eof thendo while not TedkDados.eof		VarCmpNomeMeusDados = TedkDados("NomeMeusDados")	VarCmpFuncaoMeusDados = TedkDados("FuncaoMeusDados")	VarCmpImagemMeusDados = TedkDados("ImagemMeusDados")TedkDados .movenextloopend if%>

só fazer outro while dentro do atual

[Ted k' 126]

cara ñ gerou ñ veja como coloquei:

 

<%
Set TedkDados = TedkBanco.Execute("Select CodigoRecados, CodigoRemetenteRecados, CodigoDestinatarioRecados, TituloRecados, TextoRecados, DataExtensoRecados, DataAtualizacaoRecados, StatusRecados From extranetRecados Where CodigoDestinatarioRecados = '"&Session("Codigo")&"' Order By DataAtualizacaoRecados Asc")

	If TedkDados.Eof Then
	Response.Write("")
	Else

While Not TedkDados.Eof
	VarCmpCodigoRecados = TedkDados("CodigoRecados")
	VarCmpCodigoRemetenteRecados = TedkDados("CodigoRemetenteRecados")
	VarCmpCodigoDestinatarioRecados = TedkDados("CodigoDestinatarioRecados")
	VarCmpTituloRecados = TedkDados("TituloRecados")
	VarCmpTextoRecados = TedkDados("TextoRecados")
	VarDataExtensoRecados = TedkDados("DataExtensoRecados")
	VarDataAtualizacaoRecados = TedkDados("DataAtualizacaoRecados")
	VarStatusRecados = TedkDados("StatusRecados")
	
		Set TedkDados = TedkBanco.Execute("Select NomeMeusDados, FuncaoMeusDados, ImagemMeusDados From extranetMeusDados Where CodigoMeusDados = "&VarCmpCodigoRemetenteRecados)
			
	If TedkDados.Eof Then
	Response.Write("")
	Else
		
While Not TedkDados.Eof
	VarCmpNomeMeusDados = TedkDados("NomeMeusDados")
	VarCmpFuncaoMeusDados = TedkDados("FuncaoMeusDados")
	VarCmpImagemMeusDados = TedkDados("ImagemMeusDados")
%>
codigo restandte
<%
TedkDados.MoveNext : Wend
End If
TedkDados.MoveNext : Wend
End If
%>

[jrcardozo 4]

utilize nomes diferentes no recordset TedkDados , tipo TedkDados1 e TedkDados2 para diferencia-los dentro do while pois está confundindo o codigo usando o mesmo nome

[Ted k' 126]

rapaz era isso mesmo, que bom funcionou cara vlw pela dica!!!!!

[jrcardozo 4]

beleza....toca o barcoabraço