Pesquisa ASP / Access

[Igormkt 0]

Estou desenvolvendo um sistema em ASP e Access e não estou conseguindo realizar uma pesquisa.

funciona assim:

O usuario digita o codigo do que deseja procura em uma caixa de texto e abaixo aparece somente os registros com aquele código.

Qual a expressão em sql que eu utilizo já que ele tem que buscar o resultado igual a de string.

 

O código está assim:

 

 

 

strURL = Request.ServerVariables("URL")

strSearch = Request.QueryString("search")

%>

<title>Pesquisa</title>
<p> </p>
<div align="center">
  <table width="36%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#F2FFF2">
	<tr>
	  <td><table width="100%" border="0" cellspacing="2" cellpadding="2">
  <tr>
			<td bgcolor="#FFFFFF"><table width="44%" border="0" align="center" cellpadding="2" cellspacing="2">
  <tr align="center"> 
				  <td bgcolor="#f5f5f5" width="35%"> <div align="center"><font color="#000099"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><font color="#CCCCCC"><a href="form_inclusao.asp">Incluir</a></font></font></b></font></div></td>
				  <td bgcolor="#f5f5f5" width="30%"> <div align="center"><font color="#000099"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="form_exclui.asp" class="menu">Excluir</a></font></b></font></div></td>
				  <td width="18%" bgcolor="#f5f5f5"> <div align="center"><font color="#000099"><b><font color="#999999" size="2" face="Verdana, Arial, Helvetica, sans-serif">Pesquisar</font></b></font></div></td>
				  <td bgcolor="#f5f5f5" width="35%"> <div align="center"><font color="#000099"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#CCCCCC"><a href="escolhe_pra_auterar.asp" class="menu">Alterar</a></font></b></font></div></td>
			  </tr>
			  </table>
			  <p align="center"><FONT color=royalblue face=Tahoma><STRONG>
			  <font color="#0000FF" size="2">
			  </font></STRONG></FONT>
			  
			  [b]<form action="<%= strURL %>" method="get">
			  <div align="center"> 
				<input name="search" value="<%= strSearch %>" size="20" />
				<input name="submit" type="submit" value="Pesquisar" />
			  </div>
			  </form>  [/b]				
			<%
If strSearch <> "" Then

	   	strDBPath = "E:\home\escolinhadomax1\dados\bdmax.mdb"
		
Const adUseClient = 3
	
	Set cnnSearch = Server.CreateObject("ADODB.Connection")
	
cnnSearch.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"
cnnSearch.CursorLocation = adUseClient

[b]strSQL = "SELECT cod, num, descricao, ok " _
		& "FROM objetivos;"[/b]		
		  


	Set rstSearch = cnnSearch.Execute(strSQL)
	'intContador = rstSearch.RecordCount
	
	%>
			  </p>
			  
	  </td>
	  </tr>
	   
	  <table width="757" height="50" border="0" align="center">
		  <tr bgcolor="#0000CC">
			<td width="24"><div align="center"><strong><font face="Tahoma" size="2" color="#FFFF00"></font></strong><font color=royalblue face=Tahoma size=2><strong><font color="#FFFF00">Cod</font></strong></font></div></td>
			<td width="35"><div align="center"><strong><font face="Tahoma" size="2" color="#FFFF00"></font></strong><font color=royalblue face=Tahoma size=2><strong><font color="#FFFF00">Num</font></strong></font></div></td>
			<td width="635"><div align="center"><strong><font face="Tahoma" size="2" color="#FFFF00"></font></strong><font color=royalblue face=Tahoma size=2><strong><font color="#FFFF00">Descrição</font></strong></font></div></td>
			<td width="45"><div align="center"><strong><font face="Tahoma" size="2" color="#FFFF00"></font></strong><font color=royalblue face=Tahoma size=2><strong><font color="#FFFF00">Ok</font></strong></font></div></td>
		  </tr>
			<%
	Do While Not rstSearch.EOF 
	%>
		 <tr bgcolor="#E5E5E5">
		   <td><div align="left"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("cod").Value %></font></div></td>
		   <td><div align="left"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("num").Value %></font></div></td>
		   <td><div align="left"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("descricao").Value %></font></div></td>
		   <td><form><input name="ok" value="<%= rstSearch.Fields("ok").Value %>" size="2" /></form></td>
		</tr>
 
	  <tr>
		  <p align="center">

		<%
			rstSearch.MoveNext
		Loop	
		%>
	  </table>
	<%
	rstSearch.Close
		Set rstSearch = Nothing
		cnnSearch.Close
		Set cnnSearch = Nothing
	End If
	%>

[DSerma 19]

Pelo q eu entendi.. você qr buscar no BD apenas o q o cara digitou.. é isso ??

 

Se for.. faça assim?

SELECT cod, num, descricao, ok FROM objetivos WHERE Nome_do_campo = '" & request.Form("Search") & "'

 

Abraços...

[jrcardozo 4]

qual mensagem de erro?

 

essa parte seria assim:

strSQL = "SELECT cod, num, descricao, ok " &_

"FROM objetivos;"

[Igormkt 0]

Isso mesmo.... o usuário digita em uma caixa de texto e clica em pesquisar. abaixo aparece somente os registros com o codigo digitado anteriormente.

 

Pelo q eu entendi.. você qr buscar no BD apenas o q o cara digitou.. é isso ??

 

Se for.. faça assim?

SELECT cod, num, descricao, ok FROM objetivos WHERE Nome_do_campo = '" & request.Form("Search") & "'

 

Abraços...

 

não aparece mensagem de erro, quando eu digito ele faz a pesquisa mas continua mostrando todos os registros.

 

Igor

 

qual mensagem de erro?

 

essa parte seria assim:

strSQL = "SELECT cod, num, descricao, ok " &_

"FROM objetivos;"

[DSerma 19]

você montou a SQL do jeito que lhe falei.. com o comando "WHERE" ???

 

Abraços...

[Igormkt 0]

você montou a SQL do jeito que lhe falei.. com o comando "WHERE" ???

 

Abraços...

Montei sim

e funcionou mais ou menos

eu digito a o codigo e aparece só o cabeçalho da tabela e mais nada

parece que não está sendo feita a pesquisa no banco de dados.

a expressão está assim:

 

strSQL = "SELECT * FROM objetivos WHERE cod ='" & request.Form("strSearch") & "'"

[DSerma 19]

O problema está na linha

strSearch = Request.QueryString("search")

Não é QueryString, mas sim Form

 

Assim:

strSearch = Request.Form("search")

 

Abraços...