Artigo Clube Delphi Edição 7- Acesso a Banco de dados no Delphi 5

Acesso a Banco de dados no Delphi 5

O Delphi 5 realmente não poderia deixar de ser o tema da seção bugs deste mês. Não, o novo Delphi não está repleto de insetos, como você está imaginando. Muito pelo contrário, a nova ferramenta tem se mostrado um ambiente de trabalho muito estável, em todos os níveis. Durante os 30 dias em que estivemos ministrando workshops sobre as novidades da linguagem, raramente o Delphi apresentou problemas. Porém, o Delphi 5 (assim como 99% dos sistemas atuais), não é bug-free. Os bugs, apesar de parecerem apenas micróbios diante dos insetos do Delphi 4, existem. Esta seção se limita apenas aos problemas encontrados na utilização de acesso a banco de dados com o Delphi. E como sempre, estamos mais uma vez prontos a dedetizar o ambiente para o leitor. Confira!

ADO

Evento OnFilterRecord

Quando alguma rotina está atribuída a este evento, uma exceção do tipo OLE é acionada.

Método GetTableNames

Este método, pertencente ao objeto TADOConnection, não exibe as views criadas no banco de dados. Para isto, o usuário deve utilizar o método OpenSchema.

Relacionamento Máster/Detail

Em um relacionamento deste tipo, criado através das propriedades MasterSource e MasterFields, se a tabela filho for fechada, ao ser reaberta o seu link será perdido, e todo o conteúdo da tabela será exibido.

Outro problema com este relacionamento ocorrer se um filtro for aplicado na tabela pai. Caso isto ocorra e a tabela fique vazia, a tabela filho irá exibir todos os registros, ao invés de permanecer vazia.

Método CancelBatch

Se a tabela estiver em modo de edição, permanecerá. O desenvolvedor terá que utilizar o método Cancel, antes de CancelBatch.

Método ClearFields

Executar este método causará uma exceção. Para realizar esta operação, limpe os campos manualmente.

Método Delete

Após deletar todos os registros de um DataSet, se o método CancelBatch for executado, nada será exibido na tabela. Para voltar com os dados, será necessário digitar o código abaixo:

ADOTable1.moveFirst;

ADOTable1.First;

Método Clear

Executar o método Clear em um campo do tipo Blod, é inútil. Para realmente limpar o campo, é necessário executar a rotina descrita abaixo:

ADODataSet1.UpdateCursorPos;

ADODataSet1.Recordset.

FieldByName[‘BlobField’].

Value := Null;

ADODataSet1.Recordset.

Update(EmptyParam,

EmptyParam);

ADODataSet1.Resync([]);

Erro aleatório

Os problemas aleatórios são os mais divertidos. Aparecem às vezes e sem motivo aparente. O ADO também tem o seu: inserir um registro em uma tabela com algum campo “lookup” nem sempre irá funcionar.

Existe outro probleminha com esta característica: Os métodos AppendRecord e InsertRecord, executados após o fechamento e reabertura da tabela, podem causar Access Violations.

Métodos AppendRecord

Mais uma deste método: executá-lo quando uma DbGrid está conectada a uma tabela vazia irá gerar uma exceção. Use sempre os métodos Insert ou InsertRecord.

Evento OnfilterRecord

Atribuir FALSE ao parâmetro Accept deste evento pode travar o sistema, em alguns casos.

Propriedade IndexName

Quando esta propriedade é configurada, as propriedades IndexFieldCount e IndexField não são automaticamente atualizadas, como ocorre no objeto Ttable. Para capturar estas informações, utilize a coleção IndexDefs.

Método Seek

Chamar este método em um recordset vazio dispara uma OLE Exception, indicando que a tabela está vazia. Verifique a propriedade IsEmpty antes de executar este método.

Restrições de Integridade

Após tentar deletar um registro que possua alguma regra de validação, os insetos irão tomar conta e vários errros serão disparados nas ações realizadas em seqüência. Para evitar este incômodo, execute o método CancelUpdates no evento OnDeleteError:

ADOTable1.RecordSet.

Cancelupdates;

LookUpFields

Quando um dbGrid está linkado com algum campo lookup, é bom evitar que o usuário redimensione ou reposicione o campo. Caso isto aconteça, caracteres estranhos irão aparecer no lugar da informação.

Midas

Usar o ADO com a camada Midas também apresenta alguns inconvenientes. Um deles é com o SQL Server. Quando o método ApplyEpdates é executado, por vezes é exibida a mensagem “Record was changed by another user”. Porém, existe apenas um cliente logado no banco.

Access

Utilizar o quickReport com o banco de dados access, acessado pelo Driver nativo do BDE causa uma access violation. Será necessário criar uma conexão ODBC ou ADO neste caso.

DataModule Designer

O dataDiagram não funciona com todas as impressoras do mercado. Ao imprimir um diagrama, é provável que este não seja impresso corretamente.

DBLookUpComboBox

Se o usuário possuir o IntelliMouse, é bom que esteja usando a versão 2.2 Nas versões anteriores, o aplicativo trava quando o botão “wheel” é utilizado dentro de um DBLookupComboBox.

SQL Explorer

O aplicativo não exibe o conteúdo de uma tabela de forma correta, se existir algum tipo de lock sobre a mesma. A grade permanecerá em branco enquanto a tabela estiver lockada.

MIDAS

Se a tabela conectada possuir um campo Blod com algum conteúdo acima de 11mb, a mensagem “Invalid Pointer operation” é retomada para o cliente, se este executar o método ApplyUpdates seguido de Refresh.

Leituras muito pesadas também estão apresentado inconsistências nesta camada. Após um pesado load de dados a conexão pode falhar ou a mensagem “Server execution error” pode aparecer.

Método CloneCursor

O método CloneCursor, do objeto ClientDataSet, apresenta alguns problemas de sincronização.

XML

Quando o servidor MIDAS possuir mais de 95 registros na tabela pai, e mais de 830 registros na tabela filho, a aplicação rodando em um browser Netscape irá travar. Se o usuário estiver utilizando o Internet Explorer, o procedimento será normal.

Há um problema comum nos dois browser: tentar atualizar o primeiro registro da tabela filho (em um relacionamento master-detail) irá provocar a mensagem “Record Change by another user”, como resposta para o cliente.

Conclusão

Como pode-se notar, são erros de gravidade menor e provavelmente não causarão parada de elevadores nem lançamento de mísseis. Até o fechamento desta edição, a Borland ainda não havia divulgado nenhum UpDatePack para o Delphi, mas não deixe de ficar de olho no website do fabricante em http://www.Borland.com/delphi. Se estiver diante de um posível bug e quiser deixar a sua contribuição, basta enviar um e-mail com a sua dica. Até a próxima!