Busca no Banco de Dados

[thiagobellusse 0]

Bom dia pessoal, estou precisando fazer uma busca no meu banco de dados, onde no formulário eu defino o cliente e na página de resultados traga os dados de tal cliente. Olhei em alguns fóruns, Google, porém não obtive uma resposta concreta, estou tentando fazer com a função where, mas me gera o seguinte erro:

Microsoft JET Database Engine erro '80040e07'

 

Tipo de dados imcompatível na expressão de critério.

 

/SistemaOnline/busca_resultado.asp, linha 12

 

Segue o código:

 

formulario.asp

<form name="form1" action="busca_resultado.asp" method="post" enctype="multipart/form-data">
<select name="categoria" id="id">
      <%
   'Iniciamos o Loop
    rscliente.AbsolutePage = intpagina 
    intrec = 0
    While intrec<rscliente.PageSize and not rscliente.eof  
%>
      <option value="<%=rscliente("id_cliente")%>"><%=rscliente("id_cliente")%></option>
      <%
    rscliente.MoveNext
    intrec = intrec + 1
    if rscliente.eof then 
       response.write " " 
    end if   
    Wend  
%>   
</select>
</form>

busca_resultado.asp

Set rsresultado = Server.CreateObject("ADODB.Recordset")
strresultado = "SELECT * FROM tab_clientes WHERE id_cliente  = '" & Request.Form("id_cliente") & "' "
        rsresultado.open strresultado, conexao, 3, 3

Alguém saberia onde esta meu erro?

Obrigado.

[Ted k' 126]

deixa assim:

strresultado = "SELECT * FROM tab_clientes WHERE id_cliente  = " & Request.Form("id_cliente")

especifique qual é a linha do erro!

[thiagobellusse 0]

Deu certo Ted K', o erro estava no meu formulário, ou seja, o formulário não estava passando os valores para a segunda página, por isso gerava o erro Tipo de dados imcompatível na expressão de critério, reestruturei o formulário e ele passou a enviar os dados para a consulta.

Muito obrigado pela força.

[xanburzum 169]

este erro acontece geralmente quando,tenta de inserir uma data no Access com 'delimitadores;

ou inserir uma data no SQL Server com # delimitadores; na tentativa de inserir uma data no Access ou o SQL Server sem delimitadores, ou tentativa de inserir um malformed data.

 

parabens por ter resolvido

 

você tb pode usar assim:

varid=Request.Form("id_cliente") 
strresultado = "SELECT * FROM tab_clientes WHERE id_cliente  = '" & varid & "' "  
      rsresultado.open strresultado, conexao, 1, 3