TRABALHANDO COM TABELAS MSACESS:

Consultando Registros:

A seguir veremos como excluir dados de uma tabela MSAcess utilizando comandos SQL:

! -- Se a QueryString variaveldeacao = consulta pedimos o nome e mostramos o resultado da consulta

<%
ELSEIF variaveldeacao="consulta" THEN
IF Len(TRIM(request.form("flag"))) = 0 THEN
%>

Entre com o nome do cliente:
<form method="post" action="registro.asp?variaveldeacao=consulta">
Nome:
<input type="text" name="Nome"> <br>
<input type="hidden" name="flag" value="2">
<input type="submit" value="Consultar" name="submit">
</form>

!-- Depois que entramos no formulário com o nome que desejamos consultar a variavel flag passa a ser = 2 e ocorre o seguinte:

<%
ELSEIF Request.Form("flag")="2" THEN
SQL = "SELECT * FROM cliente "
SQL = SQL & " WHERE Nome='" & TRIM(Request.Form("Nome")) & "'"
Set rs = conexao.Execute(SQL)
%>
<table border=0>
<tr>
<td>Resultado </td>
<td>Id: </td>
<td>Nome: </td>
<td>Endereço </td>
<%
x=0
DO WHILE NOT rs.EOF
x=x+1
Recid = rs("Id")
Nome = rs("Nome")
Endereco = rs("Endereco") %>
<tr>
<td><%=x%>)</td>
<td><%=Recid%></td>
<td><%=Nome%></td>
<td><%=Endereco%></td>
<td><a href="registro.asp?variaveldeacao=apagar&Recid=<%=Recid%>">Deletar</a></td>
<td><a href="registro.asp?variaveldeacao=atualizar&Recid=<%=Recid %>">Atualizar</a></td>
<%
rs.MoveNext
LOOP
RS.Close
Response.Write "</TABLE>"
End if
%>
</table>

! -- Você pode rodar essa mesma consulta para codigo e endereço, basta que mude o argumento de pesquisa no formulário e também na página de resposta. Taí um bom exercício para testar seus conhecimentos. :)

---

Copyright 2000 ALL4ALL Website
Todos os Direitos Reservados