Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Carregar 50 primeir...
 
Notifications
Clear all

Carregar 50 primeiros registros em ListView

 
2024 - VBA & Macros
Post Recente por Wagner Morel 7 anos atrás
3 Posts
3 Usuários
0 Reactions
1,132 Visualizações
RSS
 Luk
(@luk)
Posts: 44
Eminent Member
Topic starter
 

Bom dia a Todos!

preciso muito da ajuda dos amigos,
Queria ao carregar minha listview limitar as 50 últimos cadastros do banco de dados,

este é o código que uso para carregar minha listview no banco de dados Access

 AbrirConexao
       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
 
Postado : 13/12/2017 9:35 am
 klarc28
(@klarc28)
Posts: 971
Prominent Member
 

Favor editar o título do tópico para algo mais específico. Por exemplo:

Carregar 50 primeiros registros em ListView

dim contador as integer
contador = 1
AbrirConexao
ListFunc.ListItems.Clear
rs.Open "select * From Tb4CustoFunc", db, 2, 4
Do Until rs.EOF
if contador <= 50 then
Set Item = ListFunc.ListItems.Add(, , "" & rs(0))
Item.SubItems(1) = "" & rs(1)
Item.SubItems(2) = "" & rs(2)
contador = contador +1
end if
rs.MoveNext
Loop
FecharConexao
 
Postado : 13/12/2017 9:42 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Luk,

Boa tarde!

Ao inserir código VBA aqui no fórum, solicitamos, mais uma vez, atentar para s regras do fórum. Códigos VBA devem ser inseridos com o uso da ferramenta CODE existente no início da caixa de mensagens.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 13/12/2017 10:15 am
Forum Jump:
  Tópico Anterior
Próximo Tópico