Júlio Battisti Livros e Cursosa sua sala de aula na internet

Nos exemplos que foram apresentados até aqui, já utilizamos o objeto RecordSet. Agora chegou o momento de fazer um estudo mais aprofundado deste objeto.

O objeto RecordSet contém o resultado de uma instrução SQL, executada em um Banco de Dados. Um objeto RecordSet contém um conjunto de Registros. É como se fosse uma tabela, onde cada linha é um registro, sendo que cada registro é formado por um conjunto de campos (colunas da tabela). Por exemplo, ao executarmos a seguinte instrução SQL:

Select  * from Pedidos

Com este comando selecionamos todos os registros da tabela Pedidos, os quais poderão ser acessados através de um objeto do tipo RecordSet.

Existem detalhes importantes que devemos conhecer a respeito do acesso aos dados. Devemos considerar questões como:

•  O acesso deve ser somente para leitura dos dados ou devem ser permitidas alterações e inserções de novos registros?

•  Como tratar questões sobre o acesso simultâneo aos dados, por exemplo, como tratar a situação em que dois usuários tentam alterar o mesmo registro, ao mesmo tempo?

Estas são questões importantes e devem ser consideradas sempre que formos disponibilizar acesso aos dados da nossa empresa, para usuários da Internet. Também precisamos conhecer o que são Cursores, quais os tipos de Cursores disponíveis e para que utilizamos Cursores. Vamos estudar estes pontos neste tópico.

Para criar um objeto RecordSet, utilizamos a seguinte sintaxe:

Set  Pedidos = Server.CreateObject(“ADODB.Recordset”)

Neste exemplo, estamos criando um RecordSet chamado Pedidos. Uma vez criado o RecordSet, o próximo passo é utilizarmos o método Open. O método Open possui a seguinte sintaxe:

recordset.Open Source, ActiveConnection, CursorType, LockType,  Options

Considere o exemplo:

Pedidos.Open inst_sql, conn, 3, 3

Os parâmetros a serem passados para o método Open, estão descritos na Tabela 11.9.

Tabela 11.9 Parâmetros do método Open do objeto RecordSet.

Options - Um valor do tipo Long, o qual define como o provedor de dados deve avaliar o argumento Source, quando este argumento for algo diferente de um objeto Command ou quando o RecordSet deve ser recuperado a partir de um arquivo salvo previamente.

Um cursor é o mecanismo utilizado pela tecnologia ADO para gerenciar o conjunto de registros de um objeto RecordSet. Somente podemos ter acesso a um registro por vez. Este registro é chamado de Registro corrente. Quando utilizamos o método Open, por padrão, o primeiro registro é o Registro corrente.

Um cursor também é utilizado para determinar qual o Registro corrente, bem como para movimentar o indicador de registro entre os diversos registros do objeto RecordSet. O mecanismo que identifica qual é o Registro corrente é chamado de “Record pointer”. Quem lida com a manipulação do Record pointer é o cursor. Por isso quando utilizamos os métodos MoveNext (mover para o próximo registro), MovePrevious (mover para o registro anterior) ou qualquer outro método de movimentação, estamos utilizando o cursor.

O mecanismo do cursor também gerencia situações em que tentamos avançar além do último registro ou voltar além do primeiro registro, ou quando acessamos o valor de um campo de um registro. De uma maneira simples, podemos afirmar que grande parte da funcionalidade de um objeto RecordSet é fornecida pelo mecanismo do cursor.

Quando utilizamos o método Open, podemos definir diferentes formas de comportamento para o mecanismo do cursor. Estas formas de comportamento é que determinam os tipos de cursores disponíveis, os quais estão descritos na Tabela 11.10. O tipo do cursor pode ser definido com um valor numérico ou através de uma constante, conforme indicado na Tabela 11.10.

Tabela 11.10 Tipos de cursores disponíveis.

1 – adOpenKeyset Cria um cursor do tipo Keyset. Um cursor deste tipo é parecido com um cursor Dynamic, com a exceção de que o conjunto de registros é fixo. O RecordSet enxerga as alterações feitas por outros usuários, porém a adição de novos registros não é visível para um RecordSet do tipo Keyset. Caso algum registro seja eliminado por outros usuários, o

O tipo de cursor a ser utilizado depende da aplicação que estamos desenvolvendo. Por exemplo, se estamos desenvolvendo uma página ASP apenas para exibir um conjunto de registros, podemos utilizar um cursor do tipo Static. Cursores mais simples, como o do tipo Static, consomem menos recursos de hardware no servidor. Cursores mais sofisticados, como o do tipo Dynamic, consomem mais recursos computacionais. Estes recursos podem ser consumidos na estação do Cliente ou no servidor Web, dependendo da localização do cursor. Veremos como definir a localização do cursor através da utilização da propriedade CursorLocation, no próximo item.

Agora alguns exemplos de utilização do método Open.

Este exemplo cria um RecordSet chamado Clientes e define um cursor do tipo Static.

<%
   
    inst_sql=“Select * from Clientes”
   
 Set Clientes =  Server.CreateObject(“ADODB.Recordset”)
   
 Clientes.Open  inst_sql,  conn, 3, 3
   
   %>
   
  

Ao invés de utilizarmos o valor 3, podemos utilizar a constante correspondente – adOpenStatic –, conforme o exemplo:

<%
      inst_sql=“Select * from Clientes”     
     
      Set Clientes =  Server.CreateObject(“ADODB.Recordset”)     
     
      Clientes.Open  inst_sql,  conn,  adOpenStatic, 3     
     
     %>     
   
  

O próximo exemplo cria um RecordSet chamado Clientes e define um cursor do tipo Keyset.

<%
      inst_sql=“Select * from Clientes”     
     
      Set Clientes =  Server.CreateObject(“ADODB.Recordset”)     
     
      Clientes.Open  inst_sql,  conn, 1, 3     
     
     %>     
   
  

Ao invés de utilizarmos o valor 1, podemos utilizar a constante correspondente – adOpenKeyset –, conforme o exemplo:

<%
      inst_sql=“Select * from Clientes”     
     
      Set Clientes = Server.CreateObject(“ADODB.Recordset”)     
     
      Clientes.Open  inst_sql,  conn,  adOpenKeyset, 3     
     
     %>     
   
  

Localização do Cursor

O cursor pode estar localizado no servidor Web ou no Cliente que está acessando os dados. Algumas fontes de dados, como o Microsoft SQL Server, podem oferecer serviços de cursor no Servidor. O Microsoft Access não oferece serviços de cursor, com isso o cursor fica localizado no Cliente. Quando acessamos fontes de dados, utilizando OLE DB, podemos utilizar o serviço de cursor oferecido pelo próprio OLE DB. A opção padrão, caso não seja definido nada em contrário, é que o cursor esteja no Servidor.

Para definir a localização do cursor, devemos utilizar a propriedade CursorLocation do objeto RecordSet. Definimos esta propriedade antes da utilização do método Open do objeto RecordSet. A Tabela 11.11 descreve os valores possíveis para esta propriedade.

Tabela 11.11 Valores para a propriedade CursorLocation.

2/adUseServer -   Utiliza serviços de cursor do servidor ou do provedor OLE DB.

No próximo exemplo, definimos o cursor no Cliente:

<%
      inst_sql=“Select * from Clientes”     
     
      Set Clientes =  Server.CreateObject(“ADODB.Recordset”)     
     
      Clientes.CursorLocation = 3     
     
      Clientes.Open  inst_sql,  conn, 3, 3     
     
     %>     
   
  

Nota: A propriedade CursorLocation deve ser definida antes da utilização do método Open. Ao tentarmos definir a propriedade CursorLocation, com o RecordSet aberto, obteremos a seguinte mensagem de erro:

Tipo de erro:
 ADODB.Recordset (0x800A0E79)
 Operation is not allowed when the object is open.
   
  

A mensagem indica que a operação (definir a localização do cursor) não é permitida quando o objeto está aberto.

Ao invés de utilizarmos o valor 3, podemos utilizar a constante correspondente – adUseClient –, conforme o exemplo:

<%
      inst_sql=“Select * from Clientes”     
     
      Set Clientes =  Server.CreateObject(“ADODB.Recordset”)     
     
      Clientes.CursorLocation = adUseClient     
     
      Clientes.Open  inst_sql,  conn,  adOpenStatic, 3     
     
     %>     
   
  

Quando criamos um objeto RecordSet com o cursor no Servidor, é responsabilidade do Servidor gerenciar a navegação e as atualizações do RecordSet, sendo que serão consumidos recursos no Servidor.

Ao utilizar o cursor no Cliente, todo o conteúdo do RecordSet é copiado para a estação do Cliente e gerenciado por um cursor local. Devemos considerar a questão da velocidade da conexão do usuário com a Internet ou com a Intranet da empresa, pois se o RecordSet for muito grande, isto é, um grande número de registros, o tempo para copiar todo o RecordSet, pode ser inaceitável. Porém uma vez copiado o RecordSet para a estação do Cliente, a utilização do RecordSet é mais rápida, pois não é preciso acessar o Servidor para simples operações, tais como movimentar-se para o próximo registro.

Quando uma aplicação Web é desenvolvida, a localização dos cursores deve ser discutida na fase de projeto, sempre procurando propiciar o melhor desempenho possível para a aplicação. Em uma mesma aplicação posso ter páginas que utilizam o cursor no Servidor e outras que utilizam o cursor no Cliente, depende apenas da natureza de cada página.

No próximo exemplo, definimos o cursor no Servidor:

<%
      inst_sql=“Select * from Clientes”     
     
      Set Clientes =  Server.CreateObject(“ADODB.Recordset”)     
     
      Clientes.CursorLocation = 2     
     
      Clientes.Open  inst_sql,  conn, 3, 3     
     
     %>     
   
  

Ao invés de utilizarmos o valor 2, podemos utilizar a constante correspondente – adUseServer –, conforme o exemplo:

<%
      inst_sql=“Select * from Clientes”     
     
      Set Clientes =  Server.CreateObject(“ADODB.Recordset”)     
     
      Clientes.CursorLocation = adUseServer     
     
       Clientes.Open  inst_sql,  conn,  adOpenStatic, 3     
     
     %>     
   
  

Lembrando que não é necessário definir o cursor no Servidor, pois essa é a definição padrão, ou seja, se não for definida, explicitamente, a propriedade CursorLocation assume o valor adUseServer.

Os Banco de Dados utilizam o Lock de registros como uma maneira de garantir a integridade dos dados. Com a utilização do Lock, garantimos que um mesmo registro não esteja sendo alterado, simultaneamente, por mais do que um usuário. Quando um usuário acessa um registro para fazer alguma alteração, o registro é bloqueado, de tal forma que outros usuários não possam ter acesso ao registro. O acesso ao registro somente será liberado após as alterações terem sido salvas no Banco de Dados. O tipo de Lock é definido pela propriedade LockType do objeto RecordSet. Existem diferentes maneiras de se fazer o Lock dos registros, conforme descrito na Tabela 11.12

Tabela 11.12 Tipos de Lock.

A maneira e os tipos de Lock possíveis de serem utilizados, também dependem da fonte de dados que está sendo utilizada. Quando não existe a necessidade de fazer alterações nos registros, devemos utilizar, sempre, um Lock do tipo Read Only (ou seja, como o RecordSet é apenas leitura, os registros não precisam ser bloqueados), pois isso evita que o Provider tenha que fazer verificações ao acessar cada registro, para verificar se o registro não está bloqueado no momento. Com isso teremos um processamento bem mais rápido.

Um registro bloqueado não pode nem sequer ser visualizado pelos usuários, com isso evita-se que seja exibido um registro que está sendo alterado.

Para definir o tipo de Lock, utilizamos a propriedade LockType, conforme indicado no exemplo a seguir, onde definimos o tipo de Lock como Optimistic:

<%
      inst_sql=“Select * from Clientes”     
     
      Set Clientes =  Server.CreateObject(“ADODB.Recordset”)     
     
      Clientes.LockType = 3     
     
       Clientes.Open  inst_sql,  conn, 3, 3     
     
     %>     

Nota: A propriedade LockType deve ser definida antes da utilização do método Open. Ao tentarmos definir a propriedade LockType, com o RecordSet aberto, obteremos a seguinte mensagem de erro:

Tipo de erro: 
ADODB.Recordset (0x800A0E79)
 Operation is not allowed when the object is open.

A mensagem indica que a operação (definir o tipo de Lock) não é permitida quando o objeto está aberto.

Ao invés de utilizarmos o valor 3, podemos utilizar a constante correspondente – adLockOptimistic –, conforme o exemplo:

<%
      inst_sql=“Select * from Clientes”     
     
      Set Clientes =  Server.CreateObject(“ADODB.Recordset”)     
     
      Clientes.LockType = adLockOptimistic     
     
      Clientes.Open  inst_sql,  conn,  adOpenStatic, 3     
     
     %>     
   
  

Agora que já discutimos um pouco sobre cursores, localização do cursor e Lock de registros, podemos partir para o estudo de mais alguns detalhes do objeto RecordSet.

Através da utilização de propriedades de um objeto podemos definir algumas características do objeto e também retornar as características do objeto. Algumas propriedades são somente para leitura, isto significa que apenas podemos verificar o valor da propriedade. Outras propriedades são de leitura e escrita, isto é, podemos definir o valor da propriedade. Para definir o valor de uma propriedade, utilizamos a seguinte sintaxe:

<%  RecordSet.nome_da_propriedade = valor %>

Na Tabela 11.13 estão listadas as principais propriedades do objeto RecordSet.

Tabela 11.13 Principais propriedades do objeto RecordSet.

O objeto RecordSet nos fornece diversos métodos, os quais podem ser utilizados para nos deslocar através dos registros, fazer uma cópia do RecordSet, etc. Para utilizarmos um método do objeto RecordSet, utilizamos a seguinte sintaxe:

<% RecordSet.nome_do_método parâmetro1, parâmetro2, ...,  parâmetron %>

Na Tabela 11.14 estão listados os principais métodos do objeto RecordSet.

Tabela 11.14 Principais métodos do objeto RecordSet.

Agora vamos aprender a executar algumas operações bastante comuns em aplicações Web do dia a dia. Aprenderemos a inserir registros, excluir registros e alterar um determinado registro.