Notifications
Clear all

Modelo Cadastro com listview

7 Posts
2 Usuários
0 Reactions
2,704 Visualizações
(@ranjp)
Posts: 37
Eminent Member
Topic starter
 

Ola pessoas,

Estou tentando adaptar um modelo de cadastro adquirido no site http://www.tomasvasques.com.br com adptacao de Mauro Coutinho.
O meu problema esta na hora de montar a listview. Nao acontece erro nenhum, porem, como o meu BD contem caracteres em japones, os nomes dos campos da listview aparecem somente simbolos e os valores dos campos que tambem possuem caracteres japones tambem nao sao reconhecidos.

Pensei em apagar o controle da listwiew no formulario e inserir um novo controle listview pelo meu excel em japones porem, nao existe o controle Microsoft Listview Control 6.0 na janela adicionar controles em outras ferramentas.... :?

Tambem pensei em mudar apenas a fonte das ferramentas ( lst, txt ), mas nao deu certo.
Alguem poderia me ajudar com esse impasse?

 
Postado : 24/10/2012 11:54 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Ao abrir o arquivo, o mesmo gera diversos erros (campos mesmo nome e outros); creio que é por não ter as fontes do idioma instaladas.Então fica dificil para nos darmos qq ajuda. Olhando na net vi este site http://officetanaka.net/excel/vba/listview/index.htm , porem está em japones;mas "fala" sobre o uso do listview, talvez o ajude

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 25/10/2012 8:37 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

ranjp, é como o Reinaldo disse, temos varios erros ao inicar o arquivo e em uma olhada rapida é mais pelas modificações que você deve ter efetuado.
Quanto ao controle, se ele não está listado nas Referencias, você tem de instala-la manualmente, veja no tópico abaixo:

Habilitar o Controle ListView
http://www.tomasvasquez.com.br/forum/vi ... ImXF2etN-g

Registrando o Controle MSCOMCTL.OCX
viewtopic.php?f=16&t=5990

Se der mais tarde faço uma analise melhor de seu arquivo.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 25/10/2012 2:47 pm
(@ranjp)
Posts: 37
Eminent Member
Topic starter
 

Reinaldo,
Mauro Coutinho,

Sim, eu vi esse site tbem. Ele explica de modo simples, como criar uma listview, mas sem usar aquela parte de SQL.
Eu acho que nao fiz mudancas significativas no modelo original. Apenas mudei os nomes das colunas ( col ), listas ( lst ), caixas de texto ( txt ) de acordo com as minhas necessidades. Tambem mudei o tipo de fonte que as ferramentas em cada formulario utliza ( de tahoma para uma fonte com suporte a japones ).
Outra alteracao que fiz foi uma que o Mauro Coutinho citou no forum do tomasvasques sobre mudar isso "Microsoft.JET.OLEDB.4.0" para isso "Microsoft.ACE.OLEDB.12.0".

Eu nao entendo quase nada de VBA nem ACCESS , SQL. Mas fazendo varias tentativas e indo por exclusoes, acho q o problema esta na parte em que atraves de ADODB.Connection(???) e comandos sql ele pega os dados do BD e monta a listview. Porem acontece o problema de nao reconhecer os caracteres japones. Bom, imagino que o meu problema seja igual a quando alguem do Brasil, com OS e programas em portugues tenta abrir algum site ou documento de office escritos em caracteres nao romanizados. O mesmo acontece qdo abro arquivos com palavras acentuadas ( aparece desenhos no lugar da letra acentuada ).

Com relacao a instalacao do listview, consegui fazer indo em referencias e procurar pelo arquivo MSCOMCTL.OCX conforme o topico citado.

Bom, como vcs nao conseguem nem abrir os arquivos, se fosse possivel pra vcs pegarem o modelo original e no arquivo de BD alterar os dados com alguma fonte nao romanizada talvez conseguissem reproduzir o que esta acontecendo aqui.

Minha proxima tentativa sera montar os arquivos do zero, apenas copiando as instrucoes VBA.
Outra coisa, ainda nao tive tempo de reportar, mas quando clico em filtrar na no formulario de pesquisa, as colunas do listview se duplicam, triplicam, quadruplicam. Por exemplo, se originalmente temos 10 colunas, ao apertar o botao de filtrar aparecem mais 10 ou 20 ou 30 colunas com os mesmos nomes porem sem os valores.

Bom, de qualquer forma, sem poder abrir os arquivos fica dificil para entender o meu problema. Mas se puderem me ajudar, mesmo que na base de hipoteses e imaginacoes, fico muito agradecido.

 
Postado : 25/10/2012 6:54 pm
(@ranjp)
Posts: 37
Eminent Member
Topic starter
 

Nao conseguir mais editar o post acima. Estou adicionando imagem do resultado que obtenho devido ao nao reconhecimento dos caracteres.

 
Postado : 25/10/2012 7:37 pm
(@ranjp)
Posts: 37
Eminent Member
Topic starter
 

Pessoas,

Desculpe-me os varios posts seguidos....
Bom, consegui resolver o problema do reconhecimento dos caracteres, mas nao sei ao certo qual foi a solucao.
1o montei o cadastro do zero no excel 2007 em japones ( me parece que a versao original do modelo-cadastro eh excel 2003 em portugues )
2o aconteceu erro de compilacao nessa parte:

Private Sub PopulaListBox(ByVal ShainCD As String, _
                          ByVal Nome As String, _
                          ByVal DataColocacao As String, _
                          ByVal Telefone As String, _
                          ByVal DataDemissao As String) As Recordset

Para corrigir descobri que em referencias nao estava marcado a opcao Microsoft ActiveX Data Objects Recordsets 6.0 Library

3o apos isso deu novamente erro de compilacao em:

Private Sub PopulaCidades()
    Dim conn As ADODB.Connection

Entao voltei em referencia e marquei a opcao Microsoft ActiveX Data Objects 6.1 Library

Bom, agradeco a atencao do Reinaldo e do Mauro Coutinho e de todos aqueles que nao se pronunciaram mas que tentaram/estao tentando resolver a questao.

 
Postado : 26/10/2012 12:13 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom que conseguiu resolver, eu havia tentado antes porem não tenho nenhuma fonte (como disse :não romanizado) .
Qto a duplicação de dados no listview, provavelmente o que falta é que antes de cada consulta ou "reconsulta" o listview deve ser "limpo"

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 26/10/2012 6:19 am