Olá amigos, como faço para acessar tabelas o mais rápido possível?

Uso VB6 e access 2000 e ADO

ESTOU FAZENDO ISSO..

    QdSQL = "SELECT Nome FROM Coletores ORDER BY Nome;"
    Set Coletores = New ADODB.Recordset
    Coletores.Open QdSQL, bd, adOpenForwardOnly, adLockBatchOptimistic
    Do While Not Coletores.EOF
        CboColetor.AddItem Coletores.Fields!Nome
        Coletores.MoveNext
    Loop

.. MAS NÃO ESTA TÃO RÁPIDO COMO O ESPERADO

 

qualquer ajuda será bem vinda...abraços..

Qto está demorando? Qtos registros são?

Tente usando outra versão do Access, esta 2000, é a pior de todas, além de corromper com facilidade.

 

vlu//

tenho um sistema em access 97 (ADO), o .Exe e o BD ficam no servidor, já fazem 2 anos e o banco esta com 54Mb e funcionando perfeitamente e rapidinho.

(+/- 30 Tabelas).

Obs.: Corrompeu o BD uma vez, quando um usuário conectado ao BD desligou o micro da tomada, foi só restaurar o BD tudo voltou a funcionar.

(Atualmente estou convertendo para PostGree (BD Free).

Eu já trabalhei com tabela no access de 500.000 registros. Não me perguntem pq enfiar td isso no access pois sou apenas um programador  rsrsrsrsrs :)

 

O acesso aos registros ficava aceitável qdo a tabela era indexada e fazia consultas mais exatas como "CAMPO LIKE 'VALOR%'" ou "campo = 'valor'" isso diminui bastante o tempo mesmo com a quantidade de registros que citei. O mais problemático foi fazer uma forma de compactar o banco para que não estourasse 2GB. A manutenção automática do BD deu muito trabalho mas no fim ficou satisfatória, porém longe de ser a a melhor solução.

 

at+

ed porque vc não faz set cboColetor.datasource=Coletores

                                      cboColetor.DataField="Nomes"