Abfrage doppeltes Element in Tabelle 2

Question

Ich habe diese Tabelle

Antecedent   Consequent 
I1     I2     
I1     I1,I2,I3 
I1     I4,I1,I3,I4 
I1,I2    I1 
I1,I2    I1,I4 
I1,I2    I1,I3 
I1,I4    I3,I2 
I1,I2,I3    I1,I4 
I1,I3,I4    I4 

zu finden, wie Sie es sehen können ziemlich vermasselt. ist es trotzdem kann i Zeilen entfernen, wenn das Element in daraus folgenden in antecedent existiert (in 1 row)

zum Beispiel: INPUT:

Antecedent   Consequent 
I1     I2     
I1     I1,I2,I3 <---- DELETE since I1 exist in antecedent 
I1     I4,I1,I3,I4 <---- DELETE since I1 exist in antecedent 
I1,I2    I1   <---- DELETE since I1 exist in antecedent 
I1,I2    I1,I4  <---- DELETE since I1 exist in antecedent 
I1,I2    I1,I3  <---- DELETE since I1 exist in antecedent 
I1,I4    I3,I2  
I1,I2,I3    I1,I4  <---- DELETE since I1 exist in antecedent 
I1,I3,I4    I4   <---- DELETE since I4 exist in antecedent 

OUTPUT:

Antecedent   Consequent 
I1     I2 
I1,I4    I3,I2    

ist es trotzdem i kann das durch Abfrage tun?

Answer 1

Ich kann nicht sehen, wie dies durch eine Access-Abfrage ohne eine benutzerdefinierte Funktion getan werden kann, die darauf hindeutet, dass es einfacher sein kann, einfach VBA zu verwenden, um die Problemzeilen zu löschen.

Answer 2

Rico, jeder hat Recht mit der UDF, um es mit Abfragen zu tun wäre wahrscheinlich langsamer. Fügen Sie diese Funktion einem Modul hinzu und sehen Sie, wie schnell es ist. Ich habe es in wenigen Sekunden auf 500K-Platten gespielt.

Public Function IsWithin(ByVal vAntecedent As Variant, ByVal vConsequent As Variant) As Boolean 
    On Error GoTo ErrQuit 
    IsWithin = False 
    If Not IsNull(vAntecedent) Then 
     If Not IsNull(vConsequent) Then 
      Dim aryAnt As Variant, aryCons As Variant 
      Dim vAnt As Variant, vCons As Variant 
      aryAnt = Split(vAntecedent, ",") 
      aryCons = Split(vConsequent, ",") 
      For Each vAnt In aryAnt 
       For Each vCons In aryCons 
        If vAnt = vCons Then 
         IsWithin = True 
         Exit For 
        End If 
       Next 
       If IsWithin Then Exit For 
      Next 

     End If 
    End If 
    Exit Function 
ErrQuit: 
    IsWithin = False 
End Function 

Ihre Abfrage könnte wie folgt aussehen:

SELECT Antecedent, Consequent 
FROM Table1 
WHERE IsWithin([Antecedent],[Consequent])=False;