Ir para conteúdo

Arquivado

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

jerfeson

Impimir enquanto tiver resultados

Recommended Posts

Caros colega, como posso fazer pra imprimir os dados de um banco de dados, enquanto tiver resultados,

sql = "SELECT * FROM CEN_PRT_ITEMSOLICITACAO WHERE CPFCNPJRequerido = 'VARIAVEL' "

SET sql = Server.CreateObject("ADODB.recordset")

objSelect.Open sql, objConn


response.write objSelect

A ideias é que os dados venham de um formulário, e ele imprima na tela enquanto tiver resultados

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá jerfeson, blza!

 

Com While, irá percorrer sua base de dados e, enquanto tiver registro eles serão exibidos.

 

Caso não encontre nenhum registro, será mostrado a mensagem: "nada encontrado"

<%
Dim sql
Set sql = dados.Execute("SELECT * FROM CEN_PRT_ITEMSOLICITACAO ")

While Not sql.EOF

If sql("nome") <> "" Then

Response.Write "<table>"
Response.Write "<tr>"
Response.Write "<td>"

Response.Write(sql("nome"))

Response.Write "</td>"
Response.Write "</tr>"
Response.Write "</table>"


Else

Response.Write "Nada encontrado"

Response.Write "<br>"

End If

sql.MoveNext
Wend

listar.Close
Set sql = Nothing
%>

Basta você adaptar para sua necessidade.

 

Espero ter ajudado,

 

vlw

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá jerfeson, blza!

 

Com While, irá percorrer sua base de dados e, enquanto tiver registro eles serão exibidos.

 

Caso não encontre nenhum registro, será mostrado a mensagem: "nada encontrado"

<%
Dim sql
Set sql = dados.Execute("SELECT * FROM CEN_PRT_ITEMSOLICITACAO ")

While Not sql.EOF

If sql("nome") <> "" Then

Response.Write "<table>"
Response.Write "<tr>"
Response.Write "<td>"

Response.Write(sql("nome"))

Response.Write "</td>"
Response.Write "</tr>"
Response.Write "</table>"


Else

Response.Write "Nada encontrado"

Response.Write "<br>"

End If

sql.MoveNext
Wend

listar.Close
Set sql = Nothing
%>

Basta você adaptar para sua necessidade.

 

Espero ter ajudado,

 

vlw

sql("nome") é a coluna ?

Compartilhar este post


Link para o post
Compartilhar em outros sites

Isso, nome é a coluna.

 

Vc poderá trocar e por as suas

Compartilhar este post


Link para o post
Compartilhar em outros sites

Isso, nome é a coluna.

 

você poderá trocar e por as suas

Cara até fiz aqui, mas ele fica só aguardando resposta e não mostra nem um dado...

Set sql = dados.Execute("SELECT TOP 10 * FROM CEN_PRT_ITEMSOLICITACAO ")

While Not sql.EOF

If sql("NomeRequerido") <> "" Then

Response.Write "<table>"
Response.Write "<tr>"
Response.Write "<td>"

Response.Write(sql("NomeRequerido"))

Response.Write "</td>"
Response.Write "</tr>"
Response.Write "</table>"


Else

Response.Write "Nada encontrado"

Response.Write "<br>"

End If

sql.MoveNext
Wend

objConn.close
SET objConn = Nothing

Compartilhar este post


Link para o post
Compartilhar em outros sites

1) você está usando TOP 10 - Qual é seu banco de dados, pois dependendo de sua base de dados é outra sintaxe.

 

http://www.devmedia.com.br/select-top-em-varios-sgbds/25560

 

 

2)

sql.MoveNext
Wend

sql.close
SET sql = Nothing

Eu fiz um teste rápido aqui e roda os registro.

<!--#include file="conexao.asp"-->

<%
Dim sql
Set sql = DeveSerIgualaSuaConexao.Execute("SELECT * FROM CEN_PRT_ITEMSOLICITACAO ")

While Not sql.EOF

If sql("NomeRequerido") <> "" Then

Response.Write "<table>"
Response.Write "<tr>"
Response.Write "<td>"

Response.Write(sql("NomeRequerido"))

Response.Write "</td>"
Response.Write "</tr>"
Response.Write "</table>"


Else

Response.Write "Nada encontrado"

Response.Write "<br>"

End If

sql.MoveNext
Wend

sql.Close
Set sql = Nothing
%>

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.