AJUDAR EM CONSULTA SQL!
Os objetos que falo, são os controles que deveriam estar nesse projeto e não estão
é o seu Text, seu list etc etc
Nenhum dos controles esta nesse projeto
Quando abro o seu projeto para rodar, ele me abre o Excel com apenas 1 botão - [Ô]Botão 1[Ô] e mais nada e com isso não consigo rodar o seu projeto, pois para rodar teria que colocar todos os controles com os nomes que vc usou
Caso não queira mandar o projeto com todos os controles, faz assim, pega o comando que mandei e roda no banco e você vai ver que vai trazer o resultado esperado, com isso tem que dar uma verificada na montagem e alimentação do seu list, pois acredito que o problema possa estar nele
é o seu Text, seu list etc etc
Nenhum dos controles esta nesse projeto
Quando abro o seu projeto para rodar, ele me abre o Excel com apenas 1 botão - [Ô]Botão 1[Ô] e mais nada e com isso não consigo rodar o seu projeto, pois para rodar teria que colocar todos os controles com os nomes que vc usou
Caso não queira mandar o projeto com todos os controles, faz assim, pega o comando que mandei e roda no banco e você vai ver que vai trazer o resultado esperado, com isso tem que dar uma verificada na montagem e alimentação do seu list, pois acredito que o problema possa estar nele
Eu mandei sim ele completo não ta faltando nada.
Talvez seja dll. Vo te passar as dlls.
No link mais acima.
Obs.: Ele só funciona no office 32 bits
Talvez seja dll. Vo te passar as dlls.
No link mais acima.
Obs.: Ele só funciona no office 32 bits
Olha não são as dlls, pois todas eu te ja tenho na minha máquina, montei aqui na imagem o que falta e o erro que esta dando
Más vc já rodou o comando no seu banco??
Más vc já rodou o comando no seu banco??
Boa tarde ALVARO!
Este projeto só funciona no office 32 bits.
E sim ele está rodando.
Então se estiver usando office 64 bits não vai funcionar nada direito.
Eu fiz um instalador de dll. vo te passar ele e a imagem do controle de gado funcionando não sei se vai mudar algo.
Este projeto só funciona no office 32 bits.
E sim ele está rodando.
Então se estiver usando office 64 bits não vai funcionar nada direito.
Eu fiz um instalador de dll. vo te passar ele e a imagem do controle de gado funcionando não sei se vai mudar algo.
Fiz a intalação que vc me mandou e provavelmente a ocx ou componente
MSComctlLib
Deve estar faltando
Agora o formulário esta todo preenchido, más a mensagem de erro continua aparecendo no mesmo lugar
E meu Win é Win 7 e meu office 2010, ambos 32bits
MSComctlLib
Deve estar faltando
Agora o formulário esta todo preenchido, más a mensagem de erro continua aparecendo no mesmo lugar
E meu Win é Win 7 e meu office 2010, ambos 32bits
E isso então e pq vc ta usando windows 32 bits. o Instalador e win7 64bits.
Vou analisar e ver como registrar dll pro windows 32bits e ja te passo o instalador.
Vou analisar e ver como registrar dll pro windows 32bits e ja te passo o instalador.
Pronto tenta agora fazendo favor!
Novo instalador.
Novo instalador.
Infelizmente parou no mesmo lugar
O erro e da listview?
Se for eu achei uma versão mais nova da dll. tenta de novo.
Se for eu achei uma versão mais nova da dll. tenta de novo.
Como tinha te passado, o problema era realmente o list, Agora rodou, vamos lá o/
Pelo que entendi o resultado é para trazer o que esta na figura
Se for isso segue o comando ajustado
ComandoSQL = [Ô]SELECT Distinct Top 1 or1.*, orv.dtvacina,orv.Vacinado FROM Origem or1 LEFT JOIN Origemvacina orv on or1.Brinco = orv.Brinco [Ô]
ComandoSQL = ComandoSQL & [Ô]WHERE orv.dtvacina Between #[Ô] & Format(CDate(Me.txt_data_inicial), [Ô]mm/dd/yyyy[Ô]) & [Ô]# And #[Ô] & Format(CDate(Me.txt_data_final), [Ô]mm/dd/yyyy[Ô]) & [Ô]# [Ô]
E lá no final antes de vc conectar ordene pela data
ComandoSQL = ComandoSQL & [Ô]order by orv.dtvacina desc[Ô]
Call Conecta
Set consulta = banco.OpenRecordset(ComandoSQL)
Não estava trazendo nada, exatamente pelo banco não esta reconhecendo a data lançada, consegui reproduzir aqui o que estava acontecendo ai apenas para eu ter certeza e quando usei o comando que te passei, funcionou perfeitamente e coloquei o top 1, só para trazer mesmo apenas 1 resultado, más nesse caso nem era preciso, pois como esta ordenado para trazer o resultado que vc quer, na montagem do list era só lançar o primeiro registro e não dar o loop até o final
Repare que não estou usando as variáveis que vc criou e sim apenas o format e o cdate
Testa ai qqer coisa da um toque
Pelo que entendi o resultado é para trazer o que esta na figura
Se for isso segue o comando ajustado
ComandoSQL = [Ô]SELECT Distinct Top 1 or1.*, orv.dtvacina,orv.Vacinado FROM Origem or1 LEFT JOIN Origemvacina orv on or1.Brinco = orv.Brinco [Ô]
ComandoSQL = ComandoSQL & [Ô]WHERE orv.dtvacina Between #[Ô] & Format(CDate(Me.txt_data_inicial), [Ô]mm/dd/yyyy[Ô]) & [Ô]# And #[Ô] & Format(CDate(Me.txt_data_final), [Ô]mm/dd/yyyy[Ô]) & [Ô]# [Ô]
E lá no final antes de vc conectar ordene pela data
ComandoSQL = ComandoSQL & [Ô]order by orv.dtvacina desc[Ô]
Call Conecta
Set consulta = banco.OpenRecordset(ComandoSQL)
Não estava trazendo nada, exatamente pelo banco não esta reconhecendo a data lançada, consegui reproduzir aqui o que estava acontecendo ai apenas para eu ter certeza e quando usei o comando que te passei, funcionou perfeitamente e coloquei o top 1, só para trazer mesmo apenas 1 resultado, más nesse caso nem era preciso, pois como esta ordenado para trazer o resultado que vc quer, na montagem do list era só lançar o primeiro registro e não dar o loop até o final
Repare que não estou usando as variáveis que vc criou e sim apenas o format e o cdate
Testa ai qqer coisa da um toque
Tópico encerrado , respostas não são mais permitidas