Ivan_puppets1 Postado Setembro 7, 2006 Denunciar Share Postado Setembro 7, 2006 Olha to com um problema aqui...........<% alunoid = Request.QueryString("ID") %> <% strConnection = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb") & ";" ' ATENÇÃO!! Lembre de inserir na linha acima o caminho correto para o seu arquivo MDB Set adoDataConn = Server.CreateObject("ADODB.Connection") adoDataConn.Open strConnection QNotas = "select * from notas, alunos, materias where notas.aluno =" & alunoid & "and notas.aluno = alunos.id" Set RS_Notas = adoDataConn.Execute(QNotas) %> <% Set rsNews = Server.CreateObject("ADODB.Recordset") rsNews.Open QNotas,strConnection %> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>Untitled Document</title> </head> <body> <p> <%if rsnews("recup") = unchecked then %> <%recup = "Recuperação"%> <%Else%> <%recup = "Direto"%> <%End If%> <%if rsnews("2recup") = unchecked then %> <%recup2 = "Recuperação"%> <%Else%> <%recup2 = "Direto"%> <%End If%> <%if not rsnews.eof then%> <%=rsnews("nome")%> <%=rsnews("serie")%> <%while not rsnews.eof%> <table width="200" border="1"> <tr> <td><%=rsnews("tarefas")%></td> <td><%=rsnews("apost")%></td> <td><%=rsnews("trab")%></td> <td><%=rsnews("emp")%></td> <td><%=rsnews("prova1")%></td> <td><%=rsnews("prova2")%></td> <td><%=rsnews("provao")%></td> <td><%=rsnews("faltas")%></td> <td><%=recup%></td> </tr> <tr> <td><%=rsnews("2tarefas")%></td> <td><%=rsnews("2apost")%></td> <td><%=rsnews("2trab")%></td> <td><%=rsnews("2emp")%></td> <td><%=rsnews("2prova1")%></td> <td><%=rsnews("2prova2")%></td> <td><%=rsnews("2provao")%></td> <td><%=rsnews("2faltas")%></td> <td><%=recup2%></td> </tr> </table> <%rsnews.movenext%> <%wend%> <%end if%> <% rs.Close Set rsnews = Nothing adodataconn.Close Set adodataconn = Nothing Qnotas.Close Set Qnotas = Nothing %>e quando vou ver, aparece os Records duplicados!!!!Tipo, aparecem 5 vezes o mesmo record, podem me ajuar ? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 kuroi Postado Setembro 8, 2006 Denunciar Share Postado Setembro 8, 2006 sera que não é porque os dados tão duplicados no banco não?? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Ivan_puppets1 Postado Setembro 8, 2006 Autor Denunciar Share Postado Setembro 8, 2006 Pior que não....................só tem os primeiros dados realmente, que será que é ? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 bareta Postado Setembro 8, 2006 Denunciar Share Postado Setembro 8, 2006 tenta assim...Olha to com um problema aqui...........<% alunoid = Request.QueryString("ID") %> <% strConnection = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb") & ";" ' ATENÇÃO!! Lembre de inserir na linha acima o caminho correto para o seu arquivo MDB Set adoDataConn = Server.CreateObject("ADODB.Connection") adoDataConn.Open strConnection QNotas = "select * from notas, alunos, materias where notas.aluno =" & alunoid & "and notas.aluno = alunos.id" Set RS_Notas = adoDataConn.Execute(QNotas) %> <% Set rsNews = Server.CreateObject("ADODB.Recordset") rsNews.Open QNotas,strConnection %> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>Untitled Document</title> </head> <body> <p> <%if not rsnews.eof then%> <%if rsnews("recup") = unchecked then %> <%recup = "Recuperação"%> <%Else%> <%recup = "Direto"%> <%End If%> <%if rsnews("2recup") = unchecked then %> <%recup2 = "Recuperação"%> <%Else%> <%recup2 = "Direto"%> <%End If%> <%=rsnews("nome")%> <%=rsnews("serie")%> <%while not rsnews.eof response.write "<br>"&rsnews("id")&"<br>"%> <table width="200" border="1"> <tr> <td><%=rsnews("tarefas")%></td> <td><%=rsnews("apost")%></td> <td><%=rsnews("trab")%></td> <td><%=rsnews("emp")%></td> <td><%=rsnews("prova1")%></td> <td><%=rsnews("prova2")%></td> <td><%=rsnews("provao")%></td> <td><%=rsnews("faltas")%></td> <td><%=recup%></td> </tr> <tr> <td><%=rsnews("2tarefas")%></td> <td><%=rsnews("2apost")%></td> <td><%=rsnews("2trab")%></td> <td><%=rsnews("2emp")%></td> <td><%=rsnews("2prova1")%></td> <td><%=rsnews("2prova2")%></td> <td><%=rsnews("2provao")%></td> <td><%=rsnews("2faltas")%></td> <td><%=recup2%></td> </tr> </table> <%rsnews.movenext%> <%wend%> <%end if%> <% rs.Close Set rsnews = Nothing adodataconn.Close Set adodataconn = Nothing Qnotas.Close Set Qnotas = Nothing %>e quando vou ver, aparece os Records duplicados!!!!Tipo, aparecem 5 vezes o mesmo record, podem me ajuar ? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Guest - Ivan_puppets - Postado Setembro 8, 2006 Denunciar Share Postado Setembro 8, 2006 Amigo, valeu, problema resolvido! Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Ivan_puppets1
Olha to com um problema aqui...........
<% alunoid = Request.QueryString("ID") %> <% strConnection = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb") & ";" ' ATENÇÃO!! Lembre de inserir na linha acima o caminho correto para o seu arquivo MDB Set adoDataConn = Server.CreateObject("ADODB.Connection") adoDataConn.Open strConnection QNotas = "select * from notas, alunos, materias where notas.aluno =" & alunoid & "and notas.aluno = alunos.id" Set RS_Notas = adoDataConn.Execute(QNotas) %> <% Set rsNews = Server.CreateObject("ADODB.Recordset") rsNews.Open QNotas,strConnection %> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>Untitled Document</title> </head> <body> <p> <%if rsnews("recup") = unchecked then %> <%recup = "Recuperação"%> <%Else%> <%recup = "Direto"%> <%End If%> <%if rsnews("2recup") = unchecked then %> <%recup2 = "Recuperação"%> <%Else%> <%recup2 = "Direto"%> <%End If%> <%if not rsnews.eof then%> <%=rsnews("nome")%> <%=rsnews("serie")%> <%while not rsnews.eof%> <table width="200" border="1"> <tr> <td><%=rsnews("tarefas")%></td> <td><%=rsnews("apost")%></td> <td><%=rsnews("trab")%></td> <td><%=rsnews("emp")%></td> <td><%=rsnews("prova1")%></td> <td><%=rsnews("prova2")%></td> <td><%=rsnews("provao")%></td> <td><%=rsnews("faltas")%></td> <td><%=recup%></td> </tr> <tr> <td><%=rsnews("2tarefas")%></td> <td><%=rsnews("2apost")%></td> <td><%=rsnews("2trab")%></td> <td><%=rsnews("2emp")%></td> <td><%=rsnews("2prova1")%></td> <td><%=rsnews("2prova2")%></td> <td><%=rsnews("2provao")%></td> <td><%=rsnews("2faltas")%></td> <td><%=recup2%></td> </tr> </table> <%rsnews.movenext%> <%wend%> <%end if%> <% rs.Close Set rsnews = Nothing adodataconn.Close Set adodataconn = Nothing Qnotas.Close Set Qnotas = Nothing %>e quando vou ver, aparece os Records duplicados!!!!
Tipo, aparecem 5 vezes o mesmo record, podem me ajuar ?
Link para o comentário
Compartilhar em outros sites
4 respostass a esta questão
Posts Recomendados
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.