Ir para conteúdo

POWERED BY:

Arquivado

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

razstec

procura numa base de dados

Por , em ASP Clássico

Recommended Posts

razstec    0

razstec
Postado

Perfeito, ta a funcionar a 100% :)

vou por o codigo para o caso de alguem precisa

 

search.asp

<%Dim textttextt = trim(request.form("q"))sitesearch = request.form("sitesearch")%><html><head><meta http-equiv="Content-Type" content="text/html; charset=windows-1252"><title>New Page 1</title></head><body><%if textt<>"" and sitesearch="" thenresponse.redirect("http://www.google.com/search?hl=pt-BR&q="&textt&"&lr=")end ifif textt<>"" and sitesearch="sitesearch" thenDataPath = Server.MapPath("db/dbsniffitdb.mdb")Set DBCon = Server.CreateObject("ADODB.Connection")DBCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DataPathset rs = Server.CreateObject("ADODB.Recordset")sql = "SELECT * FROM insprocura WHERE artigo LIKE '%" & textt & "%';" set rs =  DBCon.Execute(sql)%><table border="0" width="27%">	<tr>	<%if not rs.eof then do while not rs.eof%>		<td width="131">Username:</td>		<td>ID:</td>	</tr>	<tr>		<td width="131" height="18"><% if not rs.eof then %><%=rs.Fields("username")%><% else %><% end if %></td>		<td height="18"><% if not rs.eof then %><%=rs.Fields("id")%><% else %><% end if %></td>	</tr></table><table border="0" width="59%" height="64">	<tr>		<td height="23">Artigo:</td>	</tr>	<tr>		<td><% if not rs.eof then %><%=rs.Fields("artigo")%><% else %><% end if %></td>	</tr><%rs.movenextloopelse %><% end if %></table><%DBCon.CloseSet DBCon = Nothing%><%elseresponse.write("preencha o campo para pesquisar")end if%></body></html>

procuras.html

<html><head><meta http-equiv="Content-Type" content="text/html; charset=windows-1252"><title>Procura apenas nesta página</title></head><body><form method="post" action="search.asp"><div style="border:1px solid black;padding:4px;width:237px;height:63px"><table border="0" cellpadding="0"><tr><td><input type="text"   name="q" size="25"maxlength="255" value="" /><input type="submit" value="Go" /></td></tr><tr><td align="center" style="font-size:75%"><input type="checkbox"  name="sitesearch"value="sitesearch" checked /> Procura apenas nesta página<br /></td></tr></table></div></form></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

razstec    0

razstec
Postado

é verdade ja agora como ponho a pesquisa a ser feita em varias tabelas, vou precisar de pesquisar ao mesmo tempo em 15 tabelas :(

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

?????você quer verificar o login em 15 tabelas diferentes????se for isso faça 15 selects diferentes ou crie uma rotina em uma estrutura de repetição pra pesquisar nas tabelas que deseja

Compartilhar este post

Link para o post
Compartilhar em outros sites

Fernando_Bittencourt    0

Fernando_Bittencourt
Postado

a melhor opcao nesse caso eh criar uma VIEW no banco e dar o select nela... o desempenho nao eh dos melhores mas ajuda...

 

tem outro modo tb, q uma vez eu usei, o site ficou mto lento, mas fzr oq, peguei o site pronto...

 

faz um array de objetos (sim eh possivel)

 

'declara um arrayDim tabela(15)For i = 0 To 14 Step 1  Set tabela(i) = Server.CreateObject("ADODB.RECORDSET")  'rotina pra abrir os dados e imprimí-los na tela  tabela(i).CLose  Set tabela(i) = NothingNext

sei la pelo menos tem q digitar menos...

 

se o bco permitir faça uma VIEW ou Consulta (no Access)...

 

falowwww

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