Verificando os dados do Cadastro

Após preencher o formulário o usuário deve enviar as informações clicando no botão Confirmar. Isto irá chamar o arquivo cadastrar.asp que irá verificar se já existe algum cliente cadastrado com os dados informados. Se nada for encontrado os dados do novo usuário serão gravados no banco de dados e  um código de identificação será atribuído ao usuário para identificá-lo na sessão.

O código do arquivo Cadastrar.asp é exibido a seguir

• Declaramos as variáveis usadas no script

Dim conntemp
Dim rsClientes

• Definimos as função para abrir e fechar a conexão com o banco de dados. Criamos uma instância do objeto Connection e usamos a variável de aplicação Application("Conecta_bd") definida no arquivo Global.asa.

• Criamos as variáveis de sessão com os dados informados no formulário:

• Criamos uma instância do objeto Recordset para receber os dados da tabela Clientes.

Para abrir o recordset usamos a seguinte sintaxe:

rsClientes.Open "Clientes", conntemp, adOpenDynamic, adLockOptimistic, adCmdTable

Onde:

1. Open - é o método para abrir o Recordset
2. "Clientes" - é o nome da Tabela de onde iremos gerar o Recordset
3. Conntemp - é o nome definido para a nossa conexão com o banco de dados.
4. adOpenDynamic - indica o tipo de cursor que estamos usando . Aqui estamos usando o cursor que permite adições , alterações e exclusões sendo que elas serão visíveis em seu conjunto de registros. É o cursor mais lento dentre os possíveis. O cursor adOpenForwardOnly - somente leitura para frente - é o cursor mais rápido. (O access não suporta o Cursor do tipo adOpenDynamic)
5. adCmdTable - Indica que a fonte de dados é uma tabela. Podemos ter os seguintes valores : AdCmdStoreProc - rotina armazenada ; adCmdText - um comando de texto ( SQL ) e adCmdUnKnow - é desconhecido.

• Iniciamos a busca no banco de dados para ver se o e-mail informado já esta cadastrado:

O método Find permite procurar na tabela clientes se o e-mail (Session("cad_email") ) esta cadastrado. Ele pode ser usado para encontrar valores em qualquer coluna. A sintaxe é a seguinte:

rs.Find(criterio. Skiprows , SearchDirection, start)

- Criterio - é uma expressão que contém o nome do campo do Recordset, um operador de comparação ( igual = , menor que < , maior que > , menor que ou igual <= , maior que ou igual >=, diferente <> ou Like )

Se o valor da procura for uma sequência de caracteres ela deve  estar envolvida por  aspas simples ('). Assim temos , no nosso caso :     rsClientes.Find "ClienteEMail='" & Session("cad_email") & "'", , adSearchForward 

Quando o valor for uma data , ela deve estar envolvida pelo sinal (#). Assim temos:

 rsclientes.Find "Data=#09/03/2001#" 

Ao usar o operador Like  você pode usar o asterisco(*) no valor de procura apenas na frente e no final da cadeia de caracteres. Assim temos:

 rsclientes.Find "Nome Like '*Silva*'"     ou   rsclientes.Find "Nome Like 'Silva*'" 

A principal limitação do método Find é que você só pode procurar valores em apenas um campo. 

- SkipRows - é um valor opcional Long ( não usamos ) com valor padrão igual a zero e indica que a busca começa na linha atual e termina na última linha quando SearchDirection é para frente e termina na primeira linha quando SearchDirection é para trás.

- SearchDirection - indica a direção da busca no Recordset. Pode ter os valores : adSearchForward - para frente e se nada for encontrado o cursor é posicionado para além do último registro => EOF retorna True. ou adSearchBack - para trás e se nada for encontrado o cursor é posicionado para além do primeiro registro => BOF retorna True.

- Start - Parâmetro opcional que pode ser definido para um bookmark de início. Assim antes de iniciar a busca o cursor do Recordset se move para este bookmark.

Se não existir um cliente cadastrado com este nome ( EOF=True ) então passamos a incluir o novo cliente. Para isto estamos usando o método AddNew/Update do objeto Recordset. Assim  AddNew adiciona um novo registro ao Recordset e os valores são atribuidos as campos (Fields) do Recordset. O novo registro é gravado no banco de dados através do método Update.

Você deve tomar cuidado ao atribuir um valor ao campo de um Recordset. Verifique primeiro se o valor do campo pode ser armazenado no banco de dados. Cuidado com valores Null e com campos chave primária.

Podemos usar também a instrução SQL - INSERT - e usar o método Execute do objeto Connection para executar uma instrução  INSERT. A sintaxe é:

INSERT INTO  tabela (coluna1, coluna2, coluna3,...) VALUES (valor1,valor2,valor3,..)

-Coluna1,Coluna2,... - é a lista das colunas da tabela onde desejamos inserir valores

-valor1,valor2,... - são os dados que estamos inserindo na tabela

Exemplo:   INSERT INTO clientes  (Nome,Email,Senha) VALUES ("João","joao@net.com","123")

Para executar a instrução podemos fazer:

SQL="INSERT INTO clientes  (Nome,Email,Senha) VALUES ("João","joao@net.com","123") "

Conn.Execute SQL

A proxíma etapa é mover o ponteiro para o início do arquivo  através do método MoveFirst   - rsclientes.MoveFirst , e localizar o cliente recém cadastrado para obtermos o seu código e o seu nome. Aproveitamos a oportunidade para criar um Cookie para este novo cliente. Criamos um cookie para o seu e-mail e definimos uma data de expiração para o mesmo.

O método MoveFirst é um método de navegação do Recordset. Além deste método temos mais três métodos que são: MoveLast (vai para o último registro) , MoveNext (vai para o próximo registro)  , MovePrevious (vai para o registro anterior). 

Tenha em mente que nem todos os Recordsets suportam todos estes métodos. Isto vai depender de como o Recordset é preparado para ser usado. Assim ao usar um cursor Forward-Only em um recordset não podemos usar os métodos MovePrevious ou MoveLast.

Feito tudo isto podemos fechar o recordset  (Close) e ir para página de compras (Response.Redirect "compras").

Se o cadastro já existir, atribuímos a variável de sessão Cad_Erro o valor 1 , e ,  fechamos o recordset , a conexão e redirecionamos o usuário para a página de cadastro.(Response.Redirect "Cadastra.asp")

O redirecionamento é feito através do método Redirect que permite nos movermos para uma URL definida. Como este método usa o cabeçalho HTTP para avisar o Navegador , nenhuma saída deve ser executada antes de um instrução Response.Redirect.     

• Seção VB .NET do Site Macoratti.net
• Seção C# do site Macoratti.net
• Seção ASP .NET do site Macoratti.net
• Super DVD .NET - A sua porta de entrada na plataforma .NET
• Super DVD Vídeo Aulas - Vídeo Aula sobre VB .NET, ASP .NET e C#
• Super DVD C# - Recursos de aprendizados para a linguagem C# : livros, apostilas, programas, códigos fontes, vídeos

Copyright (c) 2000 - José Carlos Macoratti