Ir para conteúdo

POWERED BY:

Arquivado

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

adrianoluis

Sobre busca

Por , em ASP Clássico

Recommended Posts

adrianoluis    0

adrianoluis
Postado

Ola

 

Tenho uma pagina com um imput e um submit, ai tenho a pagina busca.asp com o seguinte código:

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<!--#include file="Connections/conexao.asp" -->

<%

Dim Recordset1

Dim Recordset1_numRows

 

Set Recordset1 = Server.CreateObject("ADODB.Recordset")

Recordset1.ActiveConnection = MM_tecnicon_STRING

Recordset1.Source = "SELECT * FROM USERS WHERE USUARIO LIKE '"&request.form("nome")&"'"

Recordset1.CursorType = 0

Recordset1.CursorLocation = 2

Recordset1.LockType = 1

Recordset1.Open()

Recordset1_numRows = 0

%>

<html>

<head>

<title>Resultado da busca</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

</head>

 

<body>

<%do while not Recordset1.eof%>

<%=Recordset1("USUARIO")%><BR>

<%Recordset1.movenext

loop%>

</body>

</html>

<%

Recordset1.Close()

Set Recordset1 = Nothing

%>

A partir disso eu gostaria que quando eu digitasse test ele buscasse todas as entradas referentes a "test" no banco de dados, por exemplo, se tiver dez usuarios com inicio Test ele listasse todos eles só que isso não está acontecendo, alguem pode me ajudar a incrementar esse código?

 

Obrigado

Compartilhar este post

Link para o post
Compartilhar em outros sites

adrianoluis    0

adrianoluis
Postado

Ola Cara akilo lah deu certo, só que, por exemplo, se eu for direto na pagina de resultados ele mostra vários registros. Gostaria de fazer algo tipow se o usuario não digitou nada no form apareça algo assim: "Não foi encontrado nenhum registro, realize a busca novamente .... " Como faço isso ?? Obrigado

Compartilhar este post

Link para o post
Compartilhar em outros sites

alphamek    2

alphamek
Postado

Acresenta isso no código : If RecSet.EoF Then Response.Write "Não foi encontrado nenhum registro!" Else Do While Not RecSet.EoF Response.Write RecSet ("Usuario") RecSet.MoveNext LoopEnd if OK! Roda ae que dá certo. Abraços,

Compartilhar este post

Link para o post
Compartilhar em outros sites

adrianoluis    0

adrianoluis
Postado

Ola

 

Na pagina buscar.asp tenho um imput com um submit e via método POST (que tem a pagina busca.asp), ai clico em buscar e ele tah fazendo tudo certinho. Na pagina busca.asp tenho o seguinte código:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<!--#include file="Database/conecta.asp" -->

<%

Dim Recordset1

Dim Recordset1_numRows

 

Set Recordset1 = Server.CreateObject("ADODB.Recordset")

Recordset1.ActiveConnection = MM_tecnicon_STRING

nome = request.form("nome")

if nome = "" then

response.redirect "erro.asp"

else

Recordset1.Source = "SELECT * FROM USERS WHERE USUARIO LIKE '"&request.form("nome")&"%'"

 

Recordset1.CursorType = 0

Recordset1.CursorLocation = 2

Recordset1.LockType = 1

Recordset1.Open()

Recordset1_numRows = 0

%>

<html>

<head>

<title>Busca de Usuários</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

</head>

 

<body bgcolor="#c8d4d5" text="#000000" link="#000000" vlink="#000000" alink="#000000">

<%if Recordset1.eof then%>

<font face=Verdana size=2>Nenhum registro foi encontrado</font>

<%else%>

<%do while not Recordset1.eof%>

<font face="Verdana" size="2"><%=Recordset1("USUARIO")%></font><BR>

<%Recordset1.movenext

loop%>

<%end if%>

</body>

</html>

<%

Recordset1.Close()

Set Recordset1 = Nothing

end if

%>

Só que alem de fazer a busca preciso fazer com que seja possivel alterar esse usuario, ou seja, terei que listar mais um campo, tipow ID ai clicando nesse ID aparece outra pagina onde seja possivel alterar os dados dele. No banco de dados eu tenho os seguintes campos:

 

ID - USUARIO - SENHA - TIPO

Alguem pode ajudar ???

Compartilhar este post

Link para o post
Compartilhar em outros sites

adrianoluis    0

adrianoluis
Postado

Ola Ae agora consegui exibir o ID e também o USUARIO, só que como faço se quiser alterar os dados?? Tipow, teria que ter um link no ID ai ele exibe todos os campos mas como fazer??Obrigado

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