[Resolvido] Ao ler um item do RECORDSET aparece outro...

[Eduardo Villa 2]

Olá td bem???

Estou tendo um pequeno problema... deve ser coisa muito fácil, mas não estou conseguindo.

 

Gostaria que ao ler <%=subcategoria("idsubcategoria")%> aparecesse <%=subcategoria("titulo")%>

 

Tem como???

Aguardo Resposta

Valew

Dudesigner

[hargon 64]

Não entendi a dúvida. Porque não ler direto o campo TITULO?

[Ted k' 126]

tbm fiquei perdido

[Mário Monteiro 179]

o que está pedindo é ilogico mesmo

[Eduardo Villa 2]

É o seguinte, tenho uma tabela:

Id ---------------- Categoria ------------------ Título

1 ------------- Galeria de Fotos -------------- Teste

2 ------------------ Notícias ------------------ Teste1

 

Id - Recordset(subcategoria)

Categoria - Recordset(categoria)

Título - Recordset(subcategoria)

 

No Recordset(subcategoria) eu tenho o IDCATEGORIA então gostaria que ao ler esse ID buscasse no Recordset(categoria) o nome da CATEGORIA e não o número do ID...

 

E se eu colocar direto para buscar o nome da categoria, mas não aparece a Categoria: Notícias e sim tudo Galeria de Fotos...

 

Valew

Dudesigner

[Profhel 0]

Olá amigo,

 

acho que entendi o que você quer fazer. Então vamos lá!

 

Faça o seguinte (já que você não postou seu código, usarei minha lógica de programação somente para tentar elucidar sua dúvida, ok?)

 

'***** No menu Subcategoria, capture o ID contido no link e vincule-o na tabela Categoria

 

varIdSubCat = Request.QueryString("id")

 

strCategoria = "SELECT * FROM Categoria WHERE idSubCategoria = " & varIdSubCat & ""

Set rsCategoria = Conexaodb.Execute(strCategoria)

 

'***** Para exibir a Nome da Categoria, utilize

 

nomeCategoria = rsCategoria("Titulo")

Respopnse.Write nomeCategoria

 

Espero ter ajudado.

 

 

.

[Eduardo Villa 2]

Desculpe Profhel, mas não entendi a sua explicação então estou postando o código

Marquei o lugar que irá aparecer o nome da categoria...

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim categoria
Dim categoria_cmd
Dim categoria_numRows

Set categoria_cmd = Server.CreateObject ("ADODB.Command")
categoria_cmd.ActiveConnection = MM_conn_STRING
categoria_cmd.CommandText = "SELECT * FROM categoria" 
categoria_cmd.Prepared = true

Set categoria = categoria_cmd.Execute
categoria_numRows = 0
%>
<%
'Make a transaction dispatcher instance
Dim tNGs: Set tNGs = new tNG_dispatcher
tNGs.Init "../../"
%>
<%
' Start trigger
Dim formValidation: Set formValidation = new tNG_FormValidation
formValidation.Init
tNGs.prepareValidation formValidation
' End trigger
%>
<%
Dim subcategoria
Dim subcategoria_cmd
Dim subcategoria_numRows

Set subcategoria_cmd = Server.CreateObject ("ADODB.Command")
subcategoria_cmd.ActiveConnection = MM_conn_STRING
subcategoria_cmd.CommandText = "SELECT * FROM subcategoria" 
subcategoria_cmd.Prepared = true

Set subcategoria = subcategoria_cmd.Execute
subcategoria_numRows = 0
%>
<%
' Make an insert transaction instance 
Dim ins_subcategoria: Set ins_subcategoria = new tNG_insert
ins_subcategoria.init MM_conn_STRING
tNGs.addTransaction ins_subcategoria
' Register triggers
ins_subcategoria.registerTrigger Array("STARTER", "Trigger_Default_Starter", 1, "POST", "KT_Insert1")
ins_subcategoria.registerTrigger Array("BEFORE", "Trigger_Default_FormValidation", 10, formValidation)
ins_subcategoria.registerTrigger Array("END", "Trigger_Default_Redirect", 99, "subcategoria.asp")
' Add columns
ins_subcategoria.setTable "subcategoria"
ins_subcategoria.addColumn "idcategoria", "STRING_TYPE", "POST", "idcategoria", ""
ins_subcategoria.addColumn "subcategoria", "STRING_TYPE", "POST", "subcategoria", ""
ins_subcategoria.addColumn "titulo", "STRING_TYPE", "POST", "titulo", ""
ins_subcategoria.addColumn "descricao", "STRING_TYPE", "POST", "descricao", ""
ins_subcategoria.addColumn "url_subcategoria", "STRING_TYPE", "POST", "url_subcategoria", ""
ins_subcategoria.addColumn "status", "STRING_TYPE", "POST", "status", ""
ins_subcategoria.setPrimaryKey "idsubcategoria", "NUMERIC_TYPE", "", ""
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
subcategoria_numRows = subcategoria_numRows + Repeat1__numRows
%>
<%
'Execute all the registered transactions
tNGs.executeTransactions
%><%
'Get the transaction recordset
Dim rssubcategoria
Dim rssubcategoria_numRows

Set rssubcategoria = tNGs.getRecordset("subcategoria")
rssubcategoria_numRows = 0
%>
<%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim subcategoria_total
Dim subcategoria_first
Dim subcategoria_last

' set the record count
subcategoria_total = subcategoria.RecordCount

' set the number of rows displayed on this page
If (subcategoria_numRows < 0) Then
  subcategoria_numRows = subcategoria_total
Elseif (subcategoria_numRows = 0) Then
  subcategoria_numRows = 1
End If

' set the first and last displayed record
subcategoria_first = 1
subcategoria_last  = subcategoria_first + subcategoria_numRows - 1

' if we have the correct record count, check the other stats
If (subcategoria_total <> -1) Then
  If (subcategoria_first > subcategoria_total) Then
	subcategoria_first = subcategoria_total
  End If
  If (subcategoria_last > subcategoria_total) Then
	subcategoria_last = subcategoria_total
  End If
  If (subcategoria_numRows > subcategoria_total) Then
	subcategoria_numRows = subcategoria_total
  End If
End If
%>
<!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>..:: Área Restrita a Administração ::..</title>
<style type="text/css">
<!--

body {
	background-image: url();
	background-color: #000000;
}
#topo {
	position:absolute;
	left:108px;
	top:0;
	width:780px;
	height:315px;
	z-index:2;
}
#contexto {
	position:absolute;
	left:108px;
	top:315px;
	width:780px;
	height:400px;
	z-index:1;
	background-color: #000000;
}
#contbarra {
	position:absolute;
	left:0px;
	top:280px;
	width:100%;
	height:32px;
	z-index:1;
}
-->
</style>
<link href="../../css/css.css" rel="stylesheet" type="text/css" />
<script src="../../Scripts/AC_RunActiveContent.js" type="text/javascript"></script>
<style type="text/css">
<!--
a:link {
	text-decoration: none;
}
a:visited {
	text-decoration: none;
}
a:hover {
	text-decoration: underline;
}
a:active {
	text-decoration: none;
}
-->
</style>
<link href="../../includes/skins/mxkollection3.css" rel="stylesheet" type="text/css" media="all" />
<script src="../../includes/common/js/base.js" type="text/javascript"></script>
<script src="../../includes/common/js/utility.js" type="text/javascript"></script>
<script src="../../includes/skins/style.js" type="text/javascript"></script>
<% Response.Write tNGs.displayValidationRules()%>
</head>

<body>
<div id="topo">
  <script type="text/javascript">
AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,28,0','width','780','height','315','src','../imagens/topo/topo','quality','high','pluginspage','http://www.adobe.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash','movie','../imagens/topo/topo' ); //end AC code
</script>
<noscript><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,28,0" width="780" height="315">
	<param name="movie" value="../imagens/topo/topo.swf" />
	<param name="quality" value="high" />
	<embed src="../imagens/topo/topo.swf" quality="high" pluginspage="http://www.adobe.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="780" height="315"></embed>
  </object>
</noscript></div>

<div id="contexto">
 <table width="770" height="400" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#000000" bgcolor="#D4D4D4">
	<tr>
	  <td width="10" bordercolor="#990000" bgcolor="#990000" class="menu_topo_branco"></td>
<td width="718" bordercolor="#990000" bgcolor="#990000" class="menu_topo_branco"> Subcategoria</td>
	  <td width="52" height="18" bordercolor="#990000" bgcolor="#990000" class="menu_topo_branco"><a href="<%= MM_Logout %>">Sair</a></td>
	</tr>
	<tr>
	  <td height="26" colspan="2"  ><div align="center"><br />
		  <%
	Response.Write tNGs.getErrorMsg()
%>
			  <form method="post" id="form1" action="<%= KT_escapeAttribute(KT_getFullUri()) %>">
				<table cellpadding="2" cellspacing="0" class="KT_tngtable">
				  <tr>
					<td class="KT_th"><label for="idcategoria">Categoria:</label></td>
					<td><div align="left">
					  <select name="idcategoria" id="idcategoria">
						<%
While (NOT categoria.EOF)
%>
						<option value="<%=(categoria.Fields.Item("idcategoria").Value)%>" <%If (Not isNull((rssubcategoria.Fields.Item("idcategoria").Value))) Then If (CStr(categoria.Fields.Item("idcategoria").Value) = CStr((rssubcategoria.Fields.Item("idcategoria").Value))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(KT_escapeAttribute(categoria.Fields.Item("categoria").Value))%></option>
						<%
  categoria.MoveNext()
Wend
If (categoria.CursorType > 0) Then
  categoria.MoveFirst
Else
  categoria.Requery
End If
%>
					  </select>
					  <%=(tNGs.displayFieldError("subcategoria", "idcategoria"))%> </div></td>
				  </tr>
				  <tr>
					<td class="KT_th"><label for="subcategoria">Subcategoria:</label></td>
					<td><div align="left">
					  <input type="text" name="subcategoria" id="subcategoria" value="<%=(KT_escapeAttribute(rssubcategoria.Fields.Item("subcategoria").Value))%>" size="32" />
					  <%=(tNGs.displayFieldHint("subcategoria"))%> <%=(tNGs.displayFieldError("subcategoria", "subcategoria"))%> </div></td>
				  </tr>
				  <tr>
					<td class="KT_th"><label for="titulo">Titulo:</label></td>
					<td><div align="left">
					  <input type="text" name="titulo" id="titulo" value="<%=(KT_escapeAttribute(rssubcategoria.Fields.Item("titulo").Value))%>" size="32" />
					  <%=(tNGs.displayFieldHint("titulo"))%> <%=(tNGs.displayFieldError("subcategoria", "titulo"))%> </div></td>
				  </tr>
				  <tr>
					<td class="KT_th"><label for="descricao">Descrição:</label></td>
					<td><div align="left">
					  <textarea name="descricao" id="descricao" cols="50" rows="5"><%=(KT_escapeAttribute(rssubcategoria.Fields.Item("descricao").Value))%></textarea>
					  <%=(tNGs.displayFieldHint("descricao"))%> <%=(tNGs.displayFieldError("subcategoria", "descricao"))%> </div></td>
				  </tr>
				  <tr>
					<td class="KT_th"><label for="url_subcategoria">URL:</label></td>
					<td><div align="left">
					  <input type="text" name="url_subcategoria" id="url_subcategoria" value="<%=(KT_escapeAttribute(rssubcategoria.Fields.Item("url_subcategoria").Value))%>" size="32" />
					  <%=(tNGs.displayFieldHint("url_subcategoria"))%> <%=(tNGs.displayFieldError("subcategoria", "url_subcategoria"))%> </div></td>
				  </tr>
				  <tr>
					<td class="KT_th"><label for="status">Status:</label></td>
					<td><div align="left">
					  <select name="status" id="status">
						<option value="sim" <%If (Not isNull((KT_escapeAttribute(rssubcategoria.Fields.Item("status").Value)))) Then If ("sim" = CStr((KT_escapeAttribute(rssubcategoria.Fields.Item("status").Value)))) Then Response.Write("SELECTED") : Response.Write("")%>>Sim</option>
						<option value="nao" <%If (Not isNull((KT_escapeAttribute(rssubcategoria.Fields.Item("status").Value)))) Then If ("nao" = CStr((KT_escapeAttribute(rssubcategoria.Fields.Item("status").Value)))) Then Response.Write("SELECTED") : Response.Write("")%>>Não</option>
					  </select>
					  <%=(tNGs.displayFieldError("subcategoria", "status"))%> </div></td>
				  </tr>
				  <tr class="KT_buttons">
					<td colspan="2"><input type="submit" name="KT_Insert1" id="KT_Insert1" value="Cadastrar" /></td>
				  </tr>
				</table>
			  <br />
		  </form>
		  </div>
		
		<table width="65%" border="1" align="center" cellpadding="0" cellspacing="1" bordercolor="#999999">
		<tr>
		  <td width="6%" bgcolor="#999999" class="item_tabela_cadastro"><div align="center">Id</div></td>
		  <td width="23%" bgcolor="#999999" class="item_tabela_cadastro">Categoria</td>
		  <td width="31%" bgcolor="#999999" class="item_tabela_cadastro">Subcategoria</td>
		  <td width="11%" bgcolor="#999999" class="item_tabela_cadastro"><div align="center">Status</div></td>
		  <td colspan="2" bgcolor="#999999" class="item_tabela_cadastro"><div align="center">Ferramentas</div></td>
		</tr>
		<% 
While ((Repeat1__numRows <> 0) AND (NOT subcategoria.EOF)) 
%>
		  <tr>
			  <td class="ver_destaque_fundo_claro"><div align="center"><%=subcategoria("idsubcategoria")%></div></td>
			<td class="ver_destaque_fundo_claro">[b]Aqui eu preciso que apareça o NOME DA CATEGORIA[/b]</td>
			<td class="ver_destaque_fundo_claro"><%=(subcategoria.Fields.Item("titulo").Value)%></td>
			<td class="ver_destaque_fundo_claro"><div align="center"><%=subcategoria("status")%>
			</div></td>
			<td width="14%" bgcolor="#CCCCCC" class="ver_destaque_fundo_negrito"><div align="center">Editar</div></td>
			<td width="15%" bgcolor="#CCCCCC" class="ver_destaque_fundo_negrito"><div align="center">Apagar</div></td>
		  </tr>
		  <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  subcategoria.MoveNext()
Wend
%>
		</table>
	  
		<br /></td>
	</tr>
  </table>
</div>
<div id="contbarra"><img src="../imagens/topo/barra.jpg" alt="" width="1003" height="32" /></div>
</div>
</body>
</html>
<%
subcategoria.Close()
Set subcategoria = Nothing
%>
<%
categoria.Close()
Set categoria = Nothing
%>

Valew pela ajuda...

[Eduardo Villa 2]

Galera muito obrigado, mas quebrei um pouco a cabeça e consegui fazer o que eu queria...

Vou deixar o código para vocês verem o que usei:

 

<% If (subcategoria.Fields.Item("idcategoria").Value) = "1" Then

Response.Write("Galeria de Fotos")

ElseIf (subcategoria.Fields.Item("idcategoria").Value) = "2" Then

Response.Write("Notícias")

End If %>

 

Agora a cada CATEGORIA nova é só acrescentar o ID e o NOME que irá aparecer...

Valew pela ajuda

Dudesigner