Ir para conteúdo
Fórum Script Brasil

cyberalexxx

Membros
  • Total de itens

    2.500
  • Registro em

  • Última visita

Posts postados por cyberalexxx

  1. Toma ai!!

    SELECT id, data, Central, max(QtdeCadastrosAprov)
    FROM contrdiariooperadoras
    where data=(SELECT max(data)
    FROM contrdiariooperadoras)
    group by central
    order by max(QtdeCadastrosAprov) DESC

  2. não vejo vantagem entre uma linguagem e outra.

    Cabe a voce identificar qual lhe agrada mais e se dedicar, pois com as duas voce faz a mesma coisa vai de voce desenvolver.

  3. SELECT data, central, Operadora, MAX(QtdeCadastrosAprov)
    FROM contrdiariooperadoras WHERE mes = 'abril/05' 
    AND data = (select max(data) 
    FROM contrdiariooperadoras 
    WHERE mes = 'abril/05') 
    GROUP BY central
    ORDER BY MAX(QtdeCadastrosAprov) DESC 

    ixe , eu já tinha tentando isso acho ele dá erro de sintaxe....

    simulei aki e não da erro não

  4. SELECT data, central, Operadora, MAX(QtdeCadastrosAprov)
    FROM contrdiariooperadoras WHERE mes = 'abril/05' 
    AND data = (select max(data) 
    FROM contrdiariooperadoras 
    WHERE mes = 'abril/05') 
    GROUP BY central
    ORDER BY MAX(QtdeCadastrosAprov) DESC 

  5. Pequeno exemplo que eu fiz pra alguém aki do forum esses tempos:

    <%frase="eu gosto de eu gosto de"
    laco=split(frase,chr(32))
    x = 0
    dim buscadas
    considera = true
    buscadas = array()
    for each palavra in laco
         if x > 0 then
            for each palavra2 in buscadas
               if palavra = palavra2 then
                  considera = false
               end if
            next
            if considera = true then
               redim preserve buscadas(Ubound(buscadas)+1)
               buscadas(Ubound(buscadas)) = palavra
            end if
         else
            redim preserve buscadas(Ubound(buscadas)+1)
            buscadas(Ubound(buscadas)) = palavra
            x = x + 1
         end if
         considera = true
    next
    Response.write "Palavras sem repetir: "
    for each palavra in buscadas
       response.write palavra & ", "
    next
    %>

  6. faz assim:

    <%
    Set Conexao = Server.CreateObject("ADODB.Connection")
    Conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ= " & server.mappath("bdintranet.mdb")
    ComandoSQL = "SELECT * FROM email WHERE nome LIKE '%" + Replace(Request.Form("nome"), "'", "''") + "%'"
    Set bd = Conexao.Execute(ComandoSQL)
    
    Do while not bd.Eof
       nome = bd("nome")
       email = bd("email")
    %>
    <div align="center"><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%Response.Write nome & "<br>"%> </font></strong></font></div>
    <%bd.MoveNext
    loop
    %>

×
×
  • Criar Novo...