Colorindo linhas de uma tabela de acordo com db

[kobutiii 0]

Seguinte galera, eu tenho uma tabela com dados de duplicatas de banco a negociar.

Alguns titulos estão em cartório, outros em aberto e outros para serem dado baixa.

Aí entra meu problema, o pessoal daqui do trampo, pediu pra eu alterar conforme a situação, botar a linha de uma cor diferente, então, eu tentei fazer uma verificação dos dados recebidos e fazer uma condição. Se for A bota tal cor e assim por diante.

 

Mas eu to meio enferrujado e não tenho a mínima idéia de como posso fazer isso... alguém pode me dar uma luz?

pensei em algo assim

 

cor = recordset(campo)

 

se cor = a então colorido = (a cor q eu escolher)

 

Só que aí está um prob, eu não sei como eu recebo um valor do record set, e eu não to conseguindo achar um meio de relacionar a linha inteira e não só o campo em si entende.

CODE

<link rel="stylesheet" href="css/estilo.css" type="text/css">

 

<%

 

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

objConexao.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\cobranca\data\data.mdb;Persist Security Info=False")

 

sql = "SELECT * from nBicbanco ORDER BY nVencimento"

 

Set rs = objConexao.execute(sql)

 

%>

<font face="Verdana">

<p align="center"><img src="img/bicbanco.bmp" height="50"/></p>

<table border="2" align="center">

 

<tr class="style1">

 

<td>Razão Social</td>

<td>Vencimento</td>

<td align="center">Valor</td>

<td>Banco</td>

<td>VD</td>

<td>Pedido</td>

<td>C/A/B</td>

<td>Filial</td>

<td nowrap>Observação</td>

 

</tr>

 

<%

 

rs.MoveFirst

 

Do While Not rs.eof

 

%>

 

<tr class="style2">

 

<td> <%=rs("nRazaosocial") %> </td>

<td align="center"><%=rs("nVencimento") %></td>

<td> <%=FormatCurrency(rs("nValor")) %> </td>

<td><%=rs("nBanco") %></td>

<td align="center"><%=rs("nVendedor") %></td>

<td><%=rs("nPedido") %></td>

<td align="center"><%=rs("nSituacao") %></td>

<td> <%=rs("nFilial") %> </td>

<td> <%=rs("nObservacao") %></td>

 

</tr>

<%

 

rs.MoveNext

 

Loop

 

%>

</table>

</font>

[DSerma 19]

If rs("Nome_do_campo") = "A" then
Cor = "CC0000"
End if

If rs("Nome_do_campo") = "B" then
Cor = "000AFF"
End if

Neste exemplo, estou verificando o conteudo do campo do BD, vindo pelo RecordSet (rs) e, de acordo com o seu valor, eu falo que a variavel "Cor" possui uma determinada String...

 

Entendeu a lógica ??

 

Abraços...

[Ted k' 126]

gosto muito de usar o CASE que é mais rápido, mais essa opção do if é boa tbm!!

[DSerma 19]

gosto muito de usar o CASE que é mais rápido, mais essa opção do if é boa tbm!!

Cara.. sinceramente eu nao vejo muita diferença de velocidade entre o Case e o IF....

 

Prefiro o IF, pois com ele, mesmo quem não manja muito de programação poderá entender o código mais facilmente... pq não é todo mundo que conhece o Case....

 

Mas beleza....

 

Abraços....

[kobutiii 0]

Então Darkdemo e Ted K

 

Valeu pela ajuda, mas é esse o ponto onde eu to emperrando, se eu buscar com esse código que você me passou ele dá erro, pq ele tah verificando 1 campo em si... mas na planilha eu tenho vários registros, então ele vai verificar esses vários registros entende... e quando eu coloco isso dentro do loop, ele dah erro....

[DSerma 19]

1) Que erro q ele da ??

2) Eu te falo que é IMPOSSIVEL esse código dar erro, pq eu sempre uso ele dentro do LOOP...

 

<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Bd\Cort.mdb")
Cliente = Request.QueryString("q")
Sql = "SELECT * FROM Tbl_Cliente WHERE Nome_Cliente LIKE '%" & Cliente & "%'"
Set Rs = Conn.Execute(Sql)

If NOT Rs.EOF Then

While NOT Rs.EOF

If Rs("Sexo") = "M" Then
Cor = "000AFF"
End if

If Rs("Sexo") = "F" Then
Cor = "CC0000"
End if
%>

<font color = "<%=Cor%>"><b> <%=Rs("Nome_Cliente")%></b>

<%
Rs.MoveNext
Wend
End if
%>

 

Um exemplo simples e que funciona...

 

Faça a adaptação para o que você precisa..

 

Abraços...