Utilizar consultas união para combinar várias consultas num único resultado

No exemplo da secção anterior com a base de dados da Northwind, só foram combinados os dados de duas tabelas. No entanto, pode combinar três ou mais tabelas muito facilmente numa consulta união. Por exemplo, continuando com o exemplo anterior, poderá também querer incluir os nomes dos colaboradores no resultado da consulta. Pode fazê-lo ao adicionar uma terceira consulta e combinar com a instrução SQL anterior com uma palavra-chave UNION adicional, da seguinte forma:

SELECT Customers.Company, Customers.[Last Name], Customers.[First Name]
FROM Customers

UNION

SELECT Suppliers.Company, Suppliers.[Last Name], Suppliers.[First Name]
FROM Suppliers

UNION

SELECT Employees.Company, Employees.[Last Name], Employees.[First Name]
FROM Employees

ORDER BY [Last Name], [First Name];

Quando consultar o resultado na vista Folha de Dados, verá todos os colaboradores na lista com o nome da empresa de exemplo, o que poderá não ser muito útil. Se quiser que esse campo indique se uma pessoa é um funcionário interno, de um fornecedor ou de um cliente, pode incluir um valor fixo em vez do nome da empresa. A sintaxe SQL teria o seguinte aspeto:

SELECT "Customer" As Employment, Customers.[Last Name], Customers.[First Name]
FROM Customers

UNION

SELECT "Supplier" As Employment, Suppliers.[Last Name], Suppliers.[First Name]
FROM Suppliers

UNION

SELECT "In-house" As Employment, Employees.[Last Name], Employees.[First Name]
FROM Employees

ORDER BY [Last Name], [First Name];

Eis como o resultado será apresentado na vista Folha de Dados. O Access apresenta estes cinco registos de exemplo:

A consulta acima pode ser reduzida ainda mais, tendo em conta que o Access só lê os nomes dos campos do resultado da primeira consulta numa consulta união. Aqui, como pode ver, removemos o resultado das secções da segunda e terceira consultas:

SELECT "Customer" As Employment, [Last Name], [First Name]
FROM Customers

UNION

SELECT "Supplier", [Last Name], [First Name]
FROM Suppliers

UNION

SELECT "In-house", [Last Name], [First Name]
FROM Employees

ORDER BY [Last Name], [First Name];

Numa consulta união do Access, só é permitido aplicar ordenação uma vez, mas pode filtrar cada consulta individualmente. Ao utilizar como base a consulta união da secção anterior, eis um exemplo daquilo que filtrámos em cada consulta ao adicionar a cláusula WHERE.

SELECT "Customer" As Employment, Customers.[Last Name], Customers.[First Name]
FROM Customers
WHERE [State/Province] = "UT"

UNION

SELECT "Supplier", [Last Name], [First Name]
FROM Suppliers
WHERE [Job Title] = "Sales Manager"

UNION

SELECT "In-house", Employees.[Last Name], Employees.[First Name]
FROM Employees
WHERE City = "Seattle"

ORDER BY [Last Name], [First Name];

Mude para a vista Folha de Dados e verá resultados semelhantes ao seguinte:

Se as consultas que pretende unir forem muito diferentes, poderá deparar-se com uma situação em que o campo de resultado tem de combinar dados de diferentes tipos. Se assim for, a consulta união irá devolver mais frequentemente os resultados como um tipo de dados de texto, uma vez que esse tipo de dados pode incluir texto e números.

Para compreender como este processo funciona, iremos utilizar a consulta união Product Transactions (Transações de Produtos) na base de dados de exemplo da Northwind. Abra essa base de dados de exemplo e, em seguida, abra a consulta Product Transactions (Transações de Produtos) na vista Folha de Dados. Os últimos dez registos deverão ser semelhantes a este resultado:

Imaginemos que pretende dividir o campo Quantity (Quantidade) em dois: Buy (Itens Comprados) e Sell (Itens Vendidos). Também vamos partir do princípio que pretende ter um valor fixo de zero para o campo sem valores. Este é o aspeto da sintaxe SQL para esta consulta união:

SELECT [Product ID], [Order Date], [Company Name], [Transaction], 0 As Buy, [Quantity] As Sell
FROM [Product Orders]

UNION

SELECT [Product ID], [Creation Date], [Company Name], [Transaction], [Quantity] As Buy, 0 As Sell
FROM [Product Purchases]

ORDER BY [Order Date] DESC; 

Se mudar para a vista Folha de Dados, verá os últimos dez registos apresentados da seguinte forma:

E se, continuando com este exemplo, quiser apresentar os campos com zero como vazios? Pode modificar a sintaxe SQL para apresentar uma entrada vazia em vez de zero ao adicionar a palavra-chave Null da seguinte forma:

SELECT [Product ID], [Order Date], [Company Name], [Transaction], Null As Buy, [Quantity] As Sell
FROM [Product Orders]

UNION

SELECT [Product ID], [Creation Date], [Company Name], [Transaction], [Quantity] As Buy, Null As Sell
FROM [Product Purchases]

ORDER BY [Order Date] DESC;

Contudo, como já deve ter observado, ao mudar para a vista Folha de Dados, obtém um resultado inesperado. Na coluna Buy (Itens Comprados), todos os campos foram limpos:

Isto acontece porque o Access determina os tipos de dados dos campos da primeira consulta. Neste exemplo, Null não é um número.

Então, o que acontece se tentar inserir uma cadeia vazia para o valor em branco dos campos? A sintaxe SQL para este procedimento poderá ter o seguinte aspeto:

SELECT [Product ID], [Order Date], [Company Name], [Transaction], "" As Buy, [Quantity] As Sell
FROM [Product Orders]

UNION

SELECT [Product ID], [Creation Date], [Company Name], [Transaction], [Quantity] As Buy, "" As Sell
FROM [Product Purchases]

ORDER BY [Order Date] DESC;

Quando mudar para a vista Folha de Dados, verá que o Access obteve os valores de Buy (Itens Comprados), mas que os converteu em texto. Pode verificar que estes são valores de texto, porque estão alinhados à esquerda na vista Folha de Dados. A cadeia vazia na primeira consulta não é um número e é por isso que vê estes resultados. Irá reparar que os valores de Sell (Itens Vendidos) também são convertidos em texto porque os registos de compra contêm uma cadeia vazia.

Como pode resolver este problema?

Uma solução é fazer com que a consulta espere que o valor do campo seja um número. Pode fazê-lo ao utilizar a expressão:

IIf(False, 0, Null)

A condição a verificar, False (Falso), nunca será True (Verdadeiro), pelo que a expressão irá sempre devolver Null (Nulo), mas o Access irá avaliar ambas as opções de resultado e decidir se é numérico ou Null (Nulo).

Eis como pode utilizar esta expressão no seu exemplo prático:

SELECT [Product ID], [Order Date], [Company Name], [Transaction], IIf(False, 0, Null) As Buy, [Quantity] As Sell
FROM [Product Orders]

UNION

SELECT [Product ID], [Creation Date], [Company Name], [Transaction], [Quantity] As Buy, Null As Sell
FROM [Product Purchases]

ORDER BY [Order Date] DESC;

Repare que não é necessário modificar a segunda consulta.

Se mudar para a vista Folha de Dados, verá o resultado que pretendemos:

Um método alternativo para obter o mesmo resultado é preceder as consultas na consulta união com outra consulta:

SELECT 
    0 As [Product ID], Date() As [Order Date], 
    "" As [Company Name], "" As [Transaction], 
    0 As Buy, 0 As Sell
FROM [Product Orders]
WHERE False

Para cada campo, o Access devolve os valores fixos do tipo de dados que definiu. É claro que não quer que o resultado desta consulta interfira com os resultados, por isso o truque para evitar esta situação é incluir a cláusula WHERE como False:

WHERE False

Isto pode ser um pouco complicado, uma vez que este valor é sempre falso e depois a consulta não devolve resultados. Ao combinar esta instrução com a sintaxe SQL existente, obtemos uma instrução completa da seguinte forma:

SELECT 
    0 As [Product ID], Date() As [Order Date], 
    "" As [Company Name], "" As [Transaction], 
    0 As Buy, 0 As Sell
FROM [Product Orders]
WHERE False

UNION

SELECT [Product ID], [Order Date], [Company Name], [Transaction], Null As Buy, [Quantity] As Sell
FROM [Product Orders]

UNION

SELECT [Product ID], [Creation Date], [Company Name], [Transaction], [Quantity] As Buy, Null As Sell
FROM [Product Purchases]

ORDER BY [Order Date] DESC;

Um caso especial da consulta união é a possibilidade de combinar um conjunto de registos num único registo que contém a soma de um ou mais campos.

Eis outro exemplo que pode criar na base de dados de exemplo da Northwind para ver como pode obter um total numa consulta união.

1. Crie uma nova consulta simples para ver a compra de cervejas (Product ID=34 na base de dados da Northwind) ao utilizar a seguinte sintaxe SQL:

   SELECT [Purchase Order Details].[Date Received], [Purchase Order Details].Quantity
   FROM [Purchase Order Details]
   WHERE ((([Purchase Order Details].[Product ID])=34))
   
   ORDER BY [Purchase Order Details].[Date Received];

2. Mude para a vista Folha de Dados e deverá conseguir ver quatro compras:

   Date Received (Data de Receção)	Quantity (Quantidade)
   22/01/2006	100
   22/01/2006	60
   04/04/2006	50
   05/04/2006	300

3. Para obter o total, crie uma consulta de agregação simples com a seguinte sintaxe SQL:

   SELECT Max([Date Received]), Sum([Quantity]) AS SumOfQuantity
   FROM [Purchase Order Details]
   WHERE ((([Purchase Order Details].[Product ID])=34))

4. Mude para a vista Folha de Dados e deverá ver apenas um registo:

   MaxOfDate Received (MáximoDeData de Receção)	SumOfQuantity (SomaDaQuantidade)
   05/04/2006	510

5. Combine estas duas consultas numa consulta união para acrescentar o registo com a quantidade total aos registos de compras:

   SELECT [Purchase Order Details].[Date Received], [Purchase Order Details].Quantity
   FROM [Purchase Order Details]
   WHERE ((([Purchase Order Details].[Product ID])=34))
   
   UNION
   
   SELECT Max([Date Received]), Sum([Quantity]) AS SumOfQuantity
   FROM [Purchase Order Details]
   WHERE ((([Purchase Order Details].[Product ID])=34))
   
   ORDER BY [Purchase Order Details].[Date Received];

6. Mude para a vista Folha de Dados e deverá conseguir ver as quatro compras com a soma de cada, seguidas de um registo que mostra o total da quantidade:

   Date Received (Data de Receção)	Quantity (Quantidade)
   22/01/2006	60
   22/01/2006	100
   04/04/2006	50
   05/04/2006	300
   05/04/2006	510

Estas são as instruções básicas para somar totais numa consulta união. Também poderá querer incluir valores fixos em ambas as consultas como "Detail" (Detalhes) e "Total" para separar visualmente o registo do total dos outros registos. Pode consultar como utilizar valores fixos na secção Combinar três ou mais tabelas ou consultas numa consulta união.

Por predefinição, as consultas união no Access só incluem registos diferentes. E se quiser incluir todos os registos? Aqui poderá ser útil outro exemplo.

Na secção anterior, mostrámos como criar um total numa consulta união. Modifique a sintaxe SQL dessa consulta união para incluir Product ID= 48:

SELECT [Purchase Order Details].[Date Received], [Purchase Order Details].Quantity
FROM [Purchase Order Details]
WHERE ((([Purchase Order Details].[Product ID])=48))

UNION

SELECT Max([Date Received]), Sum([Quantity]) AS SumOfQuantity
FROM [Purchase Order Details]
WHERE ((([Purchase Order Details].[Product ID])=48))

ORDER BY [Purchase Order Details].[Date Received];

Mude para a vista Folha de Dados e deverá conseguir ver um resultado não muito exato:

Um registo não devolve o dobro da quantidade no total.

A razão pela qual que verá este resultado é porque num dia a mesma quantidade de chocolates foi vendida duas vezes, conforme está registado na tabela Purchase Order Details (Detalhes da Nota de Encomenda). Eis o resultado de uma consulta selecionar simples a mostrar ambos os registos na base de dados de exemplo da Northwind:

Na consulta união que utilizou anteriormente, pode ver que o campo Purchase Order ID (ID da Nota de Encomenda) não está incluído e que os dois campos não constituem dois registos diferentes.

Se quiser incluir todos os registos, utilize a palavra-chave UNION ALL em vez de UNION na sua sintaxe SQL. É muito provável que tal tenha impacto na ordenação dos resultados, pelo que poderá querer incluir também uma cláusula ORDER BY, para definir uma sequência de ordenação. Eis a sintaxe SQL modificada com base no exemplo anterior:

SELECT [Purchase Order Details].[Date Received], Null As [Total], [Purchase Order Details].Quantity
FROM [Purchase Order Details]
WHERE ((([Purchase Order Details].[Product ID])=48))

UNION ALL

SELECT Max([Date Received]), "Total" As [Total], Sum([Quantity]) AS SumOfQuantity
FROM [Purchase Order Details]
WHERE ((([Purchase Order Details].[Product ID])=48))

ORDER BY [Total];

Mude para a vista Folha de Dados e deverá conseguir ver todos os detalhes e um total como último registo:

Uma utilização comum de uma consulta união é servir como a origem de registos para um controlo de caixa de combinação num formulário. Pode utilizar essa caixa de combinação para selecionar um valor para filtrar os registos do formulário. Por exemplo, filtrar os registos de colaboradores por cidade.

Para ver como isto poderá funcionar, eis outro exemplo que pode criar na base de dados de exemplo da Northwind para ilustrar este cenário.

1. Crie uma consulta selecionar simples com a seguinte sintaxe SQL:

   SELECT Employees.City, Employees.City AS Filter
   FROM Employees;

2. Mude para a vista Folha de Dados e deverá conseguir ver os seguintes resultados:

   City (Cidade)	Filter (Filtro)
   Seattle	Seattle
   Bellevue	Bellevue
   Redmond	Redmond
   Kirkland	Kirkland
   Seattle	Seattle
   Redmond	Redmond
   Seattle	Seattle
   Redmond	Redmond
   Seattle	Seattle

3. Ao observar estes resultados, poderá não os achar muito úteis. Expanda a consulta e transforme-a numa consulta união com a seguinte sintaxe SQL:

   SELECT Employees.City, Employees.City AS Filter
   FROM Employees
   
   UNION
   
   SELECT "<All>", "*" AS Filter
   FROM Employees
   
   ORDER BY City;

4. Mude para a vista Folha de Dados e deverá conseguir ver os seguintes resultados:

   City (Cidade)	Filter (Filtro)
   <All> (Todas)	*
   Bellevue	Bellevue
   Kirkland	Kirkland
   Redmond	Redmond
   Seattle	Seattle

   O Access cria uma união dos nove registos anteriormente apresentados, com valores de campo fixos de <All> e "*".

   Uma vez que esta cláusula de união não contém UNION ALL, o Access só devolve os registos diferentes, o que significa que cada cidade é devolvida apenas uma vez com valores fixos idênticos.

5. Agora que já tem uma consulta união completa a apresentar o nome de cada cidade apenas uma vez, juntamente com a opção que permite selecionar todas as cidades, pode utilizar esta consulta como a origem de registos para uma caixa de combinação num formulário. Ao utilizar este exemplo específico como modelo, poderia criar um controlo de caixa de combinação num formulário, definir esta consulta como a origem de registos, definir a propriedade Largura da Coluna da coluna Filter (Filtro) para 0 (zero) para a ocultar visualmente e, em seguida, definir a propriedade Coluna Vinculada para 1 para indicar o índice da segunda coluna. Na propriedade Filtro do formulário, pode adicionar código tal como o seguinte para ativar um filtro de formulário com o valor daquilo que foi selecionado no controlo de caixa de combinação.

   Me.Filter = "[City] Like '" & Me![FilterComboBoxName].Value & "'"
   Me.FilterOn = True

   O utilizador do formulário poderá então filtrar os registos do formulário pelo nome de uma cidade específica ou selecionar <All> para apresentar todos os registos para todas as cidades.

Início da Página