LISTVIEW

 Tópico anterior Próximo tópico Novo tópico

LISTVIEW

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#478413 - 13/12/2017 12:19:01

ISABELLASILVA
BLUMENAU
Cadast. em:Novembro/2017


   Bom dia a Todos!

Gostaria de Limitar minha listview a carregar somente os últimos 50 linhas do banco de dados,
isto para não ficar muito lento ao abrir o form, caso alguém tenha uma outra sugestão, mas de momento peço ajuda para este código carregar somente as últimos 50 linhas do banco de dados

o código que uso é este

Conexao
       ListFunc.ListItems.Clear
       rs.Open "select  * From Tb4CustoFunc", db, 2, 4
           Do Until rs.EOF
               Set Item = ListFunc.ListItems.Add(, , "" & rs(0))
                   Item.SubItems(1) = "" & rs(1)
                   Item.SubItems(2) = "" & rs(2)
               rs.MoveNext
           Loop
   FecharConexao


Isabella


#478417 - 13/12/2017 14:11:05

OMAR2011
MONTES CLAROS
Cadast. em:Setembro/2011


Última edição em 13/12/2017 17:45:51 por OMAR2011

Select top 50 * From Tb4CustoFunc order by idpro desc




Resposta escolhida #478685 - 27/12/2017 11:06:21

LOVO12
BRASIL
Cadast. em:Maio/2012




Citação:
:
   Bom dia a Todos!

Gostaria de Limitar minha listview a carregar somente os últimos 50 linhas do banco de dados,
isto para não ficar muito lento ao abrir o form, caso alguém tenha uma outra sugestão, mas de momento peço ajuda para este código carregar somente as últimos 50 linhas do banco de dados

o código que uso é este

Conexao
       ListFunc.ListItems.Clear
       rs.Open "select  * From Tb4CustoFunc", db, 2, 4
           Do Until rs.EOF
               Set Item = ListFunc.ListItems.Add(, , "" & rs(0))
                   Item.SubItems(1) = "" & rs(1)
                   Item.SubItems(2) = "" & rs(2)
               rs.MoveNext
           Loop
   FecharConexao

Conexao
       ListFunc.ListItems.Clear
       rs.Open "select top(50) * From Tb4CustoFunc ORDER BY Codigo Desc", db, 2, 4
           Do Until rs.EOF
               Set Item = ListFunc.ListItems.Add(, , "" & rs(0))
                   Item.SubItems(1) = "" & rs(1)
                   Item.SubItems(2) = "" & rs(2)
               rs.MoveNext
           Loop
   FecharConexao

tenta esse código acima acho que resolve .



#478689 - 27/12/2017 12:36:01

OMAR2011
MONTES CLAROS
Cadast. em:Setembro/2011


Última edição em 27/12/2017 12:38:02 por OMAR2011

Coloque algo diferente LOVO12.
Trocar Seis por Meia Dúzia.
Estranho.
Responde isso para ela.
http://www.vbmania.com.br/index.php?modulo=forum&metodo=abrir&id=478619&pagina=1




#478690 - 27/12/2017 12:57:31

LOVO12
BRASIL
Cadast. em:Maio/2012


Citação:
:
Coloque algo diferente LOVO12.
Trocar Seis por Meia Dúzia.
Estranho.
Responde isso para ela.
http://www.vbmania.com.br/index.php?modulo=forum&metodo=abrir&id=478619&pagina=1

bom , implementei como você mesmo disse la em cima porem ,dentro do código da forma correta ,mas os créditos são seus pois a solução para o problema foi você mesmo que deu . e sobre a questão do outro tópico já foi respondido corretamente pelo DAMASCENO.CESAR , estamos aqui um para ajudar o outro.



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por ISABELLASILVA em 28/12/2017 09:38:09