duvidas recordset

Question

salve galera blz??

seguinte eu fiz um select que traz todos os id de cheque pra mim e valores deste mesmo cheques ele esta printando assim:

Id: 55 - Valor R$ 5,00 - Id: 56 - Valor: R$ 5,00 e ect

eu queria fazer um loop que mostrasse assim

Valor R$ 5,00 - Id: 55, 56, 57
Valor R$ 10,00 - Id: 80, 85 e ect

alguem pode me dar uma luz para fazer isto??

olha o meu codigo ae gente

<%
SqlIdCheque = "Select est.numero_cheque, est.valor_cheque "_
& "              From cheques_estoque est Join Cheques_emissao emi "_
& "                On emi.id_cheque = est.id_cheque "_
& "             Where emi.codigo = " & Rsdados("codigo") & " "_
& "      AND emi.data_emissao between '" & data_ini & "' and '" & data_fim & "' "
Set RsIdCheque = cnbanco.Execute(SqlIdCheque)

While Not RsIdCheque.EOF
%>
<strong>
<%=FormatCurrency(CDBL(RsIdCheque("valor_cheque")))%> -
</strong>
<%
Response.Write(RsIdcheque("numero_cheque") & ". ")

RsIdCheque.MoveNext
Wend

%>

vlw

Answer 1

Tiago;
Tenta algo assim:

While Not RsIdCheque.EOF
%>
<strong>
<%=FormatCurrency(CDBL(RsIdCheque("valor_cheque")))%> -
</strong>
<%
Response.Write(RsIdcheque("numero_cheque") & ". ")

%>
<br>
<%

RsIdCheque.MoveNext
%>

Basta vc colocar um <br> onde vc quer a querbra de linha.
Pode tbm fazer uma tabela, fica mais organizado,
Tipo assim:

<table>
<% while %>
<tr><td> <%=rs("id")%> </td><td> <%=rs("valor")%> </td></tr>
<% fim do while%>
</table>

Answer 2

naum é assim q eu quero que apareça e sim assim:

Valor R$ 5,00 - Id: 55, 56, 57
Valor R$ 10,00 - Id: 80, 85 e ect

ele esta apareçendo assim

5,00 - 55. 5,00 - 56. 5,00 - 57.

Answer 3

Tiago;
Vc quer agrupar os ids por valor? É isso?
Se for, acredito que vc vai precisar fazer um loop dentro do outro.

Seria algo mais ou menos assim.

1º recordset = "Select distinct valor from tabela"
while
Valor = <% rs=valor %>
 Id =
2º recordset
Select id valor from tabela where valor = (rs1=valor)
while
rs2(id)
end while
<br>
end while
Acho que algo assim funciona. a sintaxe está errada, mas o conceito acho que está certo (se eu entendí corretamente)
Primeiro select com um distinct e o segundo vc compara.
Tenta lá...

Answer 4

legal consegui fazer funcionar deste jeito, o unico é que este codigo todo ja esta dentro de outro loop, ou seja esta assim:

While Not Rs.EOF

1º recordset = "Select distinct valor from tabela"
while
Valor = <% rs=valor %>
 Id =
2º recordset
Select id valor from tabela where valor = (rs1=valor)
while
rs2(id)
end while
<br>
end while

Rs.MoveNext
Wend

---------------------
Ae esta apareçendo este erro no 2º recordset que seria este:
Select id valor from tabela where valor = (rs1=valor)

Erro de tempo de execução do Microsoft VBScript erro '800a01ca' 
A variável usa um tipo de automação sem suporte no VBScript

vc sabe o que fazer para arrumar??

Answer 5

Em que linha está dando esse erro?
Encontrei um pessoal que estava com o mesmo problema,
Dá uma olhada nesse port

http://www.imasters.com.br/forum/lofiversion/index.php/t14772.html

Answer 6

esta linha esta dando erro:Select id valor from tabela where valor = (rs1=valor)

acho q eu vou ter q mudar o meu query

Answer 7

Tenta mudar a query, talvez resolva o problema