Как выделить строку в БД добавленную запросом?

@Sasha · Регистрация: 05.06.2008

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

Здравствуйте, у меня есть код

C++
1
2
3
4
5
6
7
8
9
10
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Text = "INSERT INTO Glavnaya (Invent_Number,Number_in_Lan,Department,Processor,Memory,HDD,Room)VALUES('"+Edit1->Text+"', '"+Edit2->Text+"', '"+Edit3->Text+"', '"+Edit4->Text+"', '"+Edit5->Text+"', '"+Edit6->Text+"', '"+Edit7->Text+"')";
ADOQuery1->ExecSQL();
 
 
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Text ="Select * from Glavnaya ORDER BY Invent_Number";
ADOQuery1->Open();

Как можно выделить новую строку добавленную в БД запросом

oxotnik · 07.09.2009, 10:58

Locate по полю с уникальным значением

@Sasha · 07.09.2009, 11:02 **[ТС]**

А как эту функцию настроить на новое значение?
И ещё как можно сделать так чтобы в базу Access можно было вставить пустые строки, а то я оставляю пустые, а оно мне выдаёт ошибку что поле не придусмотрено для ввода пустых строк.
Хотя в самой базе стоит, что поле не обязательно.

oxotnik · 07.09.2009, 11:05

Какая СУБД, какая структура данных таблицы (первичный ключ есть ли, и как формируется)?

@Sasha · 07.09.2009, 11:14 **[ТС]**

БД Access, 10 полей, первое поле с названием инвентарный номер - целочесленное на ней стоит первичный ключ, остальные 9 полей текстовые.

oxotnik · 07.09.2009, 11:22

примерно так:

C++
1
2
3
4
5
6
7
8
ADOQuery1->Close(); 
ADOQuery1->SQL->Clear(); 
ADOQuery1->SQL->Text ="Select * from Glavnaya ORDER BY Invent_Number"; 
ADOQuery1->Open(); 
TLocateOptions Opts; 
Opts.Clear(); 
Opts << loPartialKey;
ADOQuery1->Locate("Invent_Number", Edit1->Text, Opts);

@Sasha · 07.09.2009, 11:31 **[ТС]**

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

C++
1
2
3
4
5
6
7
8
9
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Text = "UPDATE Glavnaya SET Invent_Number = :OLD_Invent_Number, Number_in_Lan = :OLD_Number_in_Lan, Department = :OLD_Department, Processor = :OLD_Processor, Memory = :OLD_Memory, HDD = :OLD_HDD, Room = :OLD_Room WHERE Invent_Number = '"+Edit1->Text+"' AND Number_in_Lan = '"+Edit2->Text+"' AND Department = '"+Edit3->Text+"' AND Processor = '"+Edit4->Text+"' AND Memory = '"+Edit5->Text+"' AND HDD = '"+Edit6->Text+"' AND Room = '"+Edit7->Text+"'";
ADOQuery1->ExecSQL();
 
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Text ="Select * from Glavnaya ORDER BY Invent_Number";
ADOQuery1->Open();

oxotnik · 07.09.2009, 11:42

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

Invent_Number = :OLD_Invent_Number

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

C++
1
ADOQuery1->Parameters->ParamByName("OLD_Invent_Number")->Value = ... //чего то

@Sasha · 07.09.2009, 11:55 **[ТС]**

Это что мне нужно заранее приравнивать Едиты?

@Sasha · 07.09.2009, 15:31 **[ТС]**

C++
1
2
3
4
5
6
7
8
9
10
11
ADOQuery1->Parameters->ParamByName("OLD_Invent_Number")->Value = Edit1->Text;
ADOQuery1->Parameters->ParamByName("OLD_Number_in_Lan")->Value = Edit2->Text;
ADOQuery1->Parameters->ParamByName("OLD_Department")->Value = Edit3->Text;
ADOQuery1->Parameters->ParamByName("OLD_Processor")->Value = Edit4->Text;
ADOQuery1->Parameters->ParamByName("OLD_Memory")->Value = Edit5->Text;
ADOQuery1->Parameters->ParamByName("OLD_HDD")->Value = Edit6->Text;
ADOQuery1->Parameters->ParamByName("OLD_Room")->Value = Edit7->Text;
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Text = "UPDATE Glavnaya SET Invent_Number = :OLD_Invent_Number, Number_in_Lan = :OLD_Number_in_Lan, Department = :OLD_Department, Processor = :OLD_Processor, Memory = :OLD_Memory, HDD = :OLD_HDD, Room = :OLD_Room WHERE Invent_Number = '"+Edit1->Text+"' AND Number_in_Lan = '"+Edit2->Text+"' AND Department = '"+Edit3->Text+"' AND Processor = '"+Edit4->Text+"' AND Memory = '"+Edit5->Text+"' AND HDD = '"+Edit6->Text+"' AND Room = '"+Edit7->Text+"'";
ADOQuery1->ExecSQL();

Ошибка "ADOQuery1:Parameter 'OLD_Invent_Number'not found"

oxotnik · 07.09.2009, 15:42

TADOQuery::Prepeared = true

@Sasha · 07.09.2009, 17:00 **[ТС]**

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Text = "UPDATE Glavnaya SET Invent_Number = :OLD_Invent_Number, Number_in_Lan = :OLD_Number_in_Lan, Department = :OLD_Department, Processor = :OLD_Processor, Memory = :OLD_Memory, HDD = :OLD_HDD, Room = :OLD_Room WHERE Invent_Number = '"+Edit1->Text+"' AND Number_in_Lan = '"+Edit2->Text+"' AND Department = '"+Edit3->Text+"' AND Processor = '"+Edit4->Text+"' AND Memory = '"+Edit5->Text+"' AND HDD = '"+Edit6->Text+"' AND Room = '"+Edit7->Text+"'";
ADOQuery1->Prepared = false;
ADOQuery1->Parameters->ParamByName("OLD_Invent_Number")->Value = Edit1->Text;
ADOQuery1->Parameters->ParamByName("OLD_Number_in_Lan")->Value = Edit2->Text;
ADOQuery1->Parameters->ParamByName("OLD_Department")->Value = Edit3->Text;
ADOQuery1->Parameters->ParamByName("OLD_Processor")->Value = Edit4->Text;
ADOQuery1->Parameters->ParamByName("OLD_Memory")->Value = Edit5->Text;
ADOQuery1->Parameters->ParamByName("OLD_HDD")->Value = Edit6->Text;
ADOQuery1->Parameters->ParamByName("OLD_Room")->Value = Edit7->Text;
ADOQuery1->Prepared = true;
ADOQuery1->ExecSQL();
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Text ="Select * from Glavnaya ORDER BY Invent_Number";
ADOQuery1->Open();

Ни чё не изменилось так ошибка и осталась

oxotnik · 07.09.2009, 17:17

ну сначала надо текст запроса дать, потов вызвать парсинг этого текста, а потом уже и параметрам значения присваивать

@Sasha · 07.09.2009, 17:25 **[ТС]**

C++
1
ADOQuery1->SQL->Text = "UPDATE Glavnaya SET Invent_Number = :OLD_Invent_Number, Number_in_Lan = :OLD_Number_in_Lan, Department = :OLD_Department, Processor = :OLD_Processor, Memory = :OLD_Memory, HDD = :OLD_HDD, Room = :OLD_Room WHERE Invent_Number = '"+Edit1->Text+"' AND Number_in_Lan = '"+Edit2->Text+"' AND Department = '"+Edit3->Text+"' AND Processor = '"+Edit4->Text+"' AND Memory = '"+Edit5->Text+"' AND HDD = '"+Edit6->Text+"' AND Room = '"+Edit7->Text+"'";

А это что не текст запроса

@Sasha · 08.09.2009, 14:10 **[ТС]**

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

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("UPDATE Glavnaya SET Number_in_Lan = :Number_in_Lan, Department = :Department, Processor = :Processor, Memory = :Memory, HDD = :HDD, Room = :Room");
ADOQuery1->SQL->Add("WHERE Invent_Number = :Invent_Number");
ADOQuery1->Parameters->ParamByName("Number_in_Lan")->Value = Trim(Edit2->Text);
ADOQuery1->Parameters->ParamByName("Department")->Value = Trim(Edit3->Text);
ADOQuery1->Parameters->ParamByName("Processor")->Value = Trim(Edit4->Text);
ADOQuery1->Parameters->ParamByName("Memory")->Value = Trim(Edit5->Text);
ADOQuery1->Parameters->ParamByName("HDD")->Value = Trim(Edit6->Text);
ADOQuery1->Parameters->ParamByName("Room")->Value = Trim(Edit7->Text);
ADOQuery1->Parameters->ParamByName("Invent_Number")->Value = Trim(Edit1->Text);
ADOQuery1->ExecSQL();
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Text ="Select * from Glavnaya ORDER BY Invent_Number";
ADOQuery1->Open();

Все поля редактируются, кроме как поле Invent_Number изменения не вступают в силу можно как-то это реализовать?

@Lord_Voodoo · 08.09.2009, 14:20

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

Все поля редактируются, кроме как поле Invent_Number изменения не вступают в силу можно как-то это реализовать?

это ты сейчас о чем?

@Sasha · 08.09.2009, 14:32 **[ТС]**

Это в продолжении вчерашней темы

oxotnik · 08.09.2009, 14:32

а где он в разделе SET запроса? только в условии значится...

@Sasha · 08.09.2009, 14:42 **[ТС]**

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("UPDATE Glavnaya SET Invent_Number = :Invent_Number, Number_in_Lan = :Number_in_Lan, Department = :Department, Processor = :Processor, Memory = :Memory, HDD = :HDD, Room = :Room");
ADOQuery1->SQL->Add("WHERE Invent_Number = :Invent_Number");
ADOQuery1->Parameters->ParamByName("Number_in_Lan")->Value = Trim(Edit2->Text);
ADOQuery1->Parameters->ParamByName("Department")->Value = Trim(Edit3->Text);
ADOQuery1->Parameters->ParamByName("Processor")->Value = Trim(Edit4->Text);
ADOQuery1->Parameters->ParamByName("Memory")->Value = Trim(Edit5->Text);
ADOQuery1->Parameters->ParamByName("HDD")->Value = Trim(Edit6->Text);
ADOQuery1->Parameters->ParamByName("Room")->Value = Trim(Edit7->Text);
ADOQuery1->Parameters->ParamByName("Invent_Number")->Value = Trim(Edit1->Text);
ADOQuery1->ExecSQL();
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Text ="Select * from Glavnaya ORDER BY Invent_Number";
ADOQuery1->Open();

Так вообще ни одно поле не редактирует, такое впечатление, что из полей в эдиты идёт обновление

@Lord_Voodoo · 08.09.2009, 15:36

Sasha, а Invent_Number ты тоже меняешь?

Новые блоги и статьи Все статьи Все блоги /
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .

oxotnik 1665 / 1134 / 80 Регистрация: 21.08.2008 Сообщений: 4,734 Записей в блоге: 1
	07.09.2009, 10:58
	Locate по полю с уникальным значением 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	07.09.2009, 11:02 [ТС]
	А как эту функцию настроить на новое значение? И ещё как можно сделать так чтобы в базу Access можно было вставить пустые строки, а то я оставляю пустые, а оно мне выдаёт ошибку что поле не придусмотрено для ввода пустых строк. Хотя в самой базе стоит, что поле не обязательно. 0

oxotnik 1665 / 1134 / 80 Регистрация: 21.08.2008 Сообщений: 4,734 Записей в блоге: 1
	07.09.2009, 11:05
	Какая СУБД, какая структура данных таблицы (первичный ключ есть ли, и как формируется)? 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	07.09.2009, 11:14 [ТС]
	БД Access, 10 полей, первое поле с названием инвентарный номер - целочесленное на ней стоит первичный ключ, остальные 9 полей текстовые. 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	07.09.2009, 11:55 [ТС]
	Это что мне нужно заранее приравнивать Едиты? 0

oxotnik 1665 / 1134 / 80 Регистрация: 21.08.2008 Сообщений: 4,734 Записей в блоге: 1
	07.09.2009, 15:42
	TADOQuery::Prepeared = true 0

oxotnik 1665 / 1134 / 80 Регистрация: 21.08.2008 Сообщений: 4,734 Записей в блоге: 1
	07.09.2009, 17:17
	ну сначала надо текст запроса дать, потов вызвать парсинг этого текста, а потом уже и параметрам значения присваивать 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	08.09.2009, 14:32 [ТС]
	Это в продолжении вчерашней темы 0

oxotnik 1665 / 1134 / 80 Регистрация: 21.08.2008 Сообщений: 4,734 Записей в блоге: 1
	08.09.2009, 14:32
	а где он в разделе SET запроса? только в условии значится... 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	08.09.2009, 15:36
	Sasha, а Invent_Number ты тоже меняешь? 0