Ir para conteúdo

POWERED BY:

Arquivado

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

xanburzum

[Resolvido] Busaca no banco de dados com regular expression

Por , em ASP Clássico

Recommended Posts

xanburzum    169

xanburzum
Postado

Fazendo uma pesquisa no banco de dados usando de expressão regular, vamos armazenar o valor da pesquisa na variável strBusca, faremos um SELECT LIKE na variavel strBusca, depois vamos armazenar recordset em strPesquisa na variável Obj do objeto connection, e por fim executar um loop para criar a expressão regular

 

Arquivo expressoes.asp

<html>
<head>
</head>
<body>
<big><center><b>Pesquisa usando Expressões 
Regulares</b></center></big>
<br>
<center>Linguagem: <font 
color="red"><b>Vbscript</b></font></center>
<br><br><br>

           <form action="<%=strCaminho%>" method="get">
             <div align="center"> 
               <input name="busca" value="<%=strBusca%>">
               <input name="submit" type="submit" value="Buscar" >
             </div>
           </form>

<%
Dim strconexao, conn, Obj, strPesquisa,  strBusca,  strCaminho, descricao, pexr, mudar

strBusca = Trim(Request.QueryString("busca")) "Retira espaços e Armazena o valor digitado pelo usuário 
na variável strBusca.
strCaminho = Request.ServerVariables("URL") "Armazena o caminho da URL na variável strCaminho.

If strBusca <> "" Then

"Cria conexão com BD usando ADO.
strConexao = "Provider=Microsoft.Jet.OLEDB.4.0; data source=" & Server.MapPath("banco.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open strConexao

"Realiza pesquisa usando instrução SQL.
strPesquisa = "SELECT descricao FROM expressoes WHERE descricao LIKE "%" & strBusca & "%""
Set Obj = conn.execute(strPesquisa)

%>

<%
"Incia o Loop e cria o objeto de expressão regular.
while not Obj.EOF
pexr = Obj.Fields("descricao").value
Set rgxp = New RegExp
rgxp.Pattern = strbusca
mudar = pexr
mudar =  Replace(mudar,(strbusca), "<b>" & (strbusca) & "</b>")
%> 
<%=mudar & "<br>"%>
<%Obj.Movenext
wend
End if
%>
</body>
</html>

<%

set obj = nothing
set conn = nothing
%>

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