BUSCA POR TEXTO(STRING) NUMA BASE DE DADOS

Vamos aprender a fazer uma simples busca num banco de dados:

Primeiramente vamos abrir a conexão com o banco via ODBC:

<%
Dim dbc
Set dbc = Server.CreateObject("ADODB.Connection")
dbc.open "basededados"
%>

Agora vamos criar a clausula SQL para achar dados tipo texto numa tabela, pressume-se que a condição foi enviada através de um formulário anterior a consulta, onde o caixa do tipo texto tinha o nome "condicao";

<%
sql = "select * from tabela where campo like '%" & Request.Form("condicao") & "%'"
set rscampo = dbc.execute(sql)
%>

Esta é uma consulta por texto numa tabela e retornará todos os registros que contiverem o texto "condicao", por exemplo se a condição for "Maria" e o campo nome todos os registros que contiverem a palavra Maria serão exibidos;

Para visualizar o resultado:

<%
rscampo.movefirst
do while not rscampo.eof
%>

Nome: <% =rscampo("nome") %>
Endereço: <% =rscampo("endereco") %>
Telefone: <% =rscampo("tel") %>

<%
rscampo.movenext
loop
%>

Agora fechamos todas as conexões abertas com o servidor:

<%
rscampo.close
Set rscampo = Nothing
dbc.close
Set dbc= Nothing
%>

Pronto, é basicamente isso, você pode incrementar sua busca utilizando outros tipos de consulta, por exemplo numérica, por data, etc..