Curso de dbExpress e DataSnap - Parte V

Curso de dbExpress e DataSnap

Parte V – Introdução ao uso de DataSets Unidirecionais

Neste artigo teremos uma pequena introdução ao conceito e uso de DataSets Unidirecionais do dbExpress, através dos componentes TSQLDataSet, TSQLTable e TSQLQuery.

O que são DataSets unidirecionais

A principal função dos Datasets unidirecionais é recuperar dados de um banco SQL. Eles não mantêm nenhum buffer na memória ou criam qualquer tipo de cache, o que era comum em Datasets bidirecionais, como os usados no BDE. Por serem implementados desta forma, Datasets unidirecionais são bem mais rápidos, exigem pouco processamento e utilizam o mínimo de recursos da máquina, diferentemente dos Datasets TQuery e TTable baseados no BDE. Em Datasets unidirecionais não é permitido: edição, campos lookup, filtros e navegação com prior e last. Ao tentar realizar operações não permitidas sobre um Dataset unidirecional, uma exceção do tipo EdataBaseError é levantada com a mensagem : “Operation not allowed on a unidirectional dataset”.

Até o BDE, quando o usuário “rolava” o cursor de dados na aplicação cliente, por exemplo, usando um DBNavigator, havia uma troca de mensagens com o “kernel” do BDE, que precisava manter o cursor alocado no servidor de banco de dados para permitir a navegação bidirecional. Isso poderia comprometer a performance de soluções baseadas nessa arquitetura, visto que para atender n cliente simultaneamente, o BD precisava manter ativo os cursores alocados no servidor.

Com o dbExpress, o tempo de transação e vida útil do cursor de dados no servidor é bastante pequeno, devido ao uso de DataSetProviders e ClientDataSets. Quando damos um Open em um ClientDataSet, é enviada uma solicitação para o DataSetProvider, que abre o Dataset unidirecional associado. O DataSetProvider “varre” então o cursor aberto pela consulta e “empacota” os dados em um DataPacket, que é alocado na memória do ClientDataSet. Nesse momento, o usuário pode trabalhar tranquilamente nos dados em tela, e o dbExpress pode fechar a consulta (cursor) que não ficará mais ativa (diferente do BDE). Por esse motivo, aplicações dbExpress e DataSnap são extremamente rápidas.

DataSets do dbExpress

Os componentes da guia dbExpress possuem os mesmos ancestrais dos componentes baseados no BDE. Isso significa que muita coisa será semelhante ao migrar de BDE para DBX, graças aos recursos de abstração e polimorfismo, principalmente das classes TDataset, TField e TCustomConnection. Essas classes formam a base para os vários componentes de acesso a dados, campos e conexão a bancos de dados disponíveis no Delphi.

Os DataSets do pacote dbExpress são chamados unidirecionais. Basicamente, este tipo de Dataset tem a função de retornar dados de um servidor SQL, mas não de manipulá-los (buffering). Para cada banco de dados que vamos acessar, o dbExpress fornece um driver específico que deve ser distribuído juntamente com a aplicação. Todos os TDatsets usados no dbExpress herdam de TCustomSQLDataset. Todas as classes do dbExpress estão declaradas na unit SqlExpr.pas.

Exemplo usando somente DataSets Unidirecionais

É possível utilizar DataSets Unidirecionais diretamente, sem usar um ClientDataSet. Essa técnica é bastante utilizada, por exemplo, para confecção de relatórios. Ou seja, lemos um registro, fazemos alguma coisa com ele, e navegamos para o próximo, sem armazenar nada em memória.

É exatamente isso que mostrarei neste exemplo. Inicie uma nova aplicação VCL no Delphi.

Coloque um SQLConnection e um SQLDataSet no formulário.

No SQLConnection, configure uma conexão para o banco Employee do Interbase ou do Firebird (já discutimos conexões anteriormente, de forma que não vou entrar em detalhes aqui).

Aponte o SQLDataSet para o SQLConnection, através da propriedade Connection e em CommandText digite

select * from customer

Coloque um DataSource e aponte sua propriedade DataSet para o SQLDataSet. Neste momento, você deverá receber a seguinte mensagem de erro:

Isso acontece pois um DBGrid exige navegação bidirecional no cursor de dados, o que não é suportado pelo dbExpress. Para isso, você precisaria de um ClientDataSet (não usaremos ainda neste exemplo). Retire então o DBGrid e coloque um ListView.

No evento OnShow do formulário digite:

procedure TForm1.FormShow(Sender: TObject);

var

  it: TListItem;

  i: integer;

begin

  ListView1.ViewStyle := vsReport;

  SQLDataSet1.Open;

  try

    for i := 0 to pred(SQLDataSet1.Fields.Count) do

     with ListView1.Columns.Add do

       Caption := SQLDataSet1.Fields[i].FieldName;

    while not SQLDataSet1.Eof do

    begin

      it := ListView1.Items.Add;

      it.Caption := SQLDataSet1.Fields[0].AsString;

      for i := 1 to pred(SQLDataSet1.Fields.Count) do

        it.SubItems.Append(SQLDataSet1.Fields[i].AsString);

      SQLDataSet1.Next;

    end;

  finally

    SQLDataSet1.Close;

  end;

end;

Aqui não estamos usando nenhuma espécie de cache, fazendo uma navegação otimizada e unidirecional. Para cada registro do SQLDataSet, adicionamos os valores dos campos no ListView e a seguir navegamos para o próximo registro. A figura a seguir mostra o exemplo em execução:

ISQLCursor

Quando usamos DataSets do dbExpress diretamente, na verdade estamos trabalhando diretamente com o driver a ele associado. Essa “interface” dbExpress com o banco de dados é feito através de drivers e interfaces, definidas na unit DBXpress.pas. Veja a seguir a definição da interface responsável pela manipulação de cursores (se você observar, verá que usamos alguns métodos dessa interface no exemplo anterior):