Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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
Carregando comentários...