Consulta em banco de dados access

shumi · Outubro 9, 2005

Oi tudo bem?Preciso de uma ajuda!Estou iniciando-me em asp e precisaria fazer uma consulta em um banco de dados access com alguns filtros como cpf, estado e cidade....Alguem poderia me passar como que eu faço.... assim estaria estudando também!Agradeço a todos!Rodrigo Castro

shumi · Outubro 10, 2005

Obrigado,

Estou analisando o que você me passou, mas gostaria de saber aonde está meu erro...

eu fiz assim:

Como esta abaixo, só que ele não busca na base de dados e não sei mais o que fazer!

<%@ Language=VBScript %><!-- #include file="include/conexao.inc" --><html><head><title>Busca</title></head><body><% If verifica = "nome" then	Set tb=server.CreateObject("ADODB.RecordSet") 		sql = "SELECT * FROM cadastro WHERE nome LIKE '%"&nome&"%'"	tb.open sql, verifica,3,3				%><table border="0">  <tr> 	<td colspan="10"> <form method="POST" action="admin.asp">		<p align="right">		  <input type="submit" value="Retornar Para Admin">		</p>	  </form></td>  </tr>  <tr bgcolor="#FF0000"> 	<td> <form method="Post" action="busca.ASP?acao=excluir">		<p><b><font size="2" face="Verdana">Id</font></b></p>	  </form></td>	<td><b><font size="2" face="Verdana">Nome</font></b></td>	<td><b><font size="2" face="Verdana">CPF</font></b></td>	<td><b><font size="2" face="Verdana">Cidade</font></b></td>	<td><b><font size="2" face="Verdana">Estado</font></b></td>	<td><b><font size="2" face="Verdana">Telefone</font></b></td>	<td align="center"> </td>	<td align="center"> </td>	<td align="center"> </td>	<td><b><font size="2" face="Verdana"> 	  <input type="submit" 	value="Apagar">	  </font></b></td>  </tr>  <tr> 	<%	if tb.recordcount > 0 then	tb.movefirst	while not tb.EOF				  %>	<td align="center"><% =tb("id")%></td>	<td align="center"><%=tb("nome")%></td>	<td align="center"><%=tb("cpf")%></td>	<td align="center"><%=tb("cidade")%></td>	<td align="center"><%=tb("uf")%></td>	<td align="center"><%=tb("fone")%></td>	<td align="center"> </td>	<td align="center"> </td>	<td align="center"> </td>	<td align="center"><input type="checkbox" name="checkbox" 	value="<%=tb(0)%>"></td>  </tr>  <%	tb.movenext	Wend	Else				%>  <tr> 	<td colspan="10"> <h4><b><font face="Verdana" color="#FF0000">Não existe 		nenhum cadastro...</font></b></h4>	  <% End if %></form>	  </td>  </tr>  <tr> 	<td colspan="10"> <form method="POST" action="admin.asp">		<p align="right">		  <input type="submit" value="Retornar Para Admin">		</p>	  </form></td>  </tr></table><% End if   If cad = "cpf" then	Set tb=server.CreateObject ("ADODB.RecordSet") 		sql = "SELECT * FROM cadastro WHERE cpf LIKE '%"&cpf&"%'"	tb.open sql, verifica,3,3				%><table border="0">  <tr> 	<td colspan="10"> <form method="POST" action="cadastro.asp">		<p align="right">		  <input type="submit" value="Retornar Para Admin">		</p>	  </form></td>  </tr>  <tr bgcolor="#FF0000"> 	<td> <form method="Post" action="busca.ASP?acao=excluir">		<p><b><font size="2" face="Verdana">Id</font></b></p>	  </form></td>	<td><b><font size="2" face="Verdana">Nome</font></b></td>	<td><b><font size="2" face="Verdana">CPF</font></b></td>	<td><b><font size="2" face="Verdana">Cidade</font></b></td>	<td><b><font size="2" face="Verdana">Estado</font></b></td>	<td><b><font size="2" face="Verdana">Telefone</font></b></td>	<td align="center"> </td>	<td align="center"> </td>	<td align="center"> </td>	<td><b><font size="2" face="Verdana"> 	  <input type="submit" 	value="Apagar">	  </font></b></td>  </tr>  <tr> 	<%	if tb.recordcount > 0 then	tb.movefirst	while not tb.EOF						  %>	<td align="center"><% =tb("id")%></td>	<td align="center"><%=tb("nome")%></td>	<td align="center"><%=tb("cpf")%></td>	<td align="center"><%=tb("cidade")%></td>	<td align="center"><%=tb("uf")%></td>	<td align="center"><%=tb("fone1")%></td>	<td align="center"> </td>	<td align="center"> </td>	<td align="center"> </td>	<td align="center"><input type="checkbox" name="checkbox" 	value="<%=tb(0)%>"></td>  </tr>  <%	tb.movenext	Wend	Else						%>  <tr> 	<td colspan="10"> <h4><b><font face="Verdana" color="#FF0000">Não existe 		nenhum cadastro...</font></b></h4>	  <% End if %></form>	  </td>  </tr>  <tr> 	<td colspan="10"> <form method="POST" action="admin.asp">		<p align="right">		  <input type="submit" value="Retornar Para Admin">		</p>	  </form></td>  </tr></table><% End if If cad = "todos" then	Set tb=server.CreateObject ("ADODB.RecordSet") 		sql = "SELECT * FROM cadastro"	tb.open sql, verifica,3,3							%><table border="0">  <tr> 	<td colspan="10"> <form method="POST" action="admin.asp">		<p align="right">		  <input type="submit" value="Retornar Para Admin">		</p>	  </form></td>  </tr>  <tr bgcolor="#FF0000"> 	<td> <form method="Post" action="busca.ASP?acao=excluir">		<p><b><font size="2" face="Verdana">Id</font></b></p>	  </form></td>	<td><b><font size="2" face="Verdana">Nome</font></b></td>	<td><b><font size="2" face="Verdana">CPF</font></b></td>	<td><b><font size="2" face="Verdana">Cidade</font></b></td>	<td><b><font size="2" face="Verdana">Estado</font></b></td>	<td><b><font size="2" face="Verdana">Telefone</font></b></td>	<td align="center"> </td>	<td align="center"> </td>	<td align="center"> </td>	<td><b><font size="2" face="Verdana"> 	  <input type="submit" 	value="Apagar">	  </font></b></td>  </tr>  <tr> 	<%	if tb.recordcount > 0 then	tb.movefirst	while not tb.EOF										%>	<td align="center"><% =tb("id")%></td>	<td align="center"><%=tb("nome")%></td>	<td align="center"><%=tb("cpf")%></td>	<td align="center"><%=tb("cidade")%></td>	<td align="center"><%=tb("uf")%></td>	<td align="center"><%=tb("fone")%></td>	<td align="center"> </td>	<td align="center"> </td>	<td align="center"> </td>	<td align="center"><input type="checkbox" name="checkbox" 	value="<%=tb(0)%>"></td>  </tr>  <%	tb.movenext	Wend	Else									  %>  <tr> 	<td colspan="10"> <h4><b><font face="Verdana" color="#FF0000">Não existe 		nenhum cadastro...</font></b></h4>	  <% End if %></form>	  </td>  </tr>  <tr> 	<td colspan="10"> <form method="POST" action="admin.asp">		<p align="right">		  <input type="submit" value="Retornar Para Admin">		</p>	  </form></td>  </tr></table><%End ifIf acao="excluir" then%><% 		if err = 0 and id <> "" then			array_id = split(id,",")			For i=0 to ubound(array_id)			sql_id = sql_id & "cadastro.id = " & Trim(array_id(i)) & " OR "			Next			sql_id = left(sql_id,(len(sql_id)-4))			cadastro.Execute("DELETE * FROM cadastro WHERE "&sql_id&"")							%><table>  <tr>	<td>	<h3><font color="#000080" face="Verdana">Cadastro Excluído com Sucesso...</font></h3>	<form method="POST" action="admin.asp">	  <p align="right"><input type="submit" value="Retornar Para Admin"></p>	</form>	<%else%>	<h3><font color="#000080" face="Verdana">Ocorreu um erro na exclusão do 	cadastro...</font></h3>	<form method="POST" action="admin.asp">	  <p align="right"><input type="submit" value="Retornar Para Admin"></p>	</form>	</td>  </tr></table><%	End if	End ifverifica.Closeset cadastro = NothingSet tb = Nothing							%></body></html>

Mário Monteiro · Outubro 10, 2005

qual o erro???

shumi · Outubro 10, 2005

estou fazendo um arquivo dee busca no meu banco de dados e sou iniciante entao não majo quase nada!e não esta buscando...A tela fica em branco!Obrigado!Rodrigo Castromeu arquivo anterior é esse:[cod]<%@ Language=VBScript %><%Option Explicit%><%Response.Expires = 0%><%Dim verifica,log,chk_usuario,login,senha,cl_id,templog = Request.QueryString("log")login = Request.Form("login")senha = Request.Form("senha")%><html><head><title>Administração</title></head><body><div align="center"> <center><table><tr> <td> <img src="logo.jpg" width="66" height="76"></td> <td><table> <tr> <td> <table border="0" width="100%"> <tr valing="top" width="100%"> <td bgcolor="#FFFFFF"> <h1 align="center"><font face="Verdana" color="#FF0000"><b> Administração</b></font></h1> </td> </tr> </table> <table border="0"> <tr width="100%"> <%If log = "off" Then Session.Abandon %> <script>window.location='admin.asp'</script> <%End IfIf (log="in") Then set chk_usuario = verifica.Execute("SELECT * FROM admin WHERE login='"& login &"' AND senha='"& senha & "'") If chk_usuario.EOF Then %> <td width="100%" bgcolor="#FFFFFF"> <h2><b><font color="#009900" size="4" face="Verdana">Login Inválido</font></b></h2></td> </tr> <tr width="100%"> <% log="in" login = "" senha = "" Else temp = 0 While not chk_usuario.EOF temp = temp + 1 cl_id = chk_usuario("id") chk_usuario.MoveNext Wend If temp=1 Then chk_usuario.MoveFirst Session("admin") = chk_usuario("login") Else %> <td width="100%" bgcolor="#FFFFFF"><font color="red" face="Verdana" size="2"><b>Problema na conexão com o Banco de Dados</b></font><font size="3" face="Verdana"><br> </font><font face="Verdana" size="1">Por favor, abra o banco de dados manualmente e verifique a duplicidade de usuários.</font></td> </tr> <tr width="100%"> <%log = "in"login = ""senha = ""End IfEnd IfEnd IfIf IsEmpty(Session("admin")) Then%> <td width="100%" bgcolor="#FFFFFF"> <h6><font face="Verdana">Entre com o nome de usuário e senha para acessar a área administrativa.</font></h6></td> </tr> <tr align="100%"> <td bgcolor="#FFFFFF"> <form action="ADMIN.asp?log=in" method="post" name="form"> <h6><font face="Verdana" color="#000080">Usuário: <input type="text" maxlength="10" size="15" name="login"> <br> Senha..:</font> <input type="password" maxlength="6" size="6" name="senha"> <input type="submit" value="Entrar"> </h6> </form></td> <% Else %> </tr> <tr> <td width="100%" bgcolor="#FFFFFF"> <h6><font face="Verdana"><b><font color="#000080">Você está conectado com o usuário <%=Session("admin")%>. </font> <a href="ADMIN.asp?log=off">Logoff</a></b></h6></font> </td> </tr> <tr> <td></center></td> </tr> <tr> <td><font size="5"> <span style="font-variant: small-caps; font-weight: 700"> </span> </font></td> </tr> <tr> <td bgcolor="#FFFFFF"> <p align="center"><font color="#FF0000" size="5"> <span style="font-variant: small-caps; font-weight: 700">Pesquisas Rápidas</span></font></td> </tr> <tr> <td> </td> </tr> <tr> <td> <form method="POST" action="busca.ASP?cad=nome" name="cad"> <p> <input name="nome" type="text" id="nome" size="20" maxlength="50"> <input type="submit" value="Procurar por Nome"> </p> </form></td> </tr> <tr> <td> <form method="POST" action="busca.ASP?cad=cpf"> <p> <input name="cpf" type="text" size="11" maxlength="11"> <input type="submit" value="Procurar pelo cpf"> </p> </form></td> </tr> <tr> <td><form method="POST" action="busca.ASP?cad=todos"> <p> <input name="submit" type="submit" value="Listar Todos"> </p> </form></td> </tr> <%End If%>  </table> </td> </tr> </table> </center> </div></table></body></html>[/cod]

Entrar

Arquivado

Consulta em banco de dados access

Recommended Posts

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante