Alternando As Cores Da Tabela Na Exibiçao Do Bd

RINGO · Julho 21, 2004

Fala Galera,

Alguém pode me auxiliar com o codigo abaixo.

O Codigo abaixo verifica se existe informacao no banco de dados e mostra na pagina dentro da tabela

O que eu gostaria de fazer é o seguinte:

A primeira linha da tabela, ele me trazer de uma cor e a proxima linha de outra cor.

exemplo:

branco

azul

branco

azul

.... e assim por diante, conforme forem tendo informações no banco de dados.

Se alguém poder me auxiliar como fazer e quais os comando.

<TITLE>mostra_agenda.asp</TITLE>

</head>

<p>

<strong>EXCLUINDO DADOS DA TABELA - CLIENTES</strong>

</font>

</p>

<hr>

<%

'Para acesso sem um DSN fariamos

set conntemp=server.createobject("adodb.connection")

conntemp.open "DBQ=D:\inetpub\wwwroot\agenda.MDB;DRIVER={Microsoft Access Driver (*.mdb)}"

'Vamos selecionar somente os primeiros registros da tabela pois a tabela contem muitos registros

'Para isto criaremos uma instrução SQL que selecione somente os autores com Au_id menor que 12

aspSQL="select * from clientes"

set rstemp=conntemp.execute(aspSQL)

' verifica se há dados no recordset

If rstemp.eof then

response.write "Não há dados a exibir<br>"

response.write aspSQL & "<br>Não retorna informação alguma..."

connection.close

set connection=nothing

response.end

end if

%>

'Vamos usar código HTML para criar uma tabela e exibir nossos dados

<%

' Vamos dar nome aos cabeçalhos dos campos

response.write "<tr>"

'Percorremos

for each item in rstemp.fields

response.write "<td><B>" & item.name & "</B></TD>"

' Agora iremos exibir os dados do Recordset gerado pela consulta SQL

'Vamos percorrer o recordset até chegar no final do arquivo

DO UNTIL rstemp.eof

'atribuindo os valores dos campos as variáveis

Codigo=rstemp("codigo")

Nome=rstemp("nome")

Endereco=rstemp("endereco")

cidade=rstemp("Cidade")

estado=rstemp("estado")

cep=rstemp("cep")

' escrevendo os campos em uma tabela para exibição via um Browser

cellstart="<td align=""top"">"

response.write "<tr>"

response.write "<td>" & codigo & "</td>"

response.write "<td><a href=" & "altera_1.asp?id=" & codigo & ">" & nome & "</a></td>"

response.write "<td>" & Endereco & "</td>"

response.write "<td>" & Cidade & "</td>"

response.write "<td>" & Estado & "</td>"

response.write "<td>" & CEP & "</td>"

response.write "</tr>"

'move-se para próximo registro do recordset

rstemp.movenext

LOOP

%>

</table>

<%

' Fechamos o recordset e liberamos a memória usada

rstemp.close

set rstemp=nothing

conntemp.close

set conntemp=nothing

%>

<BR>

<a href="incluir.htm">INCLUIR</a>

<a href="excluir.asp">EXCLUIR</a>

</center>

</body></html>

cyberalexxx · Julho 22, 2004

Cara, isso é logica pura, e geralmente as logicas mais ridiculas são as que funcionam melhor:

Dei uma fuçada no seu codigo:

<html><head>
<TITLE>mostra_agenda.asp</TITLE>
</head>
<body bgcolor="aqua">
<center>
<p>
<font color="#004080" size="5">
<strong>EXCLUINDO DADOS DA TABELA - CLIENTES</strong>
</font>
</p>
<hr>
<%
'Para acesso sem um DSN fariamos
set conntemp=server.createobject("adodb.connection")
conntemp.open "DBQ=D:\inetpub\wwwroot\agenda.MDB;DRIVER={Microsoft Access Driver (*.mdb)}"
'Vamos selecionar somente os primeiros registros da tabela pois a tabela contem muitos registros
'Para isto criaremos uma instrução SQL que selecione somente os autores com Au_id menor que 12
aspSQL="select * from clientes"
set rstemp=conntemp.execute(aspSQL)
' verifica se há dados no recordset
If rstemp.eof then
response.write "Não há dados a exibir<br>"
response.write aspSQL & "<br>Não retorna informação alguma..."
connection.close
set connection=nothing
response.end
end if
%>
'Vamos usar código HTML para criar uma tabela e exibir nossos dados
<table border=1>
<%
'defina a variavel:
cor="0000FF"
' Vamos dar nome aos cabeçalhos dos campos
response.write "<tr>"
'Percorremos
for each item in rstemp.fields
response.write "<td bgcolor="#<%=cor%>"><B>" & item.name & "</B></TD>"
next
response.write "</tr>"
' Agora iremos exibir os dados do Recordset gerado pela consulta SQL
'Vamos percorrer o recordset até chegar no final do arquivo
DO UNTIL rstemp.eof
'atribuindo os valores dos campos as variáveis
Codigo=rstemp("codigo")
Nome=rstemp("nome")
Endereco=rstemp("endereco")
cidade=rstemp("Cidade")
estado=rstemp("estado")
cep=rstemp("cep")
olhacor="s"
if cor = "0000FF" then
   cor="FFFF00"
   olhacor="n"
end if
if olhacor="s" then
   if cor = "FFFF00" then
cor="0000FF"
   end if
end if
' escrevendo os campos em uma tabela para exibição via um Browser
cellstart="<td align=""top"">"
response.write "<tr>"
response.write "<td bgcolor="#<%=cor%>" & codigo & "</td>"
response.write "<td bgcolor="#<%=cor%>"<a href=" & "altera_1.asp?id=" & codigo & ">" & nome & "</a></td>"
response.write "<td bgcolor="#<%=cor%>" & Endereco & "</td>"
response.write "<td bgcolor="#<%=cor%>" & Cidade & "</td>"
response.write "<td bgcolor="#<%=cor%>" & Estado & "</td>"
response.write "<td bgcolor="#<%=cor%>" & CEP & "</td>"
response.write "</tr>"
'move-se para próximo registro do recordset
rstemp.movenext
LOOP
%>
</table>
<%
' Fechamos o recordset e liberamos a memória usada
rstemp.close
set rstemp=nothing
conntemp.close
set conntemp=nothing
%>
<BR>
<a href="incluir.htm">INCLUIR</a>
<a href="excluir.asp">EXCLUIR</a>
</center>
</body></html>

Qualquer coisa olha a logica aqui em um FOR NEXT que eu usei para teste:

<%
'defina a variavel:
cor="0000FF" 'azul%>
<body>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
<tr>
<%
'monte a tabela e insira uma linha para os titulos assim:
%>
<tr>
<td width="100%" bgcolor="#<%=cor%>"> 'vai sair o titulo com fundo azul
</tr>
<%x=0
for x=1 to 10
'quando você entrar no looping p/ listar os registros antes de mostra-los faça o seguinte:
olhacor="s"
if cor = "0000FF" then
   cor="FFFFFF"
   olhacor="n"
end if
if olhacor="s" then
   if cor = "FFFFFF" then
cor="0000FF"
   end if
end if%>
<tr>
<td width="100%" bgcolor="#<%=cor%>">Listando Linha
</tr>
<%next%>

Julho 23, 2004

Obrigado cyberalexxx

Valeu pela ajuda.

[ GuTo ] · Julho 24, 2004

Faço de outra forma!

Ex.:

<%For x = 1 to 10 Step 1
if x mod 2 = 0 then cor = "#FF0000" else cor = "#FFFF00"%>
<tr>
  <td bgcolor="<%=cor%>"></td>
</tr><%
Next%>

Entrar

Alternando As Cores Da Tabela Na Exibiçao Do Bd

Pergunta

RINGO

Link para o comentário

Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

cyberalexxx

Link para o comentário

Compartilhar em outros sites

Guest - Ringo -

Link para o comentário

Compartilhar em outros sites

[ GuTo ]

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades