Возникает ошибка не могу найти решение , Не могу добавить в базу данные...

[DeZik]

При добавлении данных на стадии insert возникает ошибка.
Проект прилагаю
В SKLAD_ADD
начало модуля dm2.SKLAD_IN.insert

В проекте используется библиотека rz rx и ehlib
Прикреплённый файлs.rar (32,77 Кбайт, скачиваний: 146)

Сообщение отредактировано: DeZik - 03.08.11, 04:59

[Bas]

Ошибка какая?

[DeZik]

DataSet not edit or insert mode

Переключался между видами доступа - 0 эмоций

[Fr0sT]

Есть ли весомая причина не юзать DB controls?
Есть ли весомая причина добавлять все поля в дизайн-тайм и обращаться к ним как к объектам вместо dataset.FieldByName?

[DeZik]

Цитата Fr0sT @ 03.08.11, 06:12

Есть ли весомая причина не юзать DB controls?

Точнее про что идет речь - не могу понять

Цитата Fr0sT @ 03.08.11, 06:12

Есть ли весомая причина добавлять все поля в дизайн-тайм и обращаться к ним как к объектам вместо dataset.FieldByName?

Да есть.

Поэтому и возникает вопрос. Интересует вопрос откуда проблема и как решить, а не как изменить всю программу для правильного функционирования данного модуля.

ПРИЧЕМ ДОБАВЛЮ.
После возникновения ошибки запись добавляется, но пустая....

Даже при конструкции

  try
  dm2.ASKLAD_IN.Insert;
  dm2.ASKLAD_INDATE.AsDateTime:=SKLAD_ADD.DateEdit1.Date;
  dm2.ASKLAD_INKOL.AsFloat:=SKLAD_ADD.CurrencyEdit1.Value;
  dm2.ASKLAD_IN.Post;
  except
  messagebox(Sklad_add.Handle,'Запись не добавлена','Внимание',0);
  end;

выводит сообщение об ошибке, а пустая запись добавляется. (в D7 ошибка та-же)

Сообщение отредактировано: DeZik - 03.08.11, 07:32

[Fr0sT]

Цитата DeZik @ 03.08.11, 06:56

Точнее про что идет речь - не могу понять

Классы вида TDB<control_name>

Цитата DeZik @ 03.08.11, 06:56

Интересует вопрос откуда проблема и как решить, а не как изменить всю программу для правильного функционирования данного модуля.

Ой, там "всей программы"-то - две с половиной строчки. Впрочем, дело хозяйское.
Почему у тебя не работает - не знаю. Попробовал у себя:

  IBTable1.Insert;
  IBTable1SUBJECT.AsString := 'blabla';
  IBTable1.Post;

всё ОК. Твой проект запустить нет возможности по причине юзания левых компонент-паков

[DeZik]

Цитата Fr0sT @ 03.08.11, 08:06

Ой, там "всей программы"-то - две с половиной строчки.

Это вырубка для теста.

Цитата Fr0sT @ 03.08.11, 08:06

Твой проект запустить нет возможности по причине юзания левых компонент-паков

отключи левые компонент паки - можешь запустить т.к. они за визуальность отвечают, а ее тма не надо.

Ib не ставил - однозадачна система. Еще раз акцентирую = нужно найти ошибку и решить проблему, а не переписать всю прогу с "0".

Добавлено 03.08.11, 08:51
Как не странно следующий код работает

  try
  dm2.ASKLAD_IN.Insert;
  except
  end;
  try
  dm2.ASKLAD_IN.Edit;
  dm2.ASKLAD_INDATE.AsDateTime:=SKLAD_ADD.DateEdit1.Date;
  dm2.ASKLAD_IN.Post;
  except
  end;

А дальше как не знаю....

Сообщение отредактировано: DeZik - 03.08.11, 08:51

[Игорь Акопян]

Поставьте брякпойнты везде, выясните в какой строке таки возникает ошибка. Происходит присваивание в поле, а датасет почему-то вышел или ещё не вошёл в режим редактирования.
Создайте пустые BeforePost и AfterPost. Это позволит более точно понять место ошибки

[DeZik]

Цитата Игорь Акопян @ 03.08.11, 10:09

Поставьте брякпойнты везде, выясните в какой строке таки возникает ошибка.

Цитата DeZik @ 03.08.11, 04:58

При добавлении данных на стадии insert возникает ошибка.

Цитата Игорь Акопян @ 03.08.11, 10:09

Создайте пустые BeforePost и AfterPost. Это позволит более точно понять место ошибки

Все попробовал ничего не помогает, поэтому и обратился сюда

[Fr0sT]

Цитата DeZik @ 03.08.11, 08:10

отключи левые компонент паки - можешь запустить т.к. они за визуальность отвечают, а ее тма не надо.

Я про rz, на котором у тебя все лейблы

Цитата DeZik @ 03.08.11, 08:10

Это вырубка для теста

Если уж делаешь тест, делай его без левых компонентов. Иначе зачем выкладывать проект

Цитата DeZik @ 03.08.11, 08:10

Как не странно следующий код работает

Edit после Insert ничего не делает, странно, что это работает...

Добавлено 03.08.11, 10:22
Хм. Попробовал базу Аксесс + Адоконнекшен + код

ADOTable1.Insert;
ADOTable1stat.AsString := 'blabla';
ADOTable1.Post;

- выдает ошибку "Произошли ошибки во время выполнения многошаговой операции. Проверьте значения всех состояний."

Сообщение отредактировано: Fr0sT - 03.08.11, 10:22

[Игорь Акопян]

Цитата DeZik @ 03.08.11, 04:58

При добавлении данных на стадии insert возникает ошибка.

стадия инсерт это не то что я спросил...
Прямо на строке Insert?

поддерживаю выкладку без РЗ

[Fr0sT]

Загуглил, это, судя по всему, у АДО такие заморочки

[DeZik]

Цитата Игорь Акопян @ 03.08.11, 10:23

Прямо на строке Insert?

Да

Цитата Fr0sT @ 03.08.11, 10:15

- выдает ошибку "Произошли ошибки во время выполнения многошаговой операции. Проверьте значения всех состояний."

Не, там все норально и никаких проблем с

Цитата Fr0sT @ 03.08.11, 10:27

Загуглил, это, судя по всему, у АДО такие заморочки

нет

Выложу без RZ завтра

Сообщение отредактировано: DeZik - 03.08.11, 10:30

[DeZik]

Вот без украшательств....
Попробуйте выполнить - убрал даже всю функциональность
Прикреплённый файлss.rar (22,84 Кбайт, скачиваний: 144)

[Fr0sT]

В самом деле, глюк. Пока удалось обнаружить, что проблема в lookup поле CENA