none
duvidas recordset RRS feed

  • 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 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

    terça-feira, 31 de outubro de 2006 19:25

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>


    terça-feira, 31 de outubro de 2006 19:42
  • 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.

    terça-feira, 31 de outubro de 2006 20:45
  • 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á...

    terça-feira, 31 de outubro de 2006 21:00
  • 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??

    quarta-feira, 1 de novembro de 2006 12:15
  • 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
    quarta-feira, 1 de novembro de 2006 13:24
  • esta linha esta dando erro:Select id valor from tabela where valor = (rs1=valor)

    acho q eu vou ter q mudar o meu query

    quarta-feira, 1 de novembro de 2006 16:11
  • Tenta mudar a query, talvez resolva o problema
    quarta-feira, 1 de novembro de 2006 16:56