Работа с компонентами Oracle

[cherry25]

Ошибки глупые, но давно не работала с БД. Код отрабатывает, но не так, как нужно

 DSData.First;

 for i:=1 to DSData.RecordCount do
  begin

// получаем данне для последующего занесения в таблицу

    DSInsRec.Active:=false;
    DSInsRec.Active:=true;

   DSInsRec.Append;

    DSInsRec.Insert;

    DSInsRec.Edit;
      // здесь добавляем значения полей
    DSInsRec.Post;

   DSData.Next;
  end;

  if MessageDlg ('Сохранить данные?',mtConfirmation{mtWarning}, [mbYes, mbNo], 0)=mrYes then
     begin
       DSInsRec.CommitUpdates;
     end
      else
     begin
       Session.Rollback;
     end;

1. Post сразу коммитит данные в таблицу, а надо, чтобы отрабатывало по подтверждению MessageDlg.
2. Вносится все в одну строку, т.е. фактически добавляется только последняя запись. Надо, чтобы каждый раз добавлялась строка, а потом вносились данные

Спасибо!

[Stilet]

DSInsRec это что за компонент?

[cherry25]

Сообщение от Stilet

DSInsRec это что за компонент?

Это OracleDataSet. Прошу прощения, на автомате перенесла код и не уточнила

[Yurk@]

так немного лучше будет

  DSData.First;
  DSInsRec.Active := True;
  while not DSData.Eof do
  begin
    // получаем данне для последующего занесения в таблицу
    DSInsRec.Insert;
    // здесь добавляем значения полей
    DSInsRec.Post;
    DSData.Next;
  end;

а по поводу автокоммита - смотри настройки своего DSData.

[cherry25]

Сообщение от Yurk@

так немного лучше будет

  DSData.First;
  DSInsRec.Active := True;
  while not DSData.Eof do
  begin
    // получаем данне для последующего занесения в таблицу
    DSInsRec.Insert;
    // здесь добавляем значения полей
    DSInsRec.Post;
    DSData.Next;
  end;

а по поводу автокоммита - смотри настройки своего DSData.

Спасибо огромное, совершенно забыла за эти настройки