整蠱的MS Access SQL查詢來刪除多餘的重複記錄

Question

我有以下形式的Access表（我簡化了一點）

ID   AutoNumber  Primary Key 
SchemeName Text (50) 
SchemeNumber Text (15) 

這包含了一些數據，例如...

ID   SchemeName   SchemeNumber 
-------------------------------------------------------------------- 
714   Malcolm    ABC123 
80   Malcolm    ABC123 
96   Malcolms Scheme  ABC123 
101   Malcolms Scheme  ABC123 
98   Malcolms Scheme  DEF888 
654   Another Scheme  BAR876 
543   Whatever Scheme  KJL111 
etc... 

現在。我想在相同的SchemeNumber下刪除重複的名稱。但是我想離開該Scheme編號的SchemeName最長的記錄。 如果有長度相同的重複記錄，那麼我只想留下一個，即最低的ID（但任何一個都會真的）。從上面的例子中，我想刪除ID 714,80和101（僅留下96）。

我認爲這樣會比較容易實現，但它變成了一個噩夢！感謝您的任何建議。我知道我可以循環編程，但我寧願有一個DELETE查詢。

Answer 1

看是否有此查詢返回你想保留的行：

SELECT r.SchemeNumber, r.SchemeName, Min(r.ID) AS MinOfID 
FROM 
    (SELECT 
     SchemeNumber, 
     SchemeName, 
     Len(SchemeName) AS name_length, 
     ID 
    FROM tblSchemes 
    ) AS r 
    INNER JOIN 
    (SELECT 
     SchemeNumber, 
     Max(Len(SchemeName)) AS name_length 
    FROM tblSchemes 
    GROUP BY SchemeNumber 
    ) AS w 
    ON 
     (r.SchemeNumber = w.SchemeNumber) 
     AND (r.name_length = w.name_length) 
GROUP BY r.SchemeNumber, r.SchemeName 
ORDER BY r.SchemeName; 

如果是這樣，將其保存爲qrySchemes2Keep。然後創建一個DELETE查詢，以放棄在qrySchemes2Keep中找不到其ID值的tblSchemes中的行。

DELETE 
FROM tblSchemes AS s 
WHERE Not Exists (SELECT * FROM qrySchemes2Keep WHERE MinOfID = s.ID); 

只是要小心，如果以後使用Access'查詢設計器進行修改，即刪除查詢，它可能‘有益’的SQL轉換爲這樣的事情：

DELETE s.*, Exists (SELECT * FROM qrySchemes2Keep WHERE MinOfID = s.ID) 
FROM tblSchemes AS s 
WHERE (((Exists (SELECT * FROM qrySchemes2Keep WHERE MinOfID = s.ID))=False)); 

Answer 2

DELETE FROM Table t1 
WHERE EXISTS (SELECT 1 from Table t2 
      WHERE t1.SchemeNumber = t2.SchemeNumber 
      AND Length(t2.SchemeName) > Length(t1.SchemeName) 
) 

取決於你的RDBMS你可以使用功能不同長度（甲骨文 - 長度，MySQL的 - 長度，SQL服務器 - LEN）

Answer 3

試試這個：

Select * From Table t 
    Where Len(SchemeName) < 
     (Select Max(Len(Schemename)) 
     From Table 
     Where SchemeNumber = t.SchemeNumber) 
    And Id > 
     (Select Min (Id) 
     From Table 
     Where SchemeNumber = t.SchemeNumber 
      And SchemeName = t.SchemeName) 

或本:, ...

Select * From Table t 
    Where Id > 
     (Select Min(Id) From Table 
     Where SchemeNumber = t.SchemeNumber 
     And Len(SchemeName) < 
      (Select Max(Len(Schemename)) 
      From Table 
      Where SchemeNumber = t.SchemeNumber)) 

如果其中任一選擇應刪除的記錄，只需將其更改爲刪除

Delete 
    From Table t 
    Where Len(SchemeName) < 
     (Select Max(Len(Schemename)) 
     From Table 
     Where SchemeNumber = t.SchemeNumber) 
    And Id > 
     (Select Min (Id) 
     From Table 
     Where SchemeNumber = t.SchemeNumber 
      And SchemeName = t.SchemeName) 

或使用第二建築：

Delete From Table t Where Id > 
    (Select Min(Id) From Table 
    Where SchemeNumber = t.SchemeNumber 
    And Len(SchemeName) < 
     (Select Max(Len(Schemename)) 
     From Table 
     Where SchemeNumber = t.SchemeNumber)) 

Answer 4

delete ShortScheme 
from Scheme ShortScheme 
join Scheme LongScheme 
    on ShortScheme.SchemeNumber = LongScheme.SchemeNumber 
    and (len(ShortScheme.SchemeName) < len(LongScheme.SchemeName) or (len(ShortScheme.SchemeName) = len(LongScheme.SchemeName) and ShortScheme.ID > LongScheme.ID)) 

（SQL服務器有味）

現在更新，包括指定的領帶分辨率。雖然，在兩個查詢中可以獲得更好的性能：首先使用較短的名稱刪除計劃（如我的原始查詢），然後返回並刪除名稱長度相同的較高ID。

Answer 5

如果你的平臺支持排名函數和公用表表達式：

with cte as (
    select row_number() 
    over (partition by SchemeNumber order by len(SchemeName) desc) as rn 
    from Table) 
delete from cte where rn > 1; 

Answer 6

我會爲此在多個步驟。一步完成的大量刪除操作讓我感到非常緊張 - 如果您犯了一個錯誤，該怎麼辦？沒有sql'undo'語句。

-- Setup the data 
DROP Table foo; 
DROP Table bar; 
DROP Table bat; 
DROP Table baz; 
CREATE TABLE foo (
    id int(11) NOT NULL, 
    SchemeName varchar(50), 
    SchemeNumber varchar(15), 
    PRIMARY KEY (id) 
); 

insert into foo values (714, 'Malcolm', 'ABC123'); 
insert into foo values (80, 'Malcolm', 'ABC123'); 
insert into foo values (96, 'Malcolms Scheme', 'ABC123'); 
insert into foo values (101, 'Malcolms Scheme', 'ABC123'); 
insert into foo values (98, 'Malcolms Scheme', 'DEF888'); 
insert into foo values (654, 'Another Scheme ', 'BAR876'); 
insert into foo values (543, 'Whatever Scheme ', 'KJL111'); 

-- Find all the records that have dups, find the longest one 
create table bar as 
    select max(length(SchemeName)) as max_length, SchemeNumber 
    from foo 
    group by SchemeNumber 
    having count(*) > 1; 

-- Find the one we want to keep 
create table bat as 
    select min(a.id) as id, a.SchemeNumber 
    from foo a join bar b on a.SchemeNumber = b.SchemeNumber 
     and length(a.SchemeName) = b.max_length 
    group by SchemeNumber; 

-- Select into this table all the rows to delete 
create table baz as 
    select a.id from foo a join bat b where a.SchemeNumber = b.SchemeNumber 
     and a.id != b.id; 

這會爲您提供一個只包含要刪除的行的記錄的新表。

現在檢查這些，並確保它們只包含要刪除的行。通過這種方式，您可以確保在執行刪除操作時，您確切地知道將會發生什麼。它也應該很快。

然後，當您準備好時，使用此命令使用此命令刪除行。

delete from foo where id in (select id from baz); 

這似乎是更多的工作，因爲不同的表，但它更安全，可能與其他方式一樣快。另外，您可以在任何步驟中停止並確保在執行任何實際刪除之前數據是您想要的。