TRABALHANDO COM TABELAS MSACESS:

Adicionando Registros:

A seguir veremos como adicionar dados em uma tabela MSAcess utilizando comandos SQL:

<!-- #include file="db.inc" -->
!-- os dados para criar a conexão que vimos no capitulo anterior(Criando um DSN)

<%
variaveldeacao = Request.QueryString("variaveldeacao")
!-- utilizaremos esta variável para armazenar os dados de ação do formulário.

IF variaveldeacao="adicionar" THEN IF Len(TRIM(request.form("flag"))) = 0 THEN
%>
!-- Se a QueryString variaveldeacao = adicionar geramos a pagina de cadastro cliente, verificaremos também a variável flag que nos dirá se o formulario já foi preenchido ou não.

<form method="post" action="registro.asp?Actionvar=adicionar">
<table>
<tr>
<td>Nome: </td>
<td> <input type="text" name="Nome"></td>
</tr>
<tr>
<td>Endereco: </td>
<td> <input type="text" name="Endereco"></td>
</tr>
<tr>
<td> <input type="hidden" name="flag2" value="2"> </td>
<td> <input type="submit" value="Adicionar" name="submit"> </td>
</tr>
</table>
</form>

!-- Criamos o formulário, observe que a variaveldeacao = adicionar e o campo escondido flag tem o valor = 2. O nome da página asp que receberá os dados de todos os formulários é o mesmo, por isso precisamos destas 2 variáveis nos dizendo em que estado nos encontramos.

<%
ELSEIF Request.Form("flag")="2" THEN
---SQL = "INSERT INTO cliente (Nome,Endereco)"
---SQL = SQL & " VALUES ('" & request.form("Nome") & "','" & request.form("Endereco") & "')"
---conexao.execute(SQL)
---Response.Write "Operação efetuada com sucesso, Pressione Back(ALT+Seta Esquerda) para ---voltar!"
End if
%>

! -- Agora criamos a página de resposta, observe que a variável flag tem que ser = 2, o que indica que o formulário já foi preenchido. Criamos o SQL e pedimos que adiciona na tabela Cliente os valores captados no formulário.

---

Copyright 2000 ALL4ALL Website
Todos os Direitos Reservados