CONSULTA SQL MUITO LENTA NA REDE

MARCELO.TREZE 13/01/2014 12:30:55
#432986
colega tente o seguinte então volte para o que estava, e siga as alterações abaixo

Dim fldCidade
Dim rs As ADODB.Recordset

    
    Set rs = New ADODB.Recordset
    
    rs.Open [Ô]SELECT DISTINCT Cidade FROM TabCEP WHERE UF=[ô][Ô] & strUF & [Ô][ô][Ô], con, adUseServer, adOpenKeyset, adLockReadOnly [ô]


Set fldCidade = rs.Fields([Ô]Cidade[Ô]) [ô] aqui colocar o id do campo é mais rápido que o nome ex: rs.Fields(0)
                                                          [ô] porém você deverá indicar o id do campo Cidade.
cbo.visible = False
While Not rs.EOF
       cbo.AddItem fldCidade
    rs.MoveNext
Wend 
cbo.Visible = True


bom supostamente você tornando o combo invisivel durante o carregamento torna o preenchimento mais rápido, devido ao fato de não se ficar redesenhando o combo
ANDRESNOXI 24/01/2014 09:48:47
#433500
Obrigado a todos.

Fiz as mudanças sugeridas, somadas com outras de outras pesquisas que fiz, então consegui uma boa melhora.
Página 2 de 2 [12 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar