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

@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 ты тоже меняешь?

Новые блоги и статьи Все статьи Все блоги /
1С: Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .

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