Ir para conteúdo
Fórum Script Brasil

cyberalexxx

Membros
  • Total de itens

    2.500
  • Registro em

  • Última visita

Posts postados por cyberalexxx

  1. ENTAUM alguém AI SABE COMO FAÇO PARA SELECIONAR ATRAVES DO COD SQL.

    APENAS 50 REGISTRO DA TABELA..

    FALWS

    selecionar 50 registros:

    access:

    [/code]
    
    
    MySQL:
    
    [code]Select * from tabela LIMIT 0, 50

  2. achoq ue agora fica mais fácil de entende né? heheh

    se der pra dá uma mãe ae! o melhor, seria explicar o que é cada detalhe desse na conxão...ae posso modificcar ou entender melhor, tipo o que é pwd? o que é server? esse tipo de coisa...pode c?

    vlw ae!

    pwd (password) = Senha de acesso a base de dados

    server (servidor) = endereço ou IP do servidor, não coloque o endereço do banco somente o nome do servidor

  3. já tentou assim code:

    If cboSexo = "MASCULINO" Then

          varLog = Log(CDbl(variavel_txtTric) + CDbl(variavel_txtSiH) + CDbl(variavel_txtAb)) / Log(10)

          Resultado = FormatNumber(((4.95 / (1.17136 - (0.06706 * varLog)) - 4.5) * 100), 2)

          Response.write resultado

      End If

  4. da uma olhada se é isso:

    Set objRS8 = objDB.Execute ("SELECT * FROM xx where cdate(DATA) ='"& data_certa &"' ")

    If not objRS8.EOF Then

      datagestao=objrs8("data")

      dia=day(datagestao)

      mes=month(datagestao)

      ano=year(datagestao)

      data_certa_gestao = dia&"/"&mes&"/"&ano

      Do While Not objRS8.EOF

          response.write("<tr bgcolor=#FFFFFF>")

          Response.Write("<td bgcolor=#FFFFFF align=center>" & FormataData(data_certa_gestao) & "</td>")

          Response.Write("<td bgcolor=#FFFFFF align=>" & objRS8("requiredperiodo_1") & "</td>")

          Response.Write("<td bgcolor=#FFFFFF align=>" & objRS8("matricula_1") & "</td>")

          Response.Write("<td bgcolor=#FFFFFF align=center>" & objRS8("requiredrefeicao_1") & "</td>")

          Response.Write("<td bgcolor=#FFFFFF align=>" & objRS8("requiredGrupo") & "</td>")

          response.write("<tr>")

          objRS8.MoveNext

      Loop

    else

      Response.Write("<b>Não existe esta data no banco de dados Gestão</b>")

      objRS8.Close

      objDB.Close

      Set objRS8 = Nothing

      Set objDB = Nothing

    End If

    Set objRS5 = objDB.Execute ("SELECT * FROM xx where cdate(DATA) ='"& data_certa &"' ")

    If objRS5.EOF Then

    Response.Write("<b>Não existe esta data no banco de dados da Rede Local</b>")

    objRS5.Close

    objDB.Close

    Set objRS5 = Nothing

    Set objDB = Nothing

    Response.End

    End If

    datagestao=objrs5("data")

    dia=day(datagestao)

    mes=month(datagestao)

    ano=year(datagestao)

    data_certa_gestao = dia&"/"&mes&"/"&ano

    Do While Not objRS5.EOF

    response.write("<tr bgcolor=#FFFFFF>")

    Response.Write("<td bgcolor=#FFFFFF align=center>" & FormataData(data_certa_gestao) & "</td>")

    Response.Write("<td bgcolor=#FFFFFF align=>" & objRS5("requiredperiodo_1") & "</td>")

    Response.Write("<td bgcolor=#FFFFFF align=>" & objRS5("matricula_1") & "</td>")

    Response.Write("<td bgcolor=#FFFFFF align=center>" & objRS5("requiredrefeicao_1") & "</td>")

    Response.Write("<td bgcolor=#FFFFFF align=>" & objRS5("requiredGrupo") & "</td>")

    response.write("<tr>")

    objRS5.MoveNext

    Loop

    Response.Write("</table>")

    objRS5.Close

    Set objRS5 = Nothing

    end if

    %>

×
×
  • Criar Novo...