Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Olá pessoal, sou iniciante em asp e estou com um pequeno problema em um sistema de busca feito por mim para testes
segue o codigo
Default.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="[http://www.w3.org/1999/xhtml">](http://www.w3.org/1999/xhtml)
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Untitled Document</title>
</head><%
If NOT Session("logado") = true Then
Response.redirect("erro.asp")
Response.End
End If
%>
<form method="POST" action="resultado.asp">
<p>Digite o que procurar</p>
<p>
<input type="text" name="user">
</p>
<p>
<input type="submit" value="Buscar">
</p>
</form>resultado.asp
[code]
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="[http://www.w3.org/1999/xhtml">](http://www.w3.org/1999/xhtml)
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Untitled Document</title>
</head><%
If NOT Session("logado") = true Then
Response.redirect("erro.asp")
Response.End
End If
%>
<%
'Declara variáveis
Dim cnConexao, rsBusca
'Cria instância ADO e abre conexão com o banco de dados
Set cnConexao = Server.CreateObject("ADODB.Connection")
cnConexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("bancodedados/banco.mdb")&";"
'Cria instância Recordset e faz a consulta na tabela tbClientes
Set rsBusca = Server.CreateObject("ADODB.RecordSet")
rsBusca.Open "SELECT * FROM users WHERE user LIKE '%"&Request.Form("user")&"'",cnConexao,3,3
'Verifica se foi encontrado algum registro
If rsBusca.EOF Then
Response.Write "Não foi encontrado nenhum registro!"
Else
'Lista os clientes se encontrados
While Not rsBusca.EOF
Response.Write rsBusca("user") & "<br>"
'Move para o próximo registro
rsBusca.MoveNext
Wend
End If
%>
o problema e que ele traz somente se eu colocar o nome do usuario certinho, se eu pesquisar somente a primeira letra ele nao traz nada, como que eu consigo pesquisar somente pelas letras?obrigado
Carregando comentários...