SQL入門
テーブルを結合して取得（INNER JOIN,OUTER JOIN）

テーブルを結合して取得（INNER JOIN,OUTER JOIN）

エクセルVBAでデータベースを扱うためのSQL入門です。
前回データベースの正規化を説明し、マスターデータとトランザクションデータとしてそれぞれのテーブルを作成しました。
分割されたデータは結合しなければ必要な情報がそろいません。
複数テーブルの情報を必要に応じて結合して取得できるようになると、よりデータベースおよびSQLの利便性が感じられるはずです。

テーブルの結合方法

2つのテーブルを結合して1つのデータにする場合は、良く使う代表的な結合方法として3通りあります。

内部結合：INNER JOIN

両方のテーブルに結合条件を満たす行があるデータのみになります。
どちらか一方にでも結合条件を満たす行が無ければ、そのデータは対象外になります。

結合後

左のテーブルを優先として、
左のテーブルの全ての行に対して、右のテーブルは結合条件を満たす行だけになります。

結合後

右のテーブルを優先として、
右のテーブルの全ての行に対して、左のテーブルは結合条件を満たす行だけになります。

結合後

※SQLiteではサポートされていません。

列名修飾とエイリアス

SELECT T.code AS コード FROM t_sales AS T

内部結合：INNER JOIN

SELECT T.code,M.name
 FROM t_sales T
 INNER JOIN m_customer M
 ON T.code = M.code

左外部結合：LEFT OUTER JOIN

SELECT T.code,M.name
 FROM t_sales T
 LEFT JOIN m_customer M
 ON T.code = M.code

右外部結合：RIGHT OUTER JOIN

SELECT T.code,IFNULL(M.name,'マスタなし')
 FROM t_sales T
 RIGHT JOIN m_customer M
 ON T.code = M.code

外部結合（OUTER JOIN）で結合条件に一致する行が無い場合

LEFT JOIN（またはRIGHT JOIN）で結合した場合、
結合したテーブルに結合条件の行が存在しない場合、フィールドはNULLになります。

:結合後

SELECT T.code,M.name
 FROM t_sales T
 LEFT JOIN m_customer M
 ON T.code = M.code

t_salesのcodeに一致するm_customerが無い場合、M.nameはNULLになります。
結合先のテーブルが存在しているかどうかの判断には、
NULLが入らないカラムを使ってNULL判定（IS NULL または IFNULL）することで行えます。

複数のJOINを組み合わせた使用例

Sub SelectJoin() 　　Dim clsDB As New clsSQLite 　　clsDB.DataBase = "C:\SQLite3\sample.db" 　　 　　Dim ws As Worksheet 　　Set ws = ActiveSheet 　　 　　Dim sSql As String 　　sSql = "" 　　sSql = sSql & "SELECT" & vbCrLf 　　sSql = sSql & " T.code,M1.name,M1.address,T.sales_date" & vbCrLf 　　sSql = sSql & ",T.item_code,IFNULL(M2.item_name,'マスタなし')" & vbCrLf 　　sSql = sSql & ",T.item_price,T.item_count" & vbCrLf 　　sSql = sSql & ",T.item_price * T.item_count AS item_amount" & vbCrLf 　　sSql = sSql & ",T.comment" & vbCrLf 　　sSql = sSql & " FROM t_sales T" & vbCrLf 　　sSql = sSql & " INNER JOIN m_customer M1" & vbCrLf 　　sSql = sSql & " ON T.code = M1.code" & vbCrLf 　　sSql = sSql & " LEFT JOIN m_item M2" & vbCrLf 　　sSql = sSql & " ON T.item_code = M2.item_code" & vbCrLf 　　sSql = sSql & " WHERE T.code = '001'" 　　 　　If Not clsDB.SheetFromRecordset(sSql, ws.Range("A1"), Clear, True) Then 　　　　MsgBox clsDB.ErrMsg 　　　　Exit Sub 　　End If 　　 　　Set clsDB = Nothing End Sub

※イミディエイ等でsSqlを見た時に見やすいようにvbCrLfを入れています。

t_salesとm_customerを内部結合（一致するものだけ）し、そこにm_itemを外部結合しています。
外部結合しているm_itemのitem_nameはデータが無い時には'マスタなし'となります。

通常、トランザクションデータにマスタ情報を付加する場合はLEFT JOINを使います。
ここでは、SQLサンプルとして、あえてINNER JOINを使用しています。

INNER JOINの場合、SELECTの出力カラムにおいては、
両方のテーブルに存在するカラム（ここではcode）は、どちらのテーブルを使用しても同じです。
したがって上記SQLのSELECTでは、T.codeの代わりにM1.codeとしても結果は同じになります。

※前回作成したマスタ

JOINを使わない内部結合

SELECT T.code,M.name
 FROM t_sales T
 INNER JOIN m_customer M
 ON T.code = M.code

SELECT T.code,M.name
 FROM t_sales T
     ,m_customer M
 WHERE T.code = M.code

テーブルを結合して取得の最後に