我有一个库,有两个表,USER0有4万条记录,USER1为空表,它们字段一样为:FDQ,FZX,DZ,NEWFZX,NEWDZ
USER0中的记录字段FZX不是唯一的,我想把有相同FZX的记录只保留一条。我的思路是:以FZX为条件,检索出
全部含有相同FZX字段的记录,然后从检索出的记录插一条到USER1,再从USER0中删除检索出的记录。
以下是我删除记录的代码,不行?还有请各位给出INSERT USER1 的代码?
procedure TForm1.Bit_deleteClick(Sender: TObject);
begin
QUERY1.UpdateObject:=UPDATESQL1;
QUERY1.CachedUpdates:=TRUE;
QUERY1.RequestLive:=TRUE;
UPDATESQL1.ExecSQL(ukdelete);
end;procedure TForm1.Query1UpdateRecord(DataSet: TDataSet;
  UpdateKind: TUpdateKind; var UpdateAction: TUpdateAction);
    begin
    QUERY1.UpdateObject:=UPDATESQL1;
    UpdateSQL1.SetParams(ukdelete);
    updatesql1.UpdateAction(action);
    end;

解决方案 »

  1.   

    楼上的各位大哥,我的数据库是ACCESS。支持同时操作两个表吗?
      

  2.   

    user0:
    FDQ FZX DZ NWEFZX NEWFZX
    A    AA T1  N11    M11
    B    AA T2  N22    M22
    C    BB T3  N33    M33
    D    BB T4  N44    M44
      
    象上面的4条记录,我可以取1,3。或1,4。或2,3。或2,4。
    反正FZX相同的记录我只需要一条。取一条出来放到USER1中。
    其余的删除,最后USER0一条记录也没有。
    不知大家明白我的意思没有。
      

  3.   

    这还不明白吗?就是表USER0里的记录中,FZX的值是好多都相同一的。例如:有10条的记录的FZX的值是AA,有8条的记录的值是BB。FZX的值为AA的记录和BB的记录我只需要各保留一条。分别取出来放到USER1中,然后在中USER0删除。反正不同FZX的记录我只想保留一条。
    不大家明白我的意思没有?
      

  4.   

    应该是相同FZX值的记录我只保留一条。