Álvaro
|
GUARULHOS
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 19/04/2009 20:46 hs
Galera preciso de uma forcinha de vcs.
Tenho um banco Acess e estou carregando o cadastro de itens no grid (18320 itens) só que está demorando 50 seg. para carregar.
Estive olhando aki no site sobre esse assunto e vi que no mês passado aconteceu algo parecido, e foi dado a idéia de carregar pelo mshflexgrid, fiz esse teste e pasme, demorou mais do que 2 min para carregar.
Alguém tem idéia de como posso fazer para carregar o grid mais rápido?
Nota, o select é rápido não demora nem 1 seg, o problema é quando ele entra no while para carregar o grid segue abaixo o código que estou usando para carregar o grid
Sql = "Select codbarras,descricao,estoque,estoqueminimo,valorvenda from itens where desativado = False order by descricao"
Set Banco = db.Execute(Sql)
While Not Banco.EOF
Grid.AddItem Banco(0) & Chr(9) & Banco(1) & Chr(9) & Banco(2) & Chr(9) & Banco(3) & Chr(9) & Format(Banco(4), "###,###,##0.00")
Banco.MoveNext
wend
Agradeço a todos !!!
Obs:
Esqueci de colocar, quanto carrego um combo com o cadastro de itens ele demora 9 seg
|
|
TÓPICO EDITADO
|
|
|
|
|
|
Álvaro
|
GUARULHOS
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 19/04/2009 21:41 hs
Problema resolvido, eu coloquei - Grid.Redraw = False - antes do while e - Grid.Redraw = True - depois do while
O tempo passou de 50 seg, para aprox 4,5 seg
O código ficou assim:
Grid.Redraw = False
Sql = "Select codbarras,descricao,estoque,estoqueminimo,valorvenda from itens where desativado = False order by descricao"
Set Banco = db.Execute(Sql)
While Not Banco.EOF
Grid.AddItem Banco(0) & Chr(9) & Banco(1) & Chr(9) & Banco(2) & Chr(9) & Banco(3) & Chr(9) & Format(Banco(4), "###,###,##0.00")
Banco.MoveNext
Wend
Grid.Redraw = True
|
|
TÓPICO EDITADO
|
|
|
|
|
