Loop Sem Repetir Alguns Campos

tntgui · Junho 15, 2005

Estou precisando fazer um loop (While), mas sem que repita alguns campos. Por exemplo: Tenho os campos de Matrícula, Nome, Cargo, Data do Exame1, Exame1, Data do Exame2 e Exame2.

Faço uma busca no banco por esses funcionarios que tem exames e quais são esses exames.

Na hora de exibir, Tenho que mostrar o nome, a matricuala e o cargo apenas uma vez, e os exames, nas linhas abaixo e nas respectivas células.

Estou com problemas, pois não está mostrando os exames na mesma linha. Mostra o Exame1 e na linha de baixo o exame 2 e depois o exame1 (se tiver) e assim por diante...

Como resolver esse problema?

Poderia me mostrar a sintaxe de uma conexão com o banco e o loop?

Obrigado!

fantasma · Junho 15, 2005

%>

Dim iCount

Dim sRowColor

Dim objDB

Dim objRS

Dim sDBName

'TODO: Verify database path...

sDBName = "driver={Microsoft Access Driver (*.mdb)};dbq=C:\banco.mdb"

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

objDB.Open sDBName

'TODO: Modify the next line to only return the records you want...

Set objRS = objDB.Execute("select from tababela order by data desc ")

Response.Write("<html>")

Response.Write("<head>")

Response.Write("<title></title>")

Response.Write("</head>")

Response.Write("<body bgcolor=#ffffff>")

Response.Write("<h3><center><font color=red>**** Esta Listando os 15 Ultimos Chamados ****</font></center></h3>")

Response.Write("<h2>Lista dos Chamados Diário de Bordo</h2>")

If objRS.EOF Then

Response.Write("<b>No matching records found.</b>")

objRS.Close

objDB.Close

Set objRS = Nothing

Set objDB = Nothing

Response.End

End If

Response.Write("<center><table width=650 cellspacing=1 cellpadding=1 bgcolor=#000000>")

Response.Write("<tr bgcolor=silver>")

Response.Write("<th filter=ALL><font color=red size=1 face=verdana>nome</th>")

Response.Write("<th filter=ALL><font color=red size=1 face=verdana>Nome </th>")

Response.Write("<th filter=ALL><font color=red size=1 face=verdana>matricula</th>")

Response.Write("<th filter=ALL><font color=red size=1 face=verdana>cargo</th>")

Response.Write("</tr>")

Do While Not objRS.EOF

iCount = iCount + 1

If iCount Mod 2 = 0 Then

sRowColor = "skyblue"

Else

sRowColor = "#C4CEE5"

End If

status= objRS("status")

if status="Aberto" then

sRowColor = "FF3366 "

end if

Response.Write("<tr bgcolor=" & sRowColor & ">")

Response.Write("<td><font size=1 face=verdana>" & objRS("nome") & "</td>")

Response.Write("<td><font size=1 face=verdana>" & objRS("matricula") & "</td>")

Response.Write("<td><font size=1 face=verdana>" & objRS("cargo") & "</td>")

Response.Write("</tr>")

objRS.MoveNext

Loop

Response.Write("</table>")

Response.Write("</body>")

Response.Write("</html>")

objRS.Close

objDB.Close

Set objRS = Nothing

Set objDB = Nothing

%>

ve se ajuda este codigo

dilouco · Junho 16, 2005

só colocar antes do loop a linha com os titulos

'exemplo

'----------------------------------------------------------------------------------

Response.Write("<table>")

Response.write("<tr><td>Nome</td><td>Telfone</td></tr>")

While not Rs.EOF Then

Response.Write("<tr><td>"&Rs("nome")&"</td><td>"&Rs("telefone")&"</td></tr>")

Rs.MoveNext

Wend

Response.Write("</table>")

'----------------------------------------------------------------------------------

Entrar

Loop Sem Repetir Alguns Campos

Pergunta

tntgui

Link para o comentário

Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

fantasma

Link para o comentário

Compartilhar em outros sites

dilouco

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades