PESQUISA NÃO TRANSFERE TODOS OS DADOS P/ LISTVIEW

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

PESQUISA NÃO TRANSFERE TODOS OS DADOS P/ LISTVIEW

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#485125 - 29/10/2018 20:30:44

OSMARLS
CURITIBA
Cadast. em:Novembro/2015


Boa tarde pessoal, um arquivo no excel com um formulario que transfere dados para o access, quando faço uma pesquisa ele não mostra todos os dados no listview o campo dados não mostra tudo que tem armazenado, como eu posso fazer pra que o listeview mostre tudo?
Desde ja agradeço



#485129 - 30/10/2018 10:49:10

PERCIFILHO
MATAO [SP]
Cadast. em:Dezembro/2009


Deixa ver se eu entendi: você grava os dados no Access, depois você quer mostrar alguns dados numa ListView, é isso?
Posta pra gente saber como você está fazendo a consulta no banco e se puder dar mais detalhes sobre estrutura da tabela, campos, etc.

____________________________________________________
Você sabe que alguém te ama não pelo que ele fala, mas pelo o que faz.
O amor não sobrevive de teorias.




#485130 - 30/10/2018 11:24:55

ALVAROVB2009
GUARULHOS
Cadast. em:Maio/2009


Sim, coloca o a função que vc esta usando para preencher o list, pois falando assim, é um loop simples e que talvez vc deve estar finalizando por algum motivo esse loop antes da hora

Teoria é quando se sabe tudo, e nada funciona. Prática e quando tudo funciona e ninguém sabe porque.
"Aquele que quer aprender gosta que lhe digam quando esta errado;
só o tolo não gosta de ser corrigido -"Prov.12:1


#485132 - 30/10/2018 12:47:06

OSMARLS
CURITIBA
Cadast. em:Novembro/2015


Bom dia, obrigado pelas respostas, segue o código da pesquisa, ele funciona certinho a pesquisa, mas o campo dados na listview não aparece tudo que esta esta no campo do access.
rivate Sub proc_Change()
Dim DB As Database
Dim RS As Recordset
Dim Item As ListItem

et DB = OpenDatabase("C:\Osmar\LIVRO.mdb", False, False, ";PWD=4519")
Set RS = DB.OpenRecordset("Select * From [MO1] WHERE DADOS LIKE '*" & proc & "*'")
While Not RS.EOF
ListView1.ListItems.Clear
Set y = Me.ListView1.ListItems.Add(, , RS(0).Value)
   y.SubItems(0) = RS("data").Value
   y.SubItems(1) = RS("turno").Value
   y.SubItems(2) = RS("operador").Value
   y.SubItems(3) = RS("Dados") ' esse campo não preenche todos os dados na Listview1 ( é um campo com muitos dados digitados no access esta configurado como memorando)
   RS.MoveNext
Wend
ListView1.Refresh

Application.ScreenUpdating = True
End Sub



#485136 - 30/10/2018 14:51:46

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Mas obviamente que não vai ter nada... você está limpando o listview em cada iteração...
Ponha isso: "ListView1.ListItems.Clear" antes do While Not RS.EOF

E estude bem sintaxe e lógica, isso é um erro BEM primário que pode ser mitigado com conhecimento muito básico disso.

_______________________________________________________________________
Gostaria de ter seu sistema Desktop "traduzido" para uma interface web? Podemos conversar...
Virei Oráculo!
The end is nigh, be ready for the nukes!


#485137 - 30/10/2018 16:32:24

OMAR2011
MONTES CLAROS
Cadast. em:Setembro/2011


Última edição em 30/10/2018 16:32:56 por OMAR2011

Além de aparecer somente o último registro, sua declaração não condiz.
Dim Item As ListItem

Set y = Me.ListView1.ListItems.Add(, , RS(0).Value)
   y.SubItems(0) = RS("data").Value




#485138 - 30/10/2018 17:35:48

OSMARLS
CURITIBA
Cadast. em:Novembro/2015


Obrigado  pelas observações amigos, realmente sou um principiante sem muito conhecimento no assunto, vou continuar minha pesquisa.
Obrigado



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


Para responder este tópico o login é requerido
Se você já possui uma conta de usuário por favor faça seu login
Se você não possui uma conta de usuário use a opção Criar usuário