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):

�

ISQLCursor = interface

�� function SetOption(eOption: TSQLCursorOption;

�� PropValue: LongInt): SQLResult; stdcall;

�� function GetOption(eOption: TSQLCursorOption; PropValue: Pointer;

�� MaxLength: SmallInt; out Length: SmallInt): SQLResult; stdcall;

�� function getErrorMessage(Error: PChar): SQLResult; overload; stdcall;

�� function getErrorMessageLen(out ErrorLen: SmallInt): SQLResult; stdcall;

�� function getColumnCount(var pColumns: Word): SQLResult; stdcall;

�� function getColumnNameLength(

�� ColumnNumber: Word;

�� var pLen: Word): SQLResult; stdcall;

�� function getColumnName(ColumnNumber: Word; pColumnName: PChar): SQLResult;

stdcall;

�� function getColumnType(ColumnNumber: Word; var puType: Word;

�� var puSubType: Word): SQLResult; stdcall;

�� function� getColumnLength(ColumnNumber: Word; var pLength: LongWord):

SQLResult; stdcall;

�� function getColumnPrecision(ColumnNumber: Word;

�� var piPrecision: SmallInt): SQLResult; stdcall;

�� function getColumnScale(ColumnNumber: Word; var piScale: SmallInt): SQLResult;

stdcall;

�� function isNullable(ColumnNumber: Word; var Nullable: LongBool): SQLResult; stdcall;

�� function isAutoIncrement(ColumnNumber: Word; var AutoIncr: LongBool): SQLResult; stdcall;

�� function isReadOnly(ColumnNumber: Word; var ReadOnly: LongBool): SQLResult; stdcall;

�� function isSearchable(ColumnNumber: Word; var Searchable: LongBool): SQLResult; stdcall;

�� function isBlobSizeExact(ColumnNumber: Word; var IsExact: LongBool): SQLResult; stdcall;

�� function next: SQLResult; stdcall;

�� function getString(ColumnNumber: Word; Value: Pointer;