Ir para conteúdo
Fórum Script Brasil

Bicicleta

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    570

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por Bicicleta

  6. Como Somar Valores Em Uma Consulta De Access

    em ASP

    Postado · Editado por Bicicleta

    Multiplica o valor pela quantidade e soma as variáveis criadas pela Andréia:

    <%

    totalProdutos = 0

    totalReal = 0

    While Not rs.EOF

    Response.Write rs("produto") & ": " & rs("quantidade") & " R$ " & rs("valor") & "<br>"

    totalProdutos = totalProdutos + CINT(rs("quantidade"))

    totalReal = totalReal + (CDBL(rs("valor")) * CINT(rs("quantidade")))

    rs.MoveNext

    Wend

    response.write "Total de Produtos: " & totalProdutos

    response.write "Total em R$: " & totalReal

    %>

    Abraço.

  7. Como Somar Valores Em Uma Consulta De Access

    em ASP

    Postado · Editado por Bicicleta

    "Valor Total em Mercadorias" e "Valor Total em R$" seriam a soma de quais colunas no BD?

    Quanto a isso:

    <%
For x = 1 to 100
If rs.eof then
Exit For
Else
%>


<% =rs("produto")%>: <% =rs("quantidade")%> R$ <% =rs("valor")%><br>

<%
rs.MoveNext
End If
Next
%>
    Substitua por: 
    <%
While Not rs.EOF
    Response.Write rs("produto") & ": " & rs("quantidade") & " R$ " & rs("valor") & "<br>"
    rs.MoveNext
Wend
%>

    Que terá o mesmo efeito.

  8. BOF EOF

    em ASP

    Postado · Editado por Bicicleta

    Kara, na linha 80 do que você postou ai não tem nada pra dar erro.

    Diga-nos qual a linha 80 do seu código pra ficar mais fácil...

    Editado: A linha 80 do que você postou é: "colu=colu+1" e isso não gera erro de registro não existente.

    Abraço.

  12. (Resolvido) Ler conteúdo de outra página HTML

    em ASP

    Postado 

    <%

Set xmlhttp = Server.CreateObject("Microsoft.XMLHTTP")
xmlhttp.Open "GET", "http://201.24.26.129/oimparcial/portal/noticias.php?id=22165", False
xmlhttp.setRequestHeader "ContentType","text/html"
xmlhttp.Send()

str_text = xmlhttp.ResponseText

int_ini = Instr(str_text, "<div class=""box"">")
int_fim = Instr(int_ini, str_text, "<strong>Leia mais:") - int_ini

Response.Write Mid(str_text, int_ini, int_fim)

%>

    Abraço.

  13. Erro no código. Ajudem!

    em ASP

    Postado · Editado por Bicicleta

    Tente dessa forma:

    <%

 Set Conexao = Server.CreateObject("ADODB.Connection")
 Conexao.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\clientes\digitalsub.com.br\wwwroot\bandas\operadoras.mdb"
 Conexao.Open

 arrTable = Array("Acre","Alagoas","Amapa","Amazonas","Bahia","Brasília","Ceará","Espirito Santo","Goiás","Maranhão","Mato Grosso","Mato Grosso do Sul","Minas Gerais","Pará","Paraíba","Paraná","Pernambuco","Piauí","Rio de Janeiro","Rio Grande do Sul","Rio Grande do Norte","Rondônia","Roraima","Santa Catarina","São Paulo","Sergipe","Tocatins")
 totalop  = 0

 For i = 0 TO UBound(arrTable)
     Set rs = Conexao.Execute("SELECT COUNT(Operadora) AS Mail FROM "& arrTable(i) &"")
     totalop = totalop + CDBL(rs("Mail"))
     rs.Close
     Set rs = Nothing
 Next

 Erase arrTable

 Conexao.Close
 Set Conexao = Nothing

 Response.Write "<b>Operadoras cadastradas:</b> " & totalop

 %>

    Porém o certo seria resumir todas essas tabelas em uma única, usar o COUNT junto com o GROUP BY para pegar o resultado em uma consulta apenas ao BD, ficaria bem mais rápido e prático. Mas se sua aplicação não permitir isso, tenta o código que postei acima, deve ajudar.

    Abraço.

  15. Rave Código de Barras Boleto bancário

    em Delphi, Kylix

    Postado

    Não tenho certeza, mais nos testes q andei fazendo esses dias com o Boleto do Itaú, utilizei o I2of5BarCode.

    Pra linha digitável não sair junto com o boleto, marque a opção PrintReadable como False. Aqui precisei marcar também a opção UseChecksum como True (não sei pra que serve), e pelo menos nos testes q andei fazendo o código de barras ficou igual um outro homologado q tenho aqui.

    PS.: Nos testes que fiz no Rave, não cheguei a testar no banco o boleto.

    abraço.

  16. Rave - DataMemo

    em Delphi, Kylix

    Postado · Editado por Bicicleta

    Olá.

    Estou usando o Rave Design para criar alguns relatórios, e através do TRvCustomConnection passo os dados que quero que seja impresso no relatório. Tudo está mais que perfeito, faço o relatório mil vezes mais rápido que no modo programado e tal...

    Porém uma dúvida que apareceu aqui, coloquei um DataMemo dentro de um DataBand, passo um texto pra esse DataMemo, é mostrado/impresso perfeitamente. Porém quando esse texto tem uma parte em negrito, o texto sai por cima um de outro, todo errado...

    Tirei um print-screen da visualização na tela pra entenderem melhor:

    http://img38.imageshack.us/img38/2377/erronegritorave.jpg

    Modo que passo isso para o Rave:

    arrRaveTeste[0,0]:= 'Lorem Ipsum is simply \bHello world\b0 text of the printing and typesetting industry. Lorem Ipsum has been the industrys standard dummy text ever since the 1500s, when an unknown printer took a galley.';

    Connection.WriteStrData('', arrRaveTeste[i,0]);

    Alguém tem idéia de como posso corrigir isso?

    PS.: A propriedade ContainsRTF do DataMemo está marcada como true.

    Abraço.

  20. Rave - Parâmetros

    em Delphi, Kylix

    Postado

    Também não deu.

    Se a opção First tiver desmarcada, nem na primeira página é escrito o valor do parâmetro...

    O que suponho que no bandstyle definimos qd vai ser executado aquilo, então marcando a opção New Page, dizemos que em uma nova página é para fazer a mesma coisa, porém ainda falta algo pra dizer "crie uma nova página, e pegue o valor dos novos parâmetros", algo assim...

    Estou quase crendo que não é possível isso... Será?

    abraço...

  22. Rave - Parâmetros

    em Delphi, Kylix

    Postado

    Olá Jhonas, valeu pela resposta.

    É o seguinte, desse modo que você passou, é o modo programado, forma que faço os relatórios atualmente, porém utilizando esse método de parâmetros, posso desenhar o formulário no modo visual, e então passar os valores da aplicação pro relatório apenas, qualquer alteração no modelo, fica muito mais fácil, pois basta abrir o Rave Designer, mover da forma que quiser e já tá certo, enquanto no modo programado, tenho que ficar reposicionando ítem por ítem, medida por medida manipulando o código, cada alteração no relatório precisaria recompilar toda a aplicação, e como são relatórios simples, esse é o modo mais prático (pelo menos ao meu ver)

    O que tá dando zica, é que desenho o relatório no Rave Design, qd chamo o mesmo pela aplicação, passo os parâmetros, porém quando esse relatório precisa ter 2 página, ai complica, não consigo fazer uma segunda página ser criada, ou seja, algo como:

    RvProject.SetParam('Titulo', Edit1.Text);

    RvProject.SetParam('Titulo', Edit2.Text);

    Se fizer isso, somente o Edit2.Text será mostrado no relatório, precisaria de algum método entre as duas linhas para dizer que é pra adicionar outra página, na página 1 ficar com o valor do Edit1 e na página 2 com o valor do Edit2.

    Será que é possível isso? Porque dessa forma a criação e alteração de relatórios simples seriam bem mais rápidos do que alterá-los ou criá-los pelo modo programado...

    Valeu!!!

  23. Rave - Parâmetros

    em Delphi, Kylix

    Postado

    Olá.

    Achei um modo interessante de gerar relatório no Rave utilizando parâmetros: http://www.delphibr.com.br/artigos/param_rave.php

    Assim posso desenhar o que preciso visualmente, e através da aplicação somente passar os parâmetros, isso ajuda muito e muito, pois os relatório são feitos bem mais rapidamente do que no modo programado.

    A questão é que tenho um campo texto na aplicação, que tem uma linha no formato: "texto da página1;texto da página2", separo a string pelo ; e usando o rave programado monto o relatório e gero duas páginas de relatório com

    - Na página 1: texto da página1

    - Na página 2: texto da página2

    De acordo com o artigo, posso fazer o relatório visualmente (adiantando um monte o lado), e passar os parâmetros para o arquivo .rav no momento de chamá-lo. Porém a questão é, como faço para gerar mais de 1 página nesse relatório utilizando essa técnica de parâmetros?

    PS.: Não vale falar pra criar duas páginas e passar duas variáveis diferentes, pois este relatório pode ter de 1 a 5 páginas, ou então de 1 a 8 páginas...

    Alguém dá uma luz "pelamor"...

    Valeu!!!

  24. Socket - COM+

    em ASP

    Postado

    Olá...

    Preciso fazer uma consulta a um determinado número IP/Porta utilizando socket, porém a comunicação deve obrigatoriamente ser feita através do Protocolo UDP ao invés de TCP...

    Encontrei 2 componentes (w3Sockets e AspSock) freewares para socket, porém eles só trabalham com o protocolo TCP, portanto não me ajudou em muita coisa...

    Alguém conhece algum componente de socket que trabalhe sobre o protocolo UDP, e que seja freeware???

    Valeu...

  25. Tamanho de Diretório

    em PHP

    Postado

    Olá Vampyro e Pedro Gaz...

    Então, o meu maior problema mesmo é com o tempo que levaria pra isso ser executado, porque tenho uns diretórios com 100kb que é rápido e também umas pastas com 5 GB que fica extremamente lento...

    Procurei e não achei nada, como trabalho mais com ASP temos o FSO (FileSystemObject) que faz isso e é bem mais rápido que somar um por um... O FSO é um componente COM, dai tive a idéia de tentar instanciar esse componente pelo PHP, procurei na Net e vi que dava certo, segue abaixo pra quem precisar:

    <?php 

$dir = "c:\\windows\\";

$fso = new COM("Scripting.FileSystemObject");
if ($fso->FolderExists($dir))
    echo $fso->GetFolder($dir)->size;
else
    echo '0';
$fso->Release();

?>

    Valeu pela atenção ae galera...

    Abraço!!!

×
×
  • Criar Novo...