procedure Set_UpdateCriteria(Dset: TADOQuery);
const
adCriteriaKey =$00000000;
var
ptyroperty_;
ptiesroperties;
begin
with Dset do
begin
if Active=False then Active:=True;
pties:=Recordset.Properties;
pty:=pties.Get_Item('Update Criteria');
pty.Value:=adCriteriaKey;
end;
end;
adoquery ( or adodataset) 激活后再 Set_UpdateCriteria(aodquery)一下。
当然你sql2000中的table要有主健。