このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/db/1274791771/567
#  文字が詰まって見えるので再投稿します。 
#  Olacleで、以下の<Table1>と<Table2>から<Table3>を作り出すSQLは 
#  どのように記述できますでしょうか?ご教示願います。 
#   
#  <Table1> 
#  製品コード   部品コード 
#  XXXX      A 
#  YYYY      B 
#  ZZZZ      C1 
#   
#  <Table2> 
#  部品コード   部品 
#  A        A1 
#  A        A2 
#  B        B1 
#  B        B2 
#   
#  <Table3> 
#  製品コード   部品 
#  XXXX      A1 
#  XXXX      A2 
#  YYYY      B1 
#  YYYY      B2 
#  ZZZZ      C1 
# 
# 

'Table1とTable2からTable3を作り出す' :-
        'Table1'(_製品コード,_部品コード),
        'Table2に対応する部品がなければ部品コードを、あれば部品を戻す'(_部品コード,_部品),        
        assertz('Table3'(_製品コード,_部品)),
        fail.
'Table1とTable2からTable3を作り出す'.

'Table2に対応する部品がなければ部品コードを、あれば部品を戻す'(_部品コード,_部品コード) :-
        \+'Table2(_部品コード,_),!.
'Table2に対応する部品がなければ部品コードを、あれば部品を戻す'(_部品コード,_部品) :-
       'Table2'(_部品コード,_部品1),
       'Table2に対応する部品がなければ部品コードを、あれば部品を戻す'(_部品1,_部品).