Ir ao conteúdo
  • Cadastre-se

Erro Ao Tentar Fazer Uma Consulta Com Asp


Felipe Silveira

Posts recomendados

Pessoal,

estou tendo o seguinte erro ao tentar fazer uma consulta em access usando ASP...:muro:

----------------------------------------------------------------------------------------

Error Type:

Microsoft JET Database Engine (0x80040E10)

No value given for one or more required parameters.

/aum/consultar/consultar_sr.asp, line 171

----------------------------------------------------------------------------------------

tenho a impressão que o problema não é nada sério, mas não estou conseguindo resolver sozinho...

estou fazendo a busca e direcionando o resultado da busca para uma tabela...

segue o código...


// Variaveis

var SQL_Busca, SQL_Itens;

SQL_Busca = "select * from status_reports";

SQL_Itens = ""



if(Request("form_consultor") != "")
{
if(SQL_Itens == "")
  SQL_Itens  = " consultor like '%"+Request("form_consultor")+"%'"
else
  SQL_Itens  += " and consultor like '%"+Request("form_consultor")+"%'"
}

if(Request("form_cliente") != "")
{
if(SQL_Itens == "")
  SQL_Itens  = " cliente like '%"+Request("form_cliente")+"%'"
else
  SQL_Itens  += " and cliente like '%"+Request("form_cliente")+"%'"
}

if(Request("form_projeto") != "")
{
if(SQL_Itens == "")
  SQL_Itens  = " projeto like '%"+Request("form_projeto")+"%'"
else
  SQL_Itens  += " and projeto like '%"+Request("form_projeto")+"%'"
}

if(Request("form_data") != "")
{
if(SQL_Itens == "")
  SQL_Itens  = " data like '%"+Request("form_data")+"%'"
else
  SQL_Itens  += " and data like '%"+Request("form_data")+"%'"
}

SQL_Busca = SQL_Busca + " where " + SQL_Itens

// where setor like '%"+Request("setor")+"%'"

// PARA TESTAR A BUSCA - Response.Write(SQL_Busca);


// RecordSet
var RS_Consulta = Server.CreateObject("ADODB.RecordSet");
RS_Consulta.Open(SQL_Busca,Conn);

if(RS_Consulta.EOF)
{
%>

              <tr bordercolor="#FFFFFF" bgcolor="#FFFFFF">
                 <td colspan="6" height="21">
                   <div align="right"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Não
                     foi encontrado nenhum registro.</font></div>
                 </td>
               </tr>
               <%
}
else
{

 while(!RS_Consulta.EOF)
 {
%>
               <tr>
                 <td height="21" width="103">
                   <div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><%= RS_Consulta.Fields.Item("consultor").value%></font></div>
                 </td>
                 <td width="79">
                   <div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><%= RS_Consulta.Fields.Item("projeto").value%></font></div>
                 </td>
                 <td width="74">
                   <div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><%= RS_Consulta.Fields.Item("cliente").value%></font></div>
                 </td>
                 <td width="99">
                   <div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><%= RS_Consulta.Fields.Item("resp_cliente").value%></font></div>
                 </td>
                 <td width="115">
                   <div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><%= RS_Consulta.Fields.Item("tasks_comp").value%></font></div>
                 </td>
                 <td width="57">
                   <div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><%= RS_Consulta.Fields.Item("tasks_incomp").value%></font></div>
                 </td>
                 <td width="135">
                   <div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><%= RS_Consulta.Fields.Item("tasks_day").value%></font></div>
                 </td>
                 <td width="116">
                   <div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><%= RS_Consulta.Fields.Item("data_ini").value%>
                     à <%= RS_Consulta.Fields.Item("data_fim").value%></font></div>
                 </td>
               </tr>
               <%
RS_Consulta.MoveNext();
  }
}
%>
               
             </table>
           </div>
         </td>
       </tr>
     </table>
   </td>
 </tr>
</table>

Agradeço qualquer ajuda,

Abraços,

Felipe Silveira

Link para o comentário
Compartilhar em outros sites

  • Membro VIP

É algum "Request" que não está trazendo o valor do Form anterior, fazendo com que a cláusula WHERE da instrução SQL receba uma variável nula ou vazia.

Daí o erro "No value given for one or more required parameters." (Nenhum valor foi informado para um ou mais parâmetros).

Veja na linha indicada (no caso, a linha 171) qual é o Request que está causando o problema.

B)

Link para o comentário
Compartilhar em outros sites

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...