Ir para conteúdo

POWERED BY:

Arquivado

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

Eduardo Villa

[Resolvido] Problemas Ao Buscar Dados No Banco...

Por , em ASP Clássico

Recommended Posts

Eduardo Villa    2

Eduardo Villa
Postado

Olá Galera, td bem???

Estou tendo um problema, ao buscar dados do banco ACCESS...

A tabela está aparecendo assim:

Imagem Postada

 

Quando o certo é aparecer assim:

Imagem Postada

 

Postei o código para ficar mais fácil...

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
'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 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
%>

<%
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
%>
<%
Dim categoria1
Dim categoria1_cmd
Dim categoria1_numRows

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

Set categoria1 = categoria1_cmd.Execute
categoria1_numRows = 0
%>
<%
Dim categoria2
Dim categoria2_cmd
Dim categoria2_numRows

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

Set categoria2 = categoria2_cmd.Execute
categoria2_numRows = 0
%>
<%
Dim categoria3
Dim categoria3_cmd
Dim categoria3_numRows

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

Set categoria3 = categoria3_cmd.Execute
categoria3_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 "status", "STRING_TYPE", "POST", "status", ""
ins_subcategoria.addColumn "data", "DATE_TYPE", "POST", "data", ""
ins_subcategoria.setPrimaryKey "idsubcategoria", "NUMERIC_TYPE", "", ""
%><%
'Execute all the registered transactions
tNGs.executeTransactions
%><%
'Get the transaction recordset
Dim rssubcategoria
Dim rssubcategoria_numRows

Set rssubcategoria = tNGs.getRecordset("subcategoria")
rssubcategoria_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
subcategoria_numRows = subcategoria_numRows + Repeat1__numRows
%>

<!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 - Lista de Subcategoria ::..</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>

</head>

<body>


<div id="contexto">
  <table width="770" height="28" 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" height="14" bordercolor="#990000" bgcolor="#990000" class="menu_topo_branco"> Subcategoria</td>
	  <td width="52" height="14" bordercolor="#990000" bgcolor="#990000" class="menu_topo_branco"><a href="<%= MM_Logout %>">Sair</a></td>
	</tr>
	<tr>
	  <td height="14" colspan="3" bordercolor="#000000" bgcolor="#d4d4d4" class="menu_topo_branco"><br />
	  <br />
<%
	Response.Write tNGs.getErrorMsg()
%>
<form method="post" id="form1" action="<%= KT_escapeAttribute(KT_getFullUri()) %>">
  <table width="450" align="center" cellpadding="2" cellspacing="0" class="KT_tngtable">
	<tr>
	  <td class="item_tabela_cadastro"><label for="idcategoria">Categoria:</label></td>
	  <td><select name="idcategoria" class="ver_destaque_fundo_negrito" id="idcategoria">
		<%
While (NOT categoria3.EOF)
%>
		<option value="<%=(categoria3.Fields.Item("idcategoria").Value)%>" <%If (Not isNull((rssubcategoria.Fields.Item("idcategoria").Value))) Then If (CStr(categoria3.Fields.Item("idcategoria").Value) = CStr((rssubcategoria.Fields.Item("idcategoria").Value))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(KT_escapeAttribute(categoria3.Fields.Item("categoria").Value))%></option>
		<%
  categoria3.MoveNext()
Wend
If (categoria3.CursorType > 0) Then
  categoria3.MoveFirst
Else
  categoria3.Requery
End If
%>
	  </select>
		  <span class="ver_destaque_fundo_claro"><%=(tNGs.displayFieldError("subcategoria", "idcategoria"))%> </span></td>
	</tr>
	<tr>
	  <td class="item_tabela_cadastro"><label for="subcategoria">Subcategoria:</label></td>
	  <td><input name="subcategoria" type="text" class="ver_destaque_fundo_negrito" id="subcategoria" value="<%=(KT_escapeAttribute(rssubcategoria.Fields.Item("subcategoria").Value))%>" size="32" />
		  <span class="ver_destaque_fundo_claro"><%=(tNGs.displayFieldHint("subcategoria"))%> <%=(tNGs.displayFieldError("subcategoria", "subcategoria"))%> </span></td>
	</tr>
	<tr>
	  <td class="item_tabela_cadastro"><label for="titulo">Titulo:</label></td>
	  <td><input name="titulo" type="text" class="ver_destaque_fundo_negrito" id="titulo" value="<%=(KT_escapeAttribute(rssubcategoria.Fields.Item("titulo").Value))%>" size="32" />
		  <span class="ver_destaque_fundo_claro"><%=(tNGs.displayFieldHint("titulo"))%> <%=(tNGs.displayFieldError("subcategoria", "titulo"))%> </span></td>
	</tr>
	<tr>
	  <td class="item_tabela_cadastro"><label for="descricao">Descrição:</label></td>
	  <td><textarea name="descricao" cols="50" rows="5" class="ver_destaque_fundo_negrito" id="descricao"><%=(KT_escapeAttribute(rssubcategoria.Fields.Item("descricao").Value))%></textarea>
		  <span class="ver_destaque_fundo_claro"><%=(tNGs.displayFieldHint("descricao"))%> <%=(tNGs.displayFieldError("subcategoria", "descricao"))%> </span></td>
	</tr>
	<tr>
	  <td class="item_tabela_cadastro"><label for="status">Status:</label></td>
	  <td><select name="status" class="ver_destaque_fundo_negrito" 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>
		  <span class="ver_destaque_fundo_claro"><%=(tNGs.displayFieldError("subcategoria", "status"))%></span> </td>
	</tr>
	<tr class="KT_buttons">
	  <td colspan="2"><input name="KT_Insert1" type="submit" class="itens_navegacao" id="KT_Insert1" value="Salvar" /></td>
	</tr>
  </table>
  <input type="hidden" name="data" id="data" value="<%=(KT_formatDate(rssubcategoria.Fields.Item("data").Value))%>" />
</form>
<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">

****** AQUI É PRA APARECER O NOME DA CATEGORIA... ******

	</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"><a href="alt_subcategoria.asp?idsubcategoria=<%=(subcategoria.Fields.Item("idsubcategoria").Value)%>">Editar</a></div></td>
	<td width="15%" bgcolor="#CCCCCC" class="ver_destaque_fundo_negrito"><div align="center"><a href="exc_subcategoria.asp?idsubcategoria=<%=(subcategoria.Fields.Item("idsubcategoria").Value)%>">Apagar</a></div></td>
  </tr>
  <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  subcategoria.MoveNext()
Wend
%>
</table>
<br />
<br />
  
	  <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
%>
<%
categoria1.Close()
Set categoria1 = Nothing
%>
<%
categoria2.Close()
Set categoria2 = Nothing
%>
<%
categoria3.Close()
Set categoria3 = Nothing
%>
<%
categoria.Close()
Set categoria = Nothing
%>

Valew...

Agurado Resposta

Dudesigner

Compartilhar este post

Link para o post
Compartilhar em outros sites

Eduardo Villa    2

Eduardo Villa
Postado

Olá aguinaldoaranda,

 

É simples, na coluna Categoria coloquei um <%= categoria("categoria") %> mas ele esta buscando tudo como GALERIA DE FOTOS[iD=1, categoria.("idcategoria")], sendo que tem alguns que teria que aparecer NOTÍCIAS[iD=2, categoria.("idcategoria")]...

 

Pensei em fazer algo assim:

<% If categoria("idcategoria") = "1" Then

Response.White("Galeria de Fotos")

End If %>

 

Mas continuou dando errado (mostrando só GALERIA DE FOTOS)

 

Valew

Compartilhar este post

Link para o post
Compartilhar em outros sites

Jow Xavier    0

Jow Xavier
Postado

você quer fazer uma busca por categorias é isso ::: se for você tem q especificar na sql tipo ...

 

SELECT * FROM tabela categorias

Se essa busca tiver um valor p/ a pesquisa é só acrescentar um WHERE + o valor ...

 

SELECT * FROM tabela categorias WHERE campo = '"&valor&"'

Ñ sei se é isso q você precisa ... Pois ñ entendi legal o seu post ...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Cesão    1

Cesão
Postado

Amigo, é que você está fazendo select das duas tabelas separadamente. você tem que fazer um select relacionado, e no caso, com relacionamento INNER JOIN.

 

Me passe a estrutura da sua tabela de categorias e da sua tabela de subcategorias p gente poder ter uma noção de como te ajudar nesse select.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Eduardo Villa    2

Eduardo Villa
Postado

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

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