Ir para conteúdo

POWERED BY:

Arquivado

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

marcelo.ocean

Asp+Access+Developer Toolkit do Dreamweaver

Por , em ASP Clássico

Recommended Posts

marcelo.ocean    0

marcelo.ocean
Postado

Senhores, estou desenvolvendo um sistema simples de exibição de promoções da minha empresa com ASP e banco de dados Access (até onde meu conhecimento alcança) através do Developer Toolkit do Dreamweaver, mas esbarrei em um problema.

Quero exibir todos os dados da tabela, mas na maneira que encontrei só consigo exibir o último registro arquivado.

Já busquei informações de EOF mas ainda não consegui resultados, estamos em um evento externo e gostaria de que funcionasse hoje ainda devido as promoções locais.

 

Peço ajuda, segue código abaixo:

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../Connections/bancodedados.asp" -->
<!--#include file="../includes/tNG/tNG.inc.asp" -->
<%
Dim listar
Dim listar_cmd
Dim listar_numRows

Set listar_cmd = Server.CreateObject ("ADODB.Command")
listar_cmd.ActiveConnection = MM_bancodedados_STRING
listar_cmd.CommandText = "SELECT * FROM tabela"
listar_cmd.Prepared = true

Set listar = listar_cmd.Execute
listar_numRows = 0
%>
<!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>Cruzeiros</title>
</head>

<body>
<%=(listar.Fields.Item("tittle").Value)%>
<br />
<%=(listar.Fields.Item("notes").Value)%><br />
<img src="<%=tNG_showDynamicImage("../", "../admin/imgs/", "{listar.pic}")%>" />
<br>
<%=(listar.Fields.Item("link").Value)%>
</body>
</html>
<%
listar.Close()
Set listar = Nothing
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

augustoclaro    2

augustoclaro
Postado

Olá. Primeiro: ao invés de usar <%=(listar.Fields.Item("link").Value)%>, use simplesmente <%=listar("link")%>

 

Vou dar um exemplo do que você precisa

 


<%
set conn = server.createobject("adodb.connection")
set rs = server.createobject("adodb.recordset")
conn_str = "driver={microsoft access driver (*.mdb)};DBQ="&server.mappath("dados/banco.mdb")
conn.open conn_str
sql = "select * from tabela"
rs.open sql,conn,3,3
if rs.eof then
response.write "Não há registros."
else
do until rs.eof
%>
<%=rs("campo")%><br />
<%=rs("campo")%><br />
<%=rs("campo")%><br />
<%=rs("campo")%><br />
<%
rs.movenext
loop
end if
rs.close
conn.close
%>

Apenas adapte para as suas necessidades.

 

Espero ter ajudado.

Compartilhar este post

Link para o post
Compartilhar em outros sites

marcelo.ocean    0

marcelo.ocean
Postado

Beleza Augusto, vou testar aqui... já estou com a cabeça a mil, mas tudo sempre ajuda.

Obrigado a atenção, qualquer coisa eu grito novamente.

 

Abs.

 

Na verdade não deu muito certo não, ele só deu erros aqui...

 

Enfim, pensei em uma saída não sei se alguém consegue me ajudar:

 

Tenho uma pagina que se liga ao banco e grava informações;

Tenho uma que gera os resultados, ou pelo menos o último deles...

 

É possível um componente dentro desse toolkit que seja como um combo, ou ate mesmo uma listagem que aponte para um determinado registro quando selecionado?

 

Grato.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

olha este link vai te ajudar

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