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

Erro Ao Listar

joao.vanelli

Perguntado por joao.vanelli,

 Share

Pergunta

joao.vanelli

joao.vanelli

Postado
Postado

Olá pessoas

Estou fazendo uma pagina para listar conteudo, que o usuario seleciona em um menu suspenso e uma Text, só que esta dando erro

      <table border="0" width="100%">
        <!-- inicio -->
        <%
        	Dim DB,TB,sqlCantor,sqlAno,sqlGenero,refMenu,refText
        	
        	refMenu=Request.QueryString("ListarCD")
        	refText=Request.QueryString("ReferenciaCD")
        	
        	Set DB=Server.CreateObject("ADODB.Connection")
        	Set TB=Server.CreateObject("ADODB.Recordset")
        	DB.Open "DBQ=" & Server.MapPath("db/controle.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","",""
        	
        	if refMenu="Cantor" then
    sqlCantor="SELECT TBTtitulos.Cantor FROM TBTitulos WHERE Cantor LIKE '%"&refText&"'"
          TB=DB.Execute(sqlCantor)
        	end if
        	if refMenu="Ano" then
        sqlAno="SELECT TBTtitulos.Ano FROM TBTitulos WHERE (Ano LIKE '%"&refText&"')"
          TB=DB.Execute(sqlAno)
        	end if
  	if refMenu="Genero" then
    sqlGenero="SELECT TBTtitulos.Genero FROM TBTitulos WHERE (Genero LIKE '%"&refText&"')"
          TB=DB.Execute(sqlGenero)
        	end if
  	
        	Do While not TB.EOF     '****************** Aqui da o erro
        %>
        <tr>
          <td width="100%">
            <table border="0" width="100%">
              <tr>
                <td width="100%"><%=TB("Cantor")%></td>
              </tr>
              <tr>
                <td width="100%"><%=TB("Titulo")%></td>
              </tr>
              <tr>
                <td width="100%"><%=TB("Ano")%></td>
              </tr>
              <tr>
                <td width="100%"><%=TB("Produtora")%></td>
              </tr>
              <tr>
                <td width="100%"><%=TB("Genero")%></td>
              </tr>
              <tr>
                <td width="100%"><%=TB("QTDMusicas")%></td>
              </tr>
              <tr>
                <td width="100%">
            <hr>
                </td>
              </tr>
  <%
  	TB.MoveNext
  	Loop
  	
  	DB.Close
  	Set TB=Nothing
  	Set DB=Nothing
  %>
            </table>

E o erro é esse

ADODB.Recordset error '800a0e78'

Operation is not allowed when the object is closed.

/cd/acListar.asp, line 69

O banco não esta com a conexão aberta? porque esta dando o erro?

Falow huh.gif

Link para o comentário
Compartilhar em outros sites

7 respostass a esta questão

Posts Recomendados

  • 0
Bob Esponja

Bob Esponja

Postado
Postado

Mó distração..... tá marcado no código. tongue.gif

end if %>

<%  
Do While not TB.EOF %>
      
       <tr>
         <td width="100%">
           <table border="0" width="100%">
             <tr>
               <td width="100%"><%=TB("Cantor")%></td>
             </tr>
             <tr>
               <td width="100%"><%=TB("Titulo")%></td>
             </tr>
             <tr>
               <td width="100%"><%=TB("Ano")%></td>
             </tr>
             <tr>
               <td width="100%"><%=TB("Produtora")%></td>
             </tr>
             <tr>
               <td width="100%"><%=TB("Genero")%></td>
             </tr>
             <tr>
               <td width="100%"><%=TB("QTDMusicas")%></td>
             </tr>
             <tr>
               <td width="100%">
           <hr>
               </td>
             </tr>
 <%
  TB.MoveNext
  Loop
%>

Link para o comentário
Compartilhar em outros sites
  • 0
ursolouco

ursolouco

Postado
Postado 

<html>
<head>
<title></title>
</head>
<body>
<table border="0" width="100%">
<%
        
        refMenu=Trim(Request.QueryString("ListarCD"))
        refText=Trim(Request.QueryString("ReferenciaCD"))
        
        Set DB=Server.CreateObject("ADODB.Connection")
        Set TB=Server.CreateObject("ADODB.Recordset")
    cBanco = Server.MapPath("db/controle.mdb")
    strConn = "Provider = Microsoft.jet.oledb.4.0; Data Source = "& cBanco &";"
    DB.Open(strConn)
    'Abrindo o Banco
            
        
        If refMenu="Cantor" Then
      sqlCantor="SELECT TBTtitulos.Cantor FROM TBTitulos WHERE Cantor LIKE '%"&refText&"'"
      TB = DB.Execute(sqlCantor)
        End If
    
        if refMenu="Ano" then
      sqlAno="SELECT TBTtitulos.Ano FROM TBTitulos WHERE (Ano LIKE '%"&refText&"')"
      TB = DB.Execute(sqlAno)
        end if
    
    if refMenu="Genero" then
      sqlGenero="SELECT TBTtitulos.Genero FROM TBTitulos WHERE (Genero LIKE '%"&refText&"')"
      TB=DB.Execute(sqlGenero)
        end if
  
        While Not TB.EOF
       %>
       <tr>
         <td width="100%">
           <table border="0" width="100%">
             <tr>
               <td width="100%"><%=TB("Cantor")%></td>
             </tr>
             <tr>
               <td width="100%"><%=TB("Titulo")%></td>
             </tr>
             <tr>
               <td width="100%"><%=TB("Ano")%></td>
             </tr>
             <tr>
               <td width="100%"><%=TB("Produtora")%></td>
             </tr>
             <tr>
               <td width="100%"><%=TB("Genero")%></td>
             </tr>
             <tr>
               <td width="100%"><%=TB("QTDMusicas")%></td>
             </tr>
             <tr>
               <td width="100%">
           <hr>
               </td>
             </tr>
 <%
  TB.MoveNext
  Wend

	TB.Close
	Set TB = Nothing  
  DB.Close  
  Set DB=Nothing
 %>
           </table>
</body>
</html>

Experimenta aí...

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.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...