procedure TForm1.Button3Click(Sender: TObject);
begin
SimpleDataSet1.DisableControls;
ADOQuery1.DisableControls;
ADOQuery1.First;
while not ADOQuery1.Eof do
begin
SQLStoredProc1.ParamByName('NAME').AsString := ADOQuery1Itemno.AsString;
SQLStoredProc1.ParamByName('UNIT').AsString := ADOQuery1uom.AsString;
SQLStoredProc1.ExecProc;
ADOQuery1.Next;
end;// while
SimpleDataSet1.EnableControls;
ADOQuery1.EnableControls;
SimpleDataSet1.Refresh;//*****************************
SimpleDataSet1.First;
ADOQuery1.First;
SimpleDataSet1.DisableControls;
ADOQuery1.DisableControls;
while not ADOQuery1.Eof do
begin
SimpleDataSet1.Edit;
SimpleDataSet1DESCRIPTION.AsString := ADOQuery1DESCRIPTION.AsString;
SimpleDataSet1.Post;
SimpleDataSet1.Next;
ADOQuery1.Next;
end; // while
SimpleDataSet1.EnableControls;
ADOQuery1.EnableControls;
SimpleDataSet1.ApplyUpdates(0);
SimpleDataSet1.Refresh;
end;