Добавление информации в базу данных через ADOQuery вводимый через Edit

@ITALIANO · Регистрация: 24.10.2014

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

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

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
ADOQuery2->Close();
ADOQuery2->SQL->Clear();
ADOQuery2->SQL->Text = "INSERT INTO АРМ продавца книжного магазина ([Код поставщика, Автор(ы), Название, Год издания, Жанр/Область, Полка, Цена, Количество]) VALUES(:Param1, :Param2, :Param3, :Param4, :Param5, :Param6, :Param7, :Param8)";
ADOQuery2->Parameters->ParamByName("Param1")->Value=Edit6->Text;
ADOQuery2->Parameters->ParamByName("Param2")->Value=edtAVTOR->Text;
ADOQuery2->Parameters->ParamByName("Param3")->Value=edtNAME->Text;
ADOQuery2->Parameters->ParamByName("Param4")->Value=Edit3->Text;
ADOQuery2->Parameters->ParamByName("Param5")->Value=Edit4->Text;
ADOQuery2->Parameters->ParamByName("Param6")->Value=Edit5->Text;
ADOQuery2->Parameters->ParamByName("Param7")->Value=Edit1->Text;
ADOQuery2->Parameters->ParamByName("Param8")->Value=Edit2->Text;
ADOQuery2->ExecSQL();
DBGrid1->DataSource=DataSource1;

Делал по примеру, так что не был уверен в работоспособности кода изначально... не совсем понял ([...]) в строчке:

C++
1
ADOQuery2->SQL->Text = "INSERT INTO АРМ продавца книжного магазина ([Код поставщика, Автор(ы), Название, Год издания, Жанр/Область, Полка, Цена, Количество]) VALUES(:Param1, :Param2, :Param3, :Param4, :Param5, :Param6, :Param7, :Param8)";

Добавлено через 6 минут
Выскакивает ошибка: "Неправильно определён объект Parameter. Предоставлены несогласованные или неполные сведения.". Ошибка возникает при нажатии на кнопку "Добавить" при заполнении всех полей.

Добавлено через 1 час 31 минуту
Кому надо, могу программу скинуть, что бы понять суть...

@ITALIANO · 13.05.2016, 22:06 **[ТС]**

Благодарю всех за помощь уже всё сделал)

@Rmkfail · 24.05.2016, 20:21

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

Благодарю всех за помощь уже всё сделал)

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

@ITALIANO · 10.06.2016, 01:19 **[ТС]**

Rmkfail, как-то так:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
void __fastcall TfrmMain::btnAddClick(TObject *Sender)
{
/*      ADOQuery1->Close();
      ADOQuery1->SQL->Clear();
      ADOQuery1->SQL->Text = "INSERT INTO ARM ([ID, Kod_postavshika, Avtor, Nazvanie, God_izdaniya, Zhanr_Oblast, Polka, Cena, Kolichestvo]) VALUES(:Param1, :Param2, :Param3, :Param4, :Param5, :Param6, :Param7, :Param8, :Param9)";
      //ADOQuery1->SQL->Add("VALUES (:Param1, :Param2, :Param3, :Param4, :Param5, :Param6, :Param7, :Param8)");
      ADOQuery1->Parameters->ParamByName("Param1")->Value;
      ADOQuery1->Parameters->ParamByName("Param2")->Value=Edit6->Text;
      ADOQuery1->Parameters->ParamByName("Param3")->Value=edtAVTOR->Text;
      ADOQuery1->Parameters->ParamByName("Param4")->Value=edtNAME->Text;
      ADOQuery1->Parameters->ParamByName("Param5")->Value=Edit3->Text;
      ADOQuery1->Parameters->ParamByName("Param6")->Value=Edit4->Text;
      ADOQuery1->Parameters->ParamByName("Param7")->Value=Edit5->Text;
      ADOQuery1->Parameters->ParamByName("Param8")->Value=Edit1->Text;
      ADOQuery1->Parameters->ParamByName("Param9")->Value=Edit2->Text;
      ADOQuery1->ExecSQL(); */
      frmMain->ADOQuery1->Append();
      if (frmMain->ADOQuery1->Modified)
  frmMain->ADOQuery1->Post();
}

@ITALIANO · 10.06.2016, 01:26 **[ТС]**

Rmkfail, вот программа... если поможет...

@Rmkfail · 11.06.2016, 14:34

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

вот программа... если поможет...

Спасибо, буду смотреть.

Новые блоги и статьи Все статьи Все блоги /
GitHub Copilot в JetBrains: модель по умолчанию, Fix и контроль MCP and_y87 12.10.2026 10 октября 2026 года GitHub обновил Copilot для JetBrains: добавил настройки стартовой модели, исправления из диагностики и управление автозапуском MCP. Поддержка IDE 2025. 1 прекращена — требуется. . .	GitHub Copilot в JetBrains: модель по умолчанию, Fix и контроль MCP and_y87 12.10.2026 10 октября 2026 года GitHub обновил Copilot для JetBrains: добавил настройки стартовой модели, исправления из диагностики и управление автозапуском MCP. Поддержка IDE 2025. 1 прекращена — требуется. . .	День 5 из 28: Codex подсказывает следующий запрос and_y87 12.10.2026 9 октября 2026 года OpenAI запустила бету Composer predictions — подсказок следующего сообщения в текущем диалоге Codex. Это помощь с формулировкой запроса, а не автоматическое продолжение задачи. . . .	Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .

@ITALIANO 1 / 1 / 4 Регистрация: 24.10.2014 Сообщений: 200
	13.05.2016, 22:06 [ТС]
	Благодарю всех за помощь уже всё сделал) 0