Usuário com melhor resposta
duvidas recordset

Pergunta
-
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 ectalguem 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
Respostas
Todas as Respostas
-
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> -
-
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á... -
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 whileRs.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 VBScriptvc sabe o que fazer para arrumar??
-
-
-