TRABALHANDO COM TABELAS MSACESS:

Iniciando o ASP:

! -- Quando iniciamos o código ASP a QueryString variaveldeacao não possui valores, então geramos lista de clientes que será nossa primeira página. Junto com essa lista geramos também o código onde poderemos chamar as outras opções: Adicionar, Atualizar, Excluir e Consulta.

<%
ELSE
SQL = "SELECT * FROM cliente"
%>

<%
Set rs = conexao.Execute(SQL)
%>
<table border=0>
<tr>
<td>Registro </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>"
Response.Write "<HR><A HREF='registro.asp?variaveldeacao=adicionar'>Cadastrar Cliente</A>"
Response.Write "<A HREF='registro.asp?variaveldeacao=consulta'>Consulta por Nome</A>"
END IF
conexao.Close
Set conexao = nothing
Set SQL = nothing
%>
</table>
</body>
</html>

! -- É isso! Agora baixe o arquivo zipado com os três arquivos necessários para rodar este exemplo. Você precisará do Personal Web Server para rodar e interpretar o código ASP. Outro bom exercício é melhorar o visual da página, que tal?
[]s Merlyn

Clique para baixar este exemplo: registroacess.zip - 8Kb

---

Copyright 2000 ALL4ALL Website
Todos os Direitos Reservados