[Resolvido]Para visual basic

boas

Preciso da vossa ajuda.

tenho uma consulta da qual quero exportar os dados para um formato personalizado. Os dados terão que ser exportados para um formato que seja possível mostrar num form visual basic.
Lembrei-me de exportar para um relatório, caso alguém já tenha feito alguma coisa parecida digam como fizeram, por favor.

No link que mando tem o access com uma tabela (na realidade a tabela devia ser uma consulta mas não tive tempo para criar a consulta).

Bem nessa consulta vocês podem ver a info que vos falo, preciso de criar um relatorio ou seja la o que for que me mostre a info da seguinte forma:

Func Horas Cozinha Normal Horas Cozinha Extra Horas Quarto Normal Horas Quartos Extra Total de Horas extras Horas totais (Soma de todas as horas normais)

http://www.4shared.com/document/DhOwZJEY/para_vb.html


CUMPs

Não seria mais fácil conectar o seu aplicativo em vb ao bd no Access e gerar o relatório no próprio vb?

como fazo isso?

Percebeu o que pretendia? o que preciso é dizer por cada colaborador que horas é que fez em cada sitio.

Obrigado
Cumps

Porque não utiliza o access em exclusivo para isso? Ou, se entende de VB, faça tudo em BV. Só não entendo o porquê de complicar?

Bem eu não entendo bem nem uma coisa nem outra!Sou um iniciante

Dai tentar fazer tudo em access e depois exporto para vba.

No vba já consegui ver ficheiro mdb num datagrid.

Preciso de apenas de criar um formulario ou uma tabela com os dados organizados da maneira que falei.

Depois a parte de carregar para o vb deixa comigo



Cumps

Então aconselho a dirigir-se a um forum de VB e não misturar as coisas. O Access pode servir de BD. O VB como front end. Siga o meu conselho.

não entendi...
não é possivel fazer o que pedi no access

meu caro amigo:

....tenho uma consulta da qual quero exportar os dados para um formato personalizado. Os dados terão que ser exportados para um formato que seja possível mostrar num form visual basic....

Em que ficamos?

abra uma consulta nova em modo de visualização SQL, mande isto lá para dentro e veja o resultado...


SELECT Dados.Func, DSum("[Horas]","[Dados]","[Tipo de Serviço] ='" & "Cozinha" & "' And [Hora normal ou extra] ='" & "Normal" & "'") AS [Horas Cozinha Normal], DSum("[Horas]","[Dados]","[Tipo de Serviço] ='" & "Cozinha" & "' And [Hora normal ou extra] ='" & "Extra" & "'") AS [Horas Cozinha Extra], DSum("[Horas]","[Dados]","[Tipo de Serviço] ='" & "Quartos" & "' And [Hora normal ou extra] ='" & "Normal" & "'") AS [Horas Quartos Normal], DSum("[Horas]","[Dados]","[Tipo de Serviço] ='" & "Quartos" & "' And [Hora normal ou extra] ='" & "Extra" & "'") AS [Horas Quartos Extra], DSum("[Horas]","[Dados]","[Hora normal ou extra] ='" & "Normal" & "'") AS [Horas Totais]
FROM Dados
GROUP BY Dados.Func, DSum("[Horas]","[Dados]","[Tipo de Serviço] ='" & "Cozinha" & "' And [Hora normal ou extra] ='" & "Normal" & "'"), DSum("[Horas]","[Dados]","[Tipo de Serviço] ='" & "Cozinha" & "' And [Hora normal ou extra] ='" & "Extra" & "'"), DSum("[Horas]","[Dados]","[Tipo de Serviço] ='" & "Quartos" & "' And [Hora normal ou extra] ='" & "Normal" & "'"), DSum("[Horas]","[Dados]","[Tipo de Serviço] ='" & "Quartos" & "' And [Hora normal ou extra] ='" & "Extra" & "'"), DSum("[Horas]","[Dados]","[Hora normal ou extra] ='" & "Normal" & "'");

A consulta está de acordo com o pedido, o resto é só fazer um relatório baseado nessa consulta ou exportar essa consulta mesmo.

vieirasoft

O que você está a dizer tem lógica, mas é que eu não tenho conhecimento ainda para isso. E como já em tempos consegui ver a info do access no datagrid no vb, agora vou optar pela mesma solução.

A solução do nosso colega MarioFernandes funcionou, era mesmo isso que eu pretendia. Com alguns ajustes mas estamos lá.

Obrigado pela ajuda pessoal

Cumps



Editado pelo Moderador Global Dilson em Data: Ter Jul 26, 2011 3:09 pm

Obrigado pela sua resposta, se funcionou é porque eu entendi direito e só tentei ajudar.

Abraço

eu estive a ler o seu código e percebi...ainda mais contente fiquei

Ja começo a perceber mais alguma coisa de access.

Mas falta ajustar um pormenor. No exemplo que vos envio so tinha um funcionario mas se tiver mais que um o codigo assume os valores iguais para todos.

Imaginem...temos o joão e o paulo.

O joão trabalha e o paulo não!
A consulta escreve nos valores do joão no paulo...

Como resolvo isso?

Cumps

teste assim, aqui funcionou.



SELECT Dados.Func, DSum("[Horas]","[Dados]","[Tipo de Serviço] ='" & "Cozinha" & "' And [Hora normal ou extra] ='" & "Normal" & "' And [Func]='" & [Func] & "'") AS [Horas Cozinha Normal], DSum("[Horas]","[Dados]","[Tipo de Serviço] ='" & "Cozinha" & "' And [Hora normal ou extra] ='" & "Extra" & "' And [Func]='" & [Func] & "'") AS [Horas Cozinha Extra], DSum("[Horas]","[Dados]","[Tipo de Serviço] ='" & "Quartos" & "' And [Hora normal ou extra] ='" & "Normal" & "' And [Func]='" & [Func] & "'") AS [Horas Quartos Normal], DSum("[Horas]","[Dados]","[Tipo de Serviço] ='" & "Quartos" & "' And [Hora normal ou extra] ='" & "Extra" & "' And [Func]='" & [Func] & "'") AS [Horas Quartos Extra], DSum("[Horas]","[Dados]","[Hora normal ou extra] ='" & "Normal" & "'") AS [Horas Totais]
FROM Dados
GROUP BY Dados.Func, DSum("[Horas]","[Dados]","[Tipo de Serviço] ='" & "Cozinha" & "' And [Hora normal ou extra] ='" & "Normal" & "' And [Func]='" & [Func] & "'"), DSum("[Horas]","[Dados]","[Tipo de Serviço] ='" & "Cozinha" & "' And [Hora normal ou extra] ='" & "Extra" & "' And [Func]='" & [Func] & "'"), DSum("[Horas]","[Dados]","[Tipo de Serviço] ='" & "Quartos" & "' And [Hora normal ou extra] ='" & "Normal" & "' And [Func]='" & [Func] & "'"), DSum("[Horas]","[Dados]","[Tipo de Serviço] ='" & "Quartos" & "' And [Hora normal ou extra] ='" & "Extra" & "' And [Func]='" & [Func] & "'"), DSum("[Horas]","[Dados]","[Hora normal ou extra] ='" & "Normal" & "'");




Editado pelo Moderador Global Dilson em Data/hora: Ter Jul 26, 2011 3:15 pm

ainda não testei a sua ultima dica.

Estava fazendo isto no meu ficheiro e deu este erro:

erro sintaxe (operador em falta) na expressão de consulta 'teste na consulta.Campo5'

SELECT teste na consulta.Campo5,

Será por eu estar a fazer uma consulta a uma consulta?

Cumps

Mario

Alterei o codigo:

SELECT Dados.Func,

DSum("[Horas]","[Dados]","[Tipo de Serviço] ='" & "Cozinha" & "' And [Hora normal ou extra] ='" & "Normal" & "' And [Func]='" & [Func] & "'") AS [Horas Cozinha Normal],
DSum("[Horas]","[Dados]","[Tipo de Serviço] ='" & "Cozinha" & "' And [Hora normal ou extra] ='" & "Extra" & "' And [Func]='" & [Func] & "'") AS [Horas Cozinha Extra],
DSum("[Horas]","[Dados]","[Tipo de Serviço] ='" & "Quartos" & "' And [Hora normal ou extra] ='" & "Normal" & "' And [Func]='" & [Func] & "'") AS [Horas Quartos Normal],
DSum("[Horas]","[Dados]","[Tipo de Serviço] ='" & "Quartos" & "' And [Hora normal ou extra] ='" & "Extra" & "' And [Func]='" & [Func] & "'") AS [Horas Quartos Extra],
DSum("[Horas]","[Dados]","[Hora normal ou extra] ='" & "Normal" & "' And [Func]='" & [Func] & "'") AS [Horas Totais]


FROM Dados

GROUP BY Dados.Func,
DSum("[Horas]","[Dados]","[Tipo de Serviço] ='" & "Cozinha" & "' And [Hora normal ou extra] ='" & "Normal" & "' And [Func]='" & [Func] & "'"),
DSum("[Horas]","[Dados]","[Tipo de Serviço] ='" & "Cozinha" & "' And [Hora normal ou extra] ='" & "Extra" & "' And [Func]='" & [Func] & "'"),
DSum("[Horas]","[Dados]","[Tipo de Serviço] ='" & "Quartos" & "' And [Hora normal ou extra] ='" & "Normal" & "' And [Func]='" & [Func] & "'"),
DSum("[Horas]","[Dados]","[Tipo de Serviço] ='" & "Quartos" & "' And [Hora normal ou extra] ='" & "Extra" & "' And [Func]='" & [Func] & "'"),
DSum("[Horas]","[Dados]","[Hora normal ou extra] ='" & "Normal" & "' And [Func]='" & [Func] & "'");


Senão na "Horas Totais" ele volta a fazer o que fazia, somar igual para todos os func.


Beleza

Não estou e conseguindo resolver aquele problema da síntese...

cumps

assim:


SELECT Dados.Func, DSum("[Horas]","[Dados]","[Tipo de Serviço] ='" & "Cozinha" & "' And [Hora normal ou extra] ='" & "Normal" & "' And [Func]='" & [Func] & "'") AS [Horas Cozinha Normal],
DSum("[Horas]","[Dados]","[Tipo de Serviço] ='" & "Cozinha" & "' And [Hora normal ou extra] ='" & "Extra" & "' And [Func]='" & [Func] & "'") AS [Horas Cozinha Extra],
DSum("[Horas]","[Dados]","[Tipo de Serviço] ='" & "Quartos" & "' And [Hora normal ou extra] ='" & "Normal" & "' And [Func]='" & [Func] & "'") AS [Horas Quartos Normal],
DSum("[Horas]","[Dados]","[Tipo de Serviço] ='" & "Quartos" & "' And [Hora normal ou extra] ='" & "Extra" & "' And [Func]='" & [Func] & "'") AS [Horas Quartos Extra],
DSum("[Horas]","[Dados]","[Hora normal ou extra] ='" & "Normal" & "' And [Func]='" & [Func] & "'") AS [Horas Totais]
FROM Dados
GROUP BY Dados.Func, DSum("[Horas]","[Dados]","[Tipo de Serviço] ='" & "Cozinha" & "' And [Hora normal ou extra] ='" & "Normal" & "' And [Func]='" & [Func] & "'"),
DSum("[Horas]","[Dados]","[Tipo de Serviço] ='" & "Cozinha" & "' And [Hora normal ou extra] ='" & "Extra" & "' And [Func]='" & [Func] & "'"),
DSum("[Horas]","[Dados]","[Tipo de Serviço] ='" & "Quartos" & "' And [Hora normal ou extra] ='" & "Normal" & "' And [Func]='" & [Func] & "'"),
DSum("[Horas]","[Dados]","[Tipo de Serviço] ='" & "Quartos" & "' And [Hora normal ou extra] ='" & "Extra" & "' And [Func]='" & [Func] & "'");

onde está a diferença??? Mario.

Porque que dava o erro da sintaxe?

cumps

A diferença estava numa aspas dupla que você tinha a mais.


Se estamos a evoluír para a resoluçao do seu problema, então fica aqui ainda mais completo, com a função Nz se existir nulos e não dar erro.



SELECT Dados.Func,
Nz(DSum("[Horas]","[Dados]","[Tipo de Serviço] ='" & "Cozinha" & "' And [Hora normal ou extra] ='" & "Normal" & "' And [Func]='" & [Func] & "'"),0) AS [Horas Cozinha Normal],
Nz(DSum("[Horas]","[Dados]","[Tipo de Serviço] ='" & "Cozinha" & "' And [Hora normal ou extra] ='" & "Extra" & "' And [Func]='" & [Func] & "'"),0) AS [Horas Cozinha Extra],
Nz(DSum("[Horas]","[Dados]","[Tipo de Serviço] ='" & "Quartos" & "' And [Hora normal ou extra] ='" & "Normal" & "' And [Func]='" & [Func] & "'"),0) AS [Horas Quartos Normal],
Nz(DSum("[Horas]","[Dados]","[Tipo de Serviço] ='" & "Quartos" & "' And [Hora normal ou extra] ='" & "Extra" & "' And [Func]='" & [Func] & "'"),0) AS [Horas Quartos Extra],
Nz(DSum("[Horas]","[Dados]","[Hora normal ou extra] ='" & "Normal" & "' And [Func]='" & [Func] & "'"),0) AS [Horas Totais]
FROM Dados
GROUP BY Dados.Func,
Nz(DSum("[Horas]","[Dados]","[Tipo de Serviço] ='" & "Cozinha" & "' And [Hora normal ou extra] ='" & "Normal" & "' And [Func]='" & [Func] & "'"),0),
Nz(DSum("[Horas]","[Dados]","[Tipo de Serviço] ='" & "Cozinha" & "' And [Hora normal ou extra] ='" & "Extra" & "' And [Func]='" & [Func] & "'"),0),
Nz(DSum("[Horas]","[Dados]","[Tipo de Serviço] ='" & "Quartos" & "' And [Hora normal ou extra] ='" & "Normal" & "' And [Func]='" & [Func] & "'"),0),
Nz(DSum("[Horas]","[Dados]","[Tipo de Serviço] ='" & "Quartos" & "' And [Hora normal ou extra] ='" & "Extra" & "' And [Func]='" & [Func] & "'"),0)
ORDER BY
Nz(DSum("[Horas]","[Dados]","[Tipo de Serviço] ='" & "Cozinha" & "' And [Hora normal ou extra] ='" & "Normal" & "' And [Func]='" & [Func] & "'"),0) DESC;

boa Mario

Mas onde eu tinha as aspas?

Desculpe a persistência mas é que estou fulo por estar a olhar pro codigo e não ver...Quanto mais olho menos vejo lol

Obrigado

cumps

continua-me a dar o mesmo erro!

Será por eu ter o nome da consulta com espaço?

cumps

Bem consegui acertar. O seu codigo ficou a funcionar!

Mas demora muito tempo abrir a consulta, mesmo fazendo uma consulta com 2 consultas!

Será por estar a fazer consulta a uma consulta?

CUMPs

Bom dia

não necessita de duas consultas, repare como fiz

http://www.speedyshare.com/files/29596604/para_vb_2.rar