对表 "Source"UPDATE 操作,显示错误提示:" InternalDataSet: Cursor not returned from Query."

Question

对表  "Source"UPDATE 操作，将Field stid 为等于50的所有记录行更新为100    begin
            SimpleDataSet_FindSource.Active := False;
            SimpleDataSet_FindSource.DataSet.CommandText := ' UPDATE Source set STID = '
             + ' 100  Where  STID =  50 ';
            SimpleDataSet_FindSource.Active := True;
      end;执行完上面代码后，显示错误提示:" InternalDataSet: Cursor not returned from Query."查看数据库，数据已经更新, 但错在哪儿?

Answer 1

begin
            SimpleDataSet_FindSource.Active := False;
            SimpleDataSet_FindSource.DataSet.CommandText := ' UPDATE Source set STID = '
             + ' 100  Where  STID =  50 ';
            SimpleDataSet_FindSource.Execute;
            SimpleDataSet_FindSource.DataSet.CommandText := 'SELECT * FROM Source;';
            SimpleDataSet_FindSource.DataSet.Active:=True;  
    end;