Otimizando o seu Recordset ADO.

A partir da versão 2.1 da ADO temos acesso a uma nova propriedade do objeto Field. A propriedade OPTIMIZE para o objeto Field.

Você pode usar esta propriedade no seu Recordset ADO de forma a otimizar o desempenho do mesmo para certas operações envolvendo ordenação ou busca no Recordset.

Como funciona ?

Ao definir a propriedade OPTIMIZE para um recordset como TRUE a ADO irá criar um campo específico que irá usar automaticamente um índice para qualquer operação que use um SORT , FIND em operações de busca no Recordset :

conexao = "Provider=Microsoft.Jet.OLEDB.4;Data Source=C:\teste\Biblio.mdb"

Dim rs as new ADODB.Recordset

rs.CursorLocation = adUseCliente
rs.Open "Authors" , conexao , adOpenStatic , adLockReadOnly, adCmdTable

rs.Fields("Au_ID").Properties("OPTIMIZE").Value = True

rs.Sort = "Au_ID"

Acima temos um exemplo onde usamos o banco de dados Biblio.mdb e a tabela Authors . Usamos a propriedade OPTIMIZE para o campo Au_ID para em seguida efetuar uma ordenação(Sort) por esta coluna.

O índice local criado , pela utilização da propriedade OPTIMIZE , existe até que o Recordset do lado do cliente seja fechado. (Não abuse deste recurso pois criar um índice local baseado no campo também leva um certo tempo)

Até a próxima ...