Ir para conteúdo

POWERED BY:

Arquivado

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

W.Silva

Like

Por , em ASP Clássico

Recommended Posts

W.Silva    0

W.Silva
Postado

Nobres

 

Ajudai-me por favor:

 

Index.asp

<% Option Explicit %><!--#include file="adovbs.inc" --><html><head><title>Trabalhando com Filtros</title><meta http-equiv="Content-Type" content="text/html; charset=windows-1252"><link href="Filter_Stylo.css" rel="stylesheet" type="text/css"></head><%	Dim cBanco, Conn, strConn, Rs		Set Conn = Server.CreateObject("adodb.connection")	strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Wellington\Sites\DB\2000\BIBLIO2000.mdb;Persist Security Info=False"	cBanco  = Server.MapPath("\DB\2000\BIBLIO2000.mdb")	Conn.Open(strConn)	Set Rs = Server.CreateObject("adodb.recordset")%><body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"><table width="780" height="450" border="0" cellpadding="0" cellspacing="0">  <tr>     <td height="20" colspan="3"> </td>  </tr>  <tr>     <td width="20" rowspan="3"> </td>    <td width="624"> </td>    <td width="20" rowspan="3"> </td>  </tr>  <tr>     <td height="120"><form name="form1" method="post" action="index.asp">        <table width="479" height="35" border="0" align="center" class="bordas">          <tr valign="middle">             <td width="167"><p align="right">Digite sua Pesquisa:</p></td>            <td width="146">               <input name="txtBusca" type="text" class="bordas" id="txtBusca"></td>            <td width="150">               <input name="Submit" type="submit" class="bordas" value="Procurar!!"></td>          </tr>        </table>      </form></td>  </tr>  <tr>     <td> </td>  </tr>  <tr>     <td height="20" colspan="3" valign="bottom"> <p align="center" class="Fonte01">Trabalhando         com a Propriedade <strong>"Filter"</strong></p></td>  </tr></table><%	Dim SQLFilter, pBusca	pBusca = Request.Form("txtBusca")		SQLFilter = "SELECT * FROM Authors;"	Set Rs = Conn.Execute(SQLFilter)	Rs.Filter ="Author Like" & "%" & pBusca & "%' 		Do While Not Rs.EOF  Response.Write(Rs("Author") & "<br>")  Rs.MoveNext	Loop%></body></html><%	Conn.Close	Set Rs = Nothing	Set Conn = Nothing%>

Não consigo Resolver o LIke!!

 

Erro:

Tipo de erro:Erro de compilação do Microsoft VBScript (0x800A0409)Constante de seqüência não finalizada/asp/Filter/index.asp, line 58, column 45Rs.Filter ="Author Like" & "%" & pBusca & "%'--------------------------------------------^

Se alguem puder me ajudar....

 

Abraços

W.Silva

Compartilhar este post

Link para o post
Compartilhar em outros sites

nostrinkes    0

nostrinkes
Postado

Exempo de like faz duas buscas juntas. teste="SELECT * FROM tabela where center like '%"&busca1&"%' AND lojas like '%"&busca2&"%'"

Compartilhar este post

Link para o post
Compartilhar em outros sites

W.Silva    0

W.Silva
Postado 

<%	Dim SQLFilter, pBusca	pBusca = Request.Form("txtBusca")		SQLFilter = "SELECT * FROM Authors"	Set Rs = Conn.Execute(SQLFilter)	Rs.Filter ="where Author like '%"&pbusca&"%'"		Do While Not Rs.EOF  Response.Write(Rs("Author") & "<br>")  Rs.MoveNext	Loop%>

O Problema Continua!!!

 

Tipo de erro:ADODB.Recordset (0x800A0BB9)Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito./asp/Filter/index.asp, line 48

Compartilhar este post

Link para o post
Compartilhar em outros sites

nostrinkes    0

nostrinkes
Postado

O problema não é no like...já tentou visualizar o postResponse.write pBusca'-------------------Response.endhá uma dica se voce for usar somente um campo tire o (*) e escreva o campo select campo from......

Compartilhar este post

Link para o post
Compartilhar em outros sites

W.Silva    0

W.Silva
Postado 

O problema não é no like...já tentou visualizar o post

Brother, o POST que você tenta exibilo na tela esta funcionando corretamente. A palavra que você busca é escrita corretamente.

 

Abraços

W.Silva

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito