[BDE / Paradox 7] Ошибка при добавлении записи

@gash1sh · Регистрация: 22.01.2010

Студворк — интернет-сервис помощи студентам

Имеется таблица, в Paradox 7

ID_CAR - Автоинкремент
CAR_MODEL - Альфа
CAR_NUMS - Альфа
CAR_COLOR - Альфа
CAR_YEAR - Numeric
CAR_STAT - Альфа

Написал обработчик, который при нажатии кнопки добавляет в даблицу данные из полей

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm2.Button2Click(Sender: TObject);
begin
  if ((Edit5.Text<>'')and(Edit4.Text<>'')and(Edit3.Text<>'')and(Edit2.Text<>'')) then
   begin
        Form1.Table2.Append;
        Form1.Table2['CAR_MODEL'].AsString:=Form2.Edit5.Text;
        Form1.Table2['CAR_NUMS'].AsString:=Form2.Edit4.Text;
        Form1.Table2['CAR_COLOR'].AsString:=Form2.Edit3.Text;
        Form1.Table2['CAR_YEAR'].AsInteger:=strtoint(Form2.Edit2.Text);
        Form1.Table2['CAR_STAT'].AsString:='-';
        Form1.Table2.Post;
        Close;
   end;
 
end;

Программа компилируется, но когда я в программе пытаюсь добавить поле, выдаёт ошибку:

"Project proj1.exe raised exception" class EVariantInvalidOpError with message 'Invalid variant operation'."

Помогите разобраться, в чём дело

И интересно знать каким образом работает тут автоинкрементное поле. Если пытаюсь заполнить его из программы, то выдаёт ошибку, что это поле невозможно изменить. Нужно ли каким-то образом его обрабатывать, или оно заполняется автоматически при внесении в другие поля значений?

@Lord_Voodoo · 22.01.2010, 14:32

gash1sh,
для автоинкремента вот такую настройку надо сделать:

C++
1
     tmpMat->FieldByName('RN')->AutoGenerateValue = Db::arAutoInc;

почитай справку по TField и без труда переведешь с++ эту строку

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

но когда я в программе пытаюсь добавить поле

какое поле и как ты пытаешься его добавить?

@gash1sh · 22.01.2010, 15:47 **[ТС]**

Lord_Voodoo, спасибо, на Delphi строчка будет такой:

Delphi
1
Form1.Table2.FieldByName('ID_CAR').AutoGenerateValue:=arAutoInc;

Теперь выдаёт другую ошибку:

Project proj1.exe raised exception class EDataBaseError with message 'Table2: cannot perform this operation on an open data set'

Прошу сильно не ругаться, это моя первая программа на Delphi, и я впервые работаю с бд

@kentaw · 22.01.2010, 19:06

Delphi
1
Form1.Table2.Append;

замени на

Delphi
1
Form1.Table2.Insert;

@gash1sh · 22.01.2010, 19:24 **[ТС]**

kentaw, аналогично, ошибка не исчезла... уже 2 дня мучаюсь, не могу сделать обработчик, добаляющий запись в таблицу, чувствую себя дураком

кому не тяжело, посмотрите пожалуйста работу, подскажите, что не так
Вложение 19273

Delphi 7 / Paradox 7 / BDE - алиас TAXI

@lexus_ilia · 22.01.2010, 22:34

gash1sh, зачем выкладывать на файлообменнике, если есть форум, ну что за люди, скиньте в эту тему тот архив, а то я скачать не могу у меня лимит превышен из-за долбаного одинакового айпи у всей моей подсети...

@gash1sh · 23.01.2010, 00:13 **[ТС]**

эммм. Ссылка на вложение битая стала.

@lexus_ilia · 23.01.2010, 00:15

gash1sh, нет.

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит переходные токи и напряжения на элементах схемы. . . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

@gash1sh 0 / 0 / 0 Регистрация: 22.01.2010 Сообщений: 7
	22.01.2010, 19:24 [ТС]
	kentaw, аналогично, ошибка не исчезла... уже 2 дня мучаюсь, не могу сделать обработчик, добаляющий запись в таблицу, чувствую себя дураком кому не тяжело, посмотрите пожалуйста работу, подскажите, что не так Вложение 19273 Delphi 7 / Paradox 7 / BDE - алиас TAXI 0

@lexus_ilia 3067 / 727 / 69 Регистрация: 24.09.2008 Сообщений: 1,531
	22.01.2010, 22:34
	gash1sh, зачем выкладывать на файлообменнике, если есть форум, ну что за люди, скиньте в эту тему тот архив, а то я скачать не могу у меня лимит превышен из-за долбаного одинакового айпи у всей моей подсети... 0

@gash1sh 0 / 0 / 0 Регистрация: 22.01.2010 Сообщений: 7
	23.01.2010, 00:13 [ТС]
	эммм. Ссылка на вложение битая стала. 0

@lexus_ilia 3067 / 727 / 69 Регистрация: 24.09.2008 Сообщений: 1,531
	23.01.2010, 00:15
	gash1sh, нет. 0