Ir para conteúdo
Fórum Script Brasil
  • 0

Observação


avontzdnb

Pergunta

Veio..

gostaria de saber como eu faço para colocar uma observação no primeiro campo a ser exibido

tipo

eu tenho um relatorio que exibe os campos da base de dados.e filtrar do maior para o menor

eu gostaria que no primeiro da lista ( o maior numero ), mostra-se uma observaçãoi.. sera que isso é possivel?

esta ai smile.gif

Link para o comentário
Compartilhar em outros sites

11 respostass a esta questão

Posts Recomendados

  • 0

tipo, mas seguinte...eu já tenho a classificação

tudu certinho

uso a validação do if mudando a variavel "x" para variavel que eu quero comparar?

if not rs.eof then

x=0

while not rs.eof

if x=0 then

response.write "<font color=red>"&rs("valor")&"</font><br>"

x=1

end if

wend

end if

coloquei isso.. e não deu certo

obs: eu já faço uma consulta nessa tabela para mostrar os valores

smile.gif

Link para o comentário
Compartilhar em outros sites

  • 0

você não esqueceu de colocar o ELSE ?

só acrescentando um detalhe no codigo que o bareta passou:

sql="select * from tabela order by valor desc"

set rs=conn.execute(sql)

if not rs.eof then

x=0

while not rs.eof

if x=0 then

response.write rs("valor") & " <font color=red>"&rs("valor")&"</font><br>"

x=1

else

response.write rs("valor")&"<br>"

end if

rs.movenext

wend

end if

rs.close

set rs=nothing

testei aqui e funcionou

Link para o comentário
Compartilhar em outros sites

  • 0

tipo.. essa é minha busca

<%

        codigo=request.querystring("msg")

    sql = "SELECT * FROM [respostas] WHERE  order by lance desc"

        Set res = Server.CreateObject("ADODB.Recordset")

        res.Open sql, conexao, 3, 3

    do while Not res.eof

    if res.fields("codigo") <> codigo then

    %>

pagina

<%

      end if

      res.MoveNext

      loop

      res.close

      set res = Nothing

      conexao.close

      Set Conn=Nothing

      %>

dai... ele mostra os dados da consulta.. e na ponta.. eu ponho somente a validação com IF, mas não funciona..

entendeu?

Link para o comentário
Compartilhar em outros sites

  • 0

Tenta assim:

<%

codigo=request.querystring("msg")

Set Conexao = Server.CreateObject("ADODB.Connection")

Conexao.Open "DBQ=CAMINHODAPASTA\NOMEBANCODEDADOS.mdb;Driver={Microsoft Access Driver (*.mdb)}"

sql = "SELECT * FROM [respostas] WHERE codigo = "& codigo &" order by lance desc"

set rs = conexao.execute(sql)

if not rs.eof then

x=0

while not rs.eof

if x=0 then

response.write rs("codigo") & " <font color=red> maior valor</font><br>"

x=1

else

response.write rs("codigo") & "<br>"

end if

rs.movenext

wend

end if

rs.close

set rs = Nothing

conexao.close

Set Conexao=Nothing

%>

não esqueça de mudar lá o caminho e o nome do BD

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...