我有一个库,有两个表,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;
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;
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一条记录也没有。
不知大家明白我的意思没有。
不大家明白我的意思没有?